VBプログラミング講座

  Programing all night          

 

ここでは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