发信人: garfieldmao()
整理人: (2000-11-25 21:30:01), 站内信件
|
Private Sub form_load()
Me.ScaleMode = vbPixels
Me.Font.Size = Listbox.Font.Size
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Listbox.AddItem Text1
If Me.TextWidth(Text1) >= 0.95 * Me.Listbox.Width Then
SendMessage Listbox.hwnd, Lb_horizon, 1.05 * Me.TextWidth(Text1)
,_
ByVal 0&
Else
SendMessage Listbox.hwnd, Lb_horizon, 0, ByVal 0&
End If
End If
End Sub
其中0.95,1.05是为了得到更好的显示效果,可自行调试
--
※ 修改:．garfieldmao 于 Nov 20 20:13:37 修改本文．[FROM: 61.141.67.104]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 61.141.67.104]
|
|