VBプログラマ質問スレ（6.0以前） Part53

VBプログラマ質問スレ ..

8:デフォルトの名無しさん
07/08/22 19:34:30
はぁ…
結構頻出なんだけどな

Option Explicit
Private WithEvents lstbox As ListBox
Private Sub Form_Load()
Dim i As Long
Set lstbox = Me.Controls.Add("VB.ListBox", "lstox")
With lstbox
.Move 0, 0, 3000, 5000: .Visible = True
For i = 1 To 100: .AddItem i: Next
End With
End Sub

Private Sub lstbox_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then KeyCode = 0
End Sub

次ページ

続きを表示

1を表示