今更、VB6独学中

VB6最終版のMSDNライブラリのはずの、「MSDN ライブラリ 2001 年 10 月」（もち日本語版）が見あたらない。
困りますね；

• VB6関連の参考書

たまには会社に買って貰いたいところ。しかしながら、VB関連の参考書はVB6から最新のVBへと移行していて、VB6の本はかなり絶版になっている。中古では探せばあるのだけれど、会社で購入となると領収書が必要になるので、古本は無理。やはり、自腹で購入となります。

Godより教えて貰った本、かなり親切です。
そんなわけで、つまらないコードばかり書いていきます。

Private Sub Form_Load()
    Label1.Caption = "コードを書く書きまくる書きまくる"
    With Label1.Font
        .Name = "MS 明朝"
        .Size = 14
        .Underline = True
        .Italic = True
        .Strikethrough = True
        '.Weight = 14
    End With
        
End Sub

こんなコード早々使いそうにないが…。

Private Sub Timer1_Timer()
    Beep
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Caption = Date   '今日の日付
    Timer1.Interval = 10    'タイマーをオン
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Timer1.Interval = 0    'タイマーをオフ
End Sub

会社でこんなコード実行したら、迷惑そう。

Private Sub Form_Load()
    Text1.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Then
        Exit Sub
    Else
        KeyAscii = 0
        Beep
    End If
End Sub

文字チェックか。使えそう。バックスペースも入れたいですナ。