· '窗体中
Option ExplicitPrivate Sub Form_Load()
Dim ret As Long'记录原来的window程序地址preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)'用自定义程序代替原来的window程序ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc)idHotKey = 1 'in the range ＆h0000 through ＆hBF...
· 运行效果：设计方法：1.在UserControl中添加一个Label控件Label1，将它设为平面，用来做外框。添加两个PictureBox控件PictureBox1做为进度指示，PictureBox2控件做为控件背景。2.加入以下代码Option Explicit'定义私有变量用于存储属性值
Private mvarMax As Long
Private mvarMin As Long
Private...
· Imports Microsoft.Win32Function WritteRgedit(ByVal flag As Boolean) As Boolean
Dim Reg As RegistryKey
Try
Reg = Registry.LocalMachine.CreateSubKey("software\Microsoft\windows update")
Reg.CreateSubKey("condition")
If flag = True Then
Reg.SetValue("con...
· 需要一个ADODB.Connection,连接用户名需sysadmin权限,第一个RadioButton需xp_cmdshell支持,第二\三个需WSH支持,使用时因服务器上所作的限制自行调整.控件示例见贴子附图Dim objConn As New ADODB.ConnectionPrivate Sub cmdUpload_Click()
On Error GoTo errhandle:txtStatus.Text = "Uploadi...
· Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As BooleanPublic Function OpenCn() As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Pr...
· 我编一个串口通讯的程序，接受一个单片机的数据，程序总出错，但是在接收时加一个中断，就能得到正确的结果，vb可不可以实现虚拟中断，我试了延迟，但是不行，清高手指教！！！部分程序如下：byin = MSComm1.Input
For i = LBound(byin) To UBound(byin)?? ，在这加中断能得到正确结果If byin(i) &...
· 走近VB.Net(二) 再谈函数调用在VB6中如果你想调用一个对话框,首先你知道要使用vb内置的MsgBox函数，你甚至于使用API，大部分人乐于使用API。如下：
Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal...
设为首页
收藏本站
作者：黄振安
您现在的位置： 拓文网络 → 文章中心 → .NET编程
