Sothink Web Video Downloader, a convenient video downloader, can detect any live video from internet, capture video, download video and save video to your hard disk for offline enjoyment. It enables you to capture and download Flash videos (flv) fro
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ::: PlayYO! ::: +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |||| MEDIA PLAYER |||| ============ USAGE: ============ Copy "PlayYO!.exe" into a folder
VB-判断并获取打开文件的路径，本例以打开一个图片文件为例，显示图片的路径信息，要实现这一功能，请参看以下代码： Private Sub Command1_Click() On Error Resume Next With CommonDialog1 设置初始化文件目录 .InitDir = CurDir .FileName = "背景.bmp" .ShowOpen If .FileName "" Then If Right(.FileNa
VB 检测文件是否存在，操作时请输入文件所在路径及文件名：单击操作按钮后，将执行以下的代码： Private Sub Command1_Click() X% = jc%(Text1.Text) 调用自定义函数返回检测结果 If X% = True Then 判断检测结果 Label2.Caption = "此文件确实存在。" 显示检测结果 Else Label2.Caption = "此文件不存在." End If End Sub Func
VB6.0 监控计算机TCP/IP端口，监控电脑当前打开的端口，显示在列表中。这个监控程序比较简单，以下是相关的代码： Dim x As Integer List1.Clear For x = 1 To 2000 DoEvents Winsock1.LocalPort = x On Error Resume Next Winsock1.Connect If Err.Number = 10048 Then List1.AddItem x End If
Private Sub chkDontShowAgain_Click()
On Error Resume Next
If chkDontShowAgain.Value = vbChecked Then
SaveSetting APP_CATEGORY, WIZARD_NAME, CONFIRM_KEY, DONTSHOW_CONFIRM
Else
SaveSetting APP_CATEGORY, WIZARD_NAME, CONFI
Private Sub Command1_Click()
''开始打印
'On Error Resume Next '防错
Set Printer = Printers(Combo2.ListIndex) '打印机选择
Printer.Print PrintEndDoc(Picture1, Text1) ' 打印
Printer.EndDoc
Picture1.Print PrintEndDoc(Picture1, Text1) ' 浏览
End Sub
Private S
