マカフィーバナー帯女性

ScriptForm

 (作者はわかりませんが、小川さん?GUI 用コンポーネントで、 こちら からダウンロードできます。
 以前、Leo J. Kaminski氏作の WshForm というのが有ったのですが 、これは、日本語が化けます。ということから、日本語の化けないものとして 作られたようです。
 「メソッド、プロパティの仕様はWshFormを踏襲してま すので、WshFormのHelpを参照してください。(若干仕様が違うところもある かもしれませんが...)」とありますが、最近、本家が見当たりません 。
 公開されてから、しばらく経ちますが、その後開発が進んでいる様子はない ようです。


【使用例】

Option Explicit
Dim DlgCtl

Set DlgCtl = CreateObject("ScriptForm.ScriptFormCtl")
DlgCtl.Width = 4600
DlgCtl.Height = 4400
DlgCtl.Caption = "テストプログラム"
DlgCtl.AddOptions 3, False, "ラジオ1;ラジオ2;ラジオ3","ラジオ3", , , 200, 200
DlgCtl.AddCheckBoxes 3, False, "チェック1;チェック2;チェック3", , , 200, 600
DlgCtl.AddComboBox 3, "アイテム1;アイテム2;アイテム3", , 200, 1000
DlgCtl.AddLabels 1, True, "これはテストです", , 4000, , 200, 1500, 12, True, True
DlgCtl.AddTextBoxes 1, True, , 4000, 1000, 200, 2000
DlgCtl.AddButtons 3, False, "ボタン1;ボタン2;ボタン3", , , , 200, 3400
DlgCtl.Show

MsgBox _
    "ラジオボタン: " & DlgCtl.OptionMsg & vbCr & vbCR &_
    "チェック1: " & DlgCtl.CheckMsg(1) & vbCr &_
    "チェック2: " & DlgCtl.CheckMsg(2) & vbCr &_
    "チェック3: " & DlgCtl.CheckMsg(3) & vbCr & vbCr &_
    "コンボ・ボックス: " & DlgCtl.ComboMsg & vbCr & vbCr &_
    "テキスト・ボックス: " & DlgCtl.TextMsg(1) & vbCr & vbCr &_
    "ボタン: " & DlgCtl.ButtonMsg

 



オブジェクト探検隊