- 博客(3)
- 收藏
- 关注
原创 如何从公共对话框控件中提取多个文件名称
代码如下:Private Sub Command1_Click()Dim i As Integer, title As String, FileNames As String With CommonDialog1 .FileName = "" .Filter = "All Files|*.*" 过滤器指定在对话框的文件列表框中显示的文件的类型 .Flags
2005-08-30 22:56:00 1929
原创 MSHFlexGrid1使用技巧(二)[如何让MSHFlexGrid实现点击列标题排序]
Dim mysort As IntegerPrivate Sub Form_Load()With MSHFlexGrid1.Cols = 4.Rows = 20 20行4列For i = 0 To 79.TextArray(i) = IIf(i NextEnd Withmysort = 7 升序End SubPrivate Sub MSHFlexGrid1_MouseDown(Button
2005-08-30 00:17:00 3536
原创 关于秒表
Private Declare Function timeGetTime Lib "winmm.dll" () As LongDim STARTTIME As LongPrivate Sub Command1_Click()STARTTIME = timeGetTimeTimer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Label1.Caption
2005-08-29 23:45:00 1391
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人