
ここではVBプログラミングのTipsを紹介します。
1.動的配列の宣言
Dim x() as Long ’プログラムの先頭で宣言
Redim x(100) as Long ’本文中で使う
Preserve x(200) as Long ’x(100)までの値はそのまま
2.配列の初期化
Dim a() as Long
Dim s(100) as string
Dim x() as Long
Erase a ’要素が0になる
Erase s ’要素が""になる
Redim x(100) as Long
Erase x ’メモリを解放
3.表示画面(フォーム)をファイル化する
x = BitBlt(Picture1.hDC, 0, 0, Form1.Width, Form1.Height, Form1.hDC, 0, 0, &HCC0020)
savePicture Picture1.Image, Dname
ファイル名
4.画像ファイルを読込み表示させる
コモンダイアログを使ってファイル名を読む
CommonDialog1.Filter = "画像 ファイル (*.gif,*.jpg,*.jpeg)|*.jpeg;*.jpg;*.gif"
CommonDialog1.ShowOpen
MapName = CommonDialog1.filename
画像をピクチャーボックスに表示させる
Picture1.Picture = LoadPicture(MapName)
サイズを調整する
GWidth = Picture1.Picture.Width
GHeight = Picture1.Picture.Height
Picture1.PaintPicture Picture1, GLeft, GTop, GWidth + GLeft, GHeight + GTop, 0, 0,
Picture1.Picture.Width, Picture1.Picture.Height
画像をファイルに保存する
SavePicture Picture1.Image, "ABC.BMP"
5.テキストファイルを読み込む
コモンダイアログを使ってファイル名を読み込んでおく
Dim Fnum As Long
Dim s As String
Fnum = FreeFile
Open Fname For Input As Fnum
Input #Fnum, s 'Tab カンマ 改行までを読み込む
Line Input #Fnum, s '改行までを読み込む
数値を読み込む例題
Do While Not EOF(Fnum)
Line Input #Fnum, s
d = Val(Trim$(s))
Loop
Close Fnum
直接ファイル名を指定して読み込む
Fnum = FreeFile
If Right$(CurDir, 1) <> "\" Then
Dname = CurDir + "\" + "PhotoDiver.DEF"
Else
Dname = CurDir + "PhotoDiver.DEF"
End If
Open Dname For Input As Fnum
Do While Not EOF(Fnum)
Input #Fnum, s
FlagAuto = Val(s)
Loop
Close Fnum
6.テキストをファイルに書き込む
コモンダイアログでファイル名を指定しておく
Fnum = FreeFile
Open Dname For Output As Fnum
Print #Fnum, Trim$(s)
Close Fnum
7.Excelファイルを読み書きする
コモンダイアログを使ってファイル名を読み込んでおく
CommonDialog1.Filter = "エクセル ファイル (*.xls)|*.xls|"
CommonDialog1.ShowOpen
Fname = CommonDialog1.filename
Excelシートを開く
Set xlbook = CreateObject("Excel.Application")
xlbook.Application.Visible = True
Set xlsheet = xlbook.workbooks.Open(Fname)
セルのデータを読む
m = xlsheet.Application.Cells(3, 6).Value
セルにデータを書き込む
xlsheet.Application.Cells(i, j).Value = L(i, j)
シートを閉じる
xlbook.Application.Quit
Set xlbook = Nothing
Set xlsheet = Nothing