VB
peterpansh
等写
展开
-
vb关机,重启
Option ExplicitPrivate Declare Function SetSystemPowerState Lib "kernel32" (ByVal fSuspend As Long, ByVal fForce As Long) _ As LongPrivate Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags原创 2005-03-25 16:55:00 · 1431 阅读 · 1 评论 -
vb 图片分割并保存到数据库
Private Sub Command1_Click()Picture2.PaintPicture Picture1.Picture, 0, 0, 1000, 1000, 0, 0, 1000, 1000 Set mstream = CreateObject("ADODB.Stream") Set mstream = New ADODB.Streammstream.Type = adTypeB原创 2005-10-12 00:10:00 · 1580 阅读 · 0 评论 -
VB调用存储过程
Dim adocomm As New ADODB.Command Dim prmRetVal As ADODB.Parameter Dim prmId As ADODB.Parameter adocomm.ActiveConnection = conn adocomm.CommandType = adCmdStoredProc adocomm.CommandText = "sp_del_off原创 2006-06-07 17:00:00 · 1305 阅读 · 0 评论 -
VB保留两位小数
Dim a a = Text1.Text Text1.Text = FormatNumber(a, 2)原创 2007-04-18 23:29:00 · 16758 阅读 · 1 评论 -
printer 如何打印颜色
Private Sub Command1_Click() Printer.ColorMode = 2 Printer.Print " "; force a call to StartPage Printer.CurrentX = 0 restore the position Printer.ForeColor = vbRed Printer.Print原创 2007-04-23 01:08:00 · 1335 阅读 · 0 评论