× [PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
参考:homepage1.nifty.com/rucio/main/shokyu/jugyou12.htm
Option1.Value = True(チェックあり) Check1.Value = vbChecked(チェック) PR
参考:
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 'が配列に保存されている |
カレンダー
最新記事
(06/05)
(05/26)
(04/17)
(04/17)
(04/17) Bkm
OTHERS
Powered by 忍者ブログ
Templated by TABLE ENOCH
| |