ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

kshr 2005/03/02(ｿｽｿｽ) 16:45:04

ActiveXｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽしｿｽQｿｽﾆ設抵ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉゑｿｽ
FormｿｽｿｽｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽ[ｿｽﾌ取得ｿｽｿｽﾝ抵ｿｽEｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ起ｿｽｿｽ(?)ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAOCXｿｽ動的ｿｽﾉ参ｿｽﾆゑｿｽｿｽｿｽｿｽ鼾ｿｽﾌ記ｿｽqｿｽｿｽｿｽ@ｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽJｿｽｿｽｿｽﾂ具ｿｽ
WindowsXP Pro
VisualBasic 6.0(SP6)

ｿｽ痰ｦｿｽﾎ・ｿｽEｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽ[ｿｽPｿｽﾂ、ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽPｿｽﾂのコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ成
ｿｽYOCXｿｽｿｽｿｽ
ｿｽEｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽFProject1
ｿｽEｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽ@ｿｽ@ｿｽFUserControl
ｿｽEｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽ[:PaperName
ｿｽEｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽ@ｿｽ@ｿｽFDataBind

ｿｽYｿｽWｿｽｿｽExeｿｽｿｽVｿｽKｿｽ成ｿｽｿｽｿｽAForm1ｿｽﾌクｿｽｿｽｿｽbｿｽNｿｽCｿｽxｿｽｿｽｿｽgｿｽﾈどへ記ｿｽq
Dim CtlObj as Object

Set CtlObj = Controls.Add(Project1.UserControl, "UCon")

With CtlObj
   .Top = 50
   .Left = 50
   .Height = 250
   .Width = 250
   .PaperName = "ｿｽｿｽｿｽｿｽｿｽｿｽｿｽZｿｽbｿｽg"  ｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽsｿｽｿｽｿｽGｿｽｿｽｿｽ['438'ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
   .DataBind ｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽこゑｿｽｿｽﾅゑｿｽGｿｽｿｽｿｽ[ｿｽyｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾆは、ｿｽｿｽｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽ[ｿｽｿｽｿｽﾍｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽz
End With

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2005/03/02(ｿｽｿｽ) 19:37:49

> ActiveXｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽしｿｽQｿｽﾆ設抵ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉゑｿｽ
ｿｽuｿｽQｿｽﾆ設抵ｿｽvｿｽﾅはなゑｿｽｿｽAｿｽuｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌ追会ｿｽｿｽvｿｽﾈのでゑｿｽ?

> .PaperName = "ｿｽｿｽｿｽｿｽｿｽｿｽｿｽZｿｽbｿｽg"  ｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽsｿｽｿｽｿｽGｿｽｿｽｿｽ['438'ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾅ使ｿｽｿｽｿｽｿｽﾌは、ｿｽuｿｽRｿｽｿｽｿｽeｿｽiｿｽｿｽ(ｿｽﾂまゑｿｽVB6)ｿｽｿｽｿｽ供ゑｿｽｿｽﾄゑｿｽｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽvｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽuActiveXｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ供ゑｿｽｿｽﾄゑｿｽｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽvｿｽ操作すｿｽｿｽﾉは、
objectｿｽvｿｽｿｽｿｽpｿｽeｿｽB ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ ObjectｿｽvｿｽｿｽｿｽpｿｽeｿｽB ｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽB
http://www.microsoft.com/japan/developer/library/vb98/vbproobjectextd.htm

ｿｽﾂまりこｿｽﾌ場合ｿｽﾍ、
  .Object.PaperName = "ｿｽ`"
ｿｽﾅゑｿｽｿｽﾋ。
# ｿｽｿｽｿｽiｿｽﾍ、objectｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽoｿｽRｿｽﾅアｿｽNｿｽZｿｽXｿｽｿｽｿｽ骼厄ｿｽﾍめゑｿｽｿｽｿｽｿｽﾉ厄ｿｽｿｽｿｽｿｽﾌで、
# objectｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾌ托ｿｽｿｽﾝ趣ｿｽｿｽﾌゑｿｽmｿｽｿｽﾈゑｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB


ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、RichTextBoxｿｽﾅゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽB

Option Explicit
Private Const RTB_LICENSE_KEY As String = "ｿｽｿｽｿｽｿｽｿｽﾉｿｽｿｽCｿｽZｿｽｿｽｿｽXｿｽLｿｽ[ｿｽｿｽLｿｽq"
Private WithEvents RTB1 As VBControlExtender
Private Sub Form_Load()
    Licenses.Add "RICHTEXT.RichtextCtrl", RTB_LICENSE_KEY
    Set RTB1 = Controls.Add("RICHTEXT.RichtextCtrl", "RTB1")
    RTB1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
    RTB1.Visible = True

    'ｿｽｿｽｿｽｿｽﾍエｿｽｿｽｿｽ[
    'RTB1.BackColor = vbYellow

    'ｿｽｿｽｿｽｿｽﾈゑｿｽOK
    RTB1.object.BackColor = vbYellow
End Sub

kshr 2005/03/03(ｿｽｿｽ) 09:09:02

>ｿｽuｿｽQｿｽﾆ設抵ｿｽvｿｽﾅはなゑｿｽｿｽAｿｽuｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌ追会ｿｽｿｽvｿｽﾈのでゑｿｽ?
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。ｿｽBｿｽBｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ

># ｿｽｿｽｿｽiｿｽﾍ、objectｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽoｿｽRｿｽﾅアｿｽNｿｽZｿｽXｿｽｿｽｿｽ骼厄ｿｽﾍめゑｿｽｿｽｿｽｿｽﾉ厄ｿｽｿｽｿｽｿｽﾌで、
># objectｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾌ托ｿｽｿｽﾝ趣ｿｽｿｽﾌゑｿｽmｿｽｿｽﾈゑｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
objectｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽ[ｿｽﾌ托ｿｽｿｽﾝ趣ｿｽｿｽﾌは知ｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽpｿｽrｿｽﾉつゑｿｽｿｽﾄは知ｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾜで使ｿｽｿｽﾈゑｿｽｿｽ痰｢ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾔにゑｿｽﾈゑｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋ。

ｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽlｿｽﾅ参ｿｽﾆゑｿｽｿｽ骼厄ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ