谢谢!
解决方案 »
- setup factory 7教程
- 如何通过编程实现ie的“目标另存为”下载效果?
- WinSock控件接受数据量较多时,只返回部分数据,如何获取全部数据?请举例
- 各位大虾,是去给日本作外包的企业好呢?还是去金蝶分公司好呢?
- 我想自定义一个滑杆控件vScrollBar,但是象ScrollBar鼠标按下并向下拖拉事件不知如何实现?
- 我业余时间开发的一个类似OUTLOOK软件,开放主控代码
- 一个关于系统的问题,欢迎发言!在线等待!
- 今天打开系统发现,出现系统错误,&H80004005(-2147467259),
- VB如何循环写入文件
- 测试一下信誉值!版主来吧!GZCompiler ,来,100分!
- 儿子出生了,哈哈。。。散分。。。。。。
- 如何处理消息模式和doevents的矛盾!
Dim i As Integer
For i = 1 To 50
List1.AddItem "item" & CStr(i)
Next
End SubPrivate Sub List1_Click()
Label1.Caption = List1.Text
End SubPrivate Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Label1.Caption = List1.List(List1.TopIndex + Y \ Me.TextHeight("ABc"))
End If
End Sub