たまに更新します。
VBとの相違点
文字列の結合は+じゃくて&でやる
サンプルソース
フォームオープンの時の処理の書き方
Public Sub Form_Open()関数の中に書けばいいらしい。
|
1 2 3 |
Public Sub Form_Open() Label1.Font.Size = 20 End |
Stringの中からほしい文字列を探してきてその周辺のほしいとこだけを表示するサンプル
|
1 2 3 4 5 6 7 8 9 10 |
Public Sub Button1_Click() Dim tempstring As String Dim size, size2 As Integer tempstring = TextArea1.Text size = InStr(tempstring, "block number=") size2 = InStr(tempstring, ",", size) Message(size) Message(size2) Message(Mid$(tempstring, size + 13, size2 - size - 13)) End Sub |
シェルを叩いて標準入出力を画面に表示するサンプル
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Public hProc As Process Public Sub kakutei_Click() Dim hProcess As Process Dim inpath, outpath, shelloutput, environment1, environment2, av, delete As String inpath = TextBox1.Text outpath = TextBox2.Text If RadioButton2.value = True Then delete = "--delete" Else delete = "" Endif hProc = Exec ["rsync", "-av", delete, inpath, outpath] For Read As "MyProcess" End Public Sub TextBox1_KeyPress() End Public Sub MyProcess_Read() Dim sLine As String sLine = Read #Last, -1024 TextArea1.Text = TextArea1.Text & sLine End |
最近のコメント