1.从桌面(或者其他的文件夹),将一个文件拖到一个form上后form上的一个text box 得到这个文件的路径!
2.类似与qq,在一个combo box里面已经添加了一些,数字字符串,它get focus后,press一个数字,以这个数字开头的数字串被选择,如果不是你想要的,再press一次,出现下一个以这个数字开头的数字串!
3.将一个Hscroll 控件和一个list box“绑”到一起!
4.当在一个text box输入非数字的时候,beep,里面的内容不变,光标在最后等待输入!
5.同样类似与qq,定义一个快捷键(例如:Ctrl +A),press 这些键的时候,唤醒一个form!
6.透明窗体;不规则窗体!
7.在任务管理器中屏蔽你的程序!
......
没时间了,下次再访!
这里不能放更多的分数,有好的解法,另外给!
2.类似与qq,在一个combo box里面已经添加了一些,数字字符串,它get focus后,press一个数字,以这个数字开头的数字串被选择,如果不是你想要的,再press一次,出现下一个以这个数字开头的数字串!
3.将一个Hscroll 控件和一个list box“绑”到一起!
4.当在一个text box输入非数字的时候,beep,里面的内容不变,光标在最后等待输入!
5.同样类似与qq,定义一个快捷键(例如:Ctrl +A),press 这些键的时候,唤醒一个form!
6.透明窗体;不规则窗体!
7.在任务管理器中屏蔽你的程序!
......
没时间了,下次再访!
这里不能放更多的分数,有好的解法,另外给!
设置窗体的OLEDrapMode为1
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Long
For i = 1 To Data.Files.Count
Debug.Print Data.Files.Item(i)
Next i
End Sub
取得路径后你再判断是文件还是文件夹
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8 '退格
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 '0-9
Case Else
KeyAscii = 0
Beep
Text1.SelStart = Len(Text1.Text)
End Select
End Sub
ComboBox如果Style设置为2就会象你说的那样
8.怎么在检索数据库是显示检索进度!
9.用vb做一个动画:一排字体,字体变宽字体变窄,然后消失!
10.与flashget类似,在flashget里面的“已下载”,双击一个文件路径,这个文件不管是什么类型,都可以用对应的方式打开!
为何不用ListView8
异步执行ado,具体可参考ado210.chm9
不如加个flash10
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Command1_Click()
ShellExecute &H0, vbNullString, "c:\bootlog.txt", vbNullString, "c:\", 1
End Sub
……你自己试试吧
ShellExecute &H0, vbNullString, "c:\bootlog.txt", vbNullString, "c:\", 1
ShellExecute &H0, vbNullString, "c:\clonyxxl.zip", vbNullString, "c:\", 1
ShellExecute &H0, vbNullString, "c:\faye.chm", vbNullString, "c:\", 1
ShellExecute &H0, vbNullString, "c:\皮.jpg", vbNullString, "c:\", 1
透明窗体
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2&Private Sub Command1_Click()
Dim bytOpacity As Byte
bytOpacity = 128
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, 0, bytOpacity, LWA_ALPHA)
End SubPrivate Sub Command2_Click()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) And (Not WS_EX_LAYERED))
End Sub不规则窗体你去google搜一下实在是很多很多
http://vbworld.sxnw.gov.cn/Source/openfile.asp?kind=forms&id=82&filename=创建不规则窗口.zip
7.
win98下可以,2000下不清楚
http://vb1.myrice.com/article/control/ctl029.htm
http://wlbookwl.myrice.com/jck2002/01/020116vbrj.htm