Ta上传的资源 (0)

Private Sub Form Load MSComm1.Settings9600n81MSComm1.OutBufferSize1024设置或返回发送缓冲区的大小默认值为512B.MSComm1.InBufferSize1024设置或返回接收缓冲区的大小默认值为1024B MSComm1.O
VB 12

VB例子FTP同步本地文件实时同步到FTP服务器上实现本地1.写代码直接保存同步上传到服务器中2.文件复制进来时同步上传到服务器中3.文件更新时也能同步上传到服务器中只要按一下快捷键Ctrl S马上同步文件到服务器中请先手动设置admin.txt设置文本第一行说明第二行上次使用记录第三行起每行1个记
FTP 22

Private Sub Command1_Click() ''开始打印 'On Error Resume Next '防错 Set Printer = Printers(Combo2.ListIndex) '打印机选择 Printer.Print PrintEndDoc(Picture1, Text
VB 18

'捕捉图片 TakeA 屏幕左边, 屏幕上边, 图片宽, 图片高, 显示在哪(Image)个控件上 Function TakeA(PL As Integer, PH As Integer, TL As Integer, TH As Integer, Pic As PictureBox) Dim So
VB 7

V = 18 '修改此数字,可改变雪花整体飘荡的速度 Randomize '初始化随机发生器 ' WinInTop Me.hWnd, True '使雪花(窗口)显示在最前,包括显示到任务栏上面 ' WinInTop Form2.hWnd, True Me.Line (0, 0)-(Me.ScaleW
DB2 20

文件类型_Excel xls例子 For i = 1 To xlBook.Worksheets("Sheet1").UsedRange.Rows.Count 'Sheet1 的总行数 For n = 1 To xlBook.Worksheets("Sheet1"
VB 6

DimcAsString'文件记录,大小 'WriteFile把哪个文件写进去，写到哪个文件里面去 SubWriteFile(AppNameAsString,AppExeNameAsString) DimiAsInteger,i2AsInteger,BB()AsByte,CC()
VB 10

DimAAsLong,BAsLong,CAsLong Fori=0ToText1(2).Text-1'多少组ZuGao 'Picture1.Line(Pi1X,ZuGao*i+Pi1Y)-(Pi2X,ZuGao*i+Pi1Y),vbRed '添加组线 DimMmAsLong:Mm=IIf(i=0,
VB 10

这里是一段准备加密的内容PrivateSubMiDu_Change()OnErrorResumeNext'防错,这个只要这一句就行了，放在最前面IfMiDu.Text>255ThenMiDu.Text=MiDu.TextMod256EndSub
VB 13

Adodc1.RecordSource="select*from库存表where日期like'%"&Text1.Text&_"%'or货物名称like'%"&Text1.Text&_"%'or库存量like'%"&Text1.Text&_
VB 22