忍者ブログ
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

参考:homepage1.nifty.com/rucio/main/shokyu/jugyou12.htm
Option1.Value = True(チェックあり)
Check1.Value = vbChecked(チェック)
PR
■vbCrLf
メッセージボックスとかボタンキャプションで改行するときはvbCrLfを入れる

参考:hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi
参考:
www.red.oit-net.jp/tatsuya/vb/ComboBox.htm
www.bcap.co.jp/hanafusa/dotnet/combo01.htm

●ComboBoxの初期化
With cmbMin 'ドロップダウンリスト表示
     For i = 0 To 59
        .AddItem i
     Next i
End With

●ComboBoxを編集不可にする
ComboBox1.Styleプロパティ…2 ドロップダウンリスト

●ComboBoxから値を取得する
intSetMin = cmbMin.ListIndex
intSyo=10 ¥3         '商3を代入します
intAmari=10 Mod 3  '余り1を代入します
文字列を区切る関数
"¥"などでも区切れるのでツリービューにも使えそうです。

使用例)

Dim strDate As String
Dim strSpt() As String
Dim i As Integer

strDate = "2007-06-25"
strSpt = Split(strDate, "-") '←文字列と区切記号が引数

For i = 0 To UBound(strSpt)
    MsgBox strSpt(i)
Next i

Erase strSpt()  '←とりあえず今回はもういらないので破棄

この場合は
    'strSpt(0) 2007
    'strSpt(1)  06
    'strSpt(2)  25
'が配列に保存されている
 
カレンダー
05 2025/06 07
S M T W T F S
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30
OTHERS
Powered by 忍者ブログ
Templated by TABLE ENOCH