- 8 名前：デフォルトの名無しさん mailto:sage [2007/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
