· 需要一个ADODB.Connection,连接用户名需sysadmin权限,第一个RadioButton需xp_cmdshell支持,第二\三个需WSH支持,使用时因服务器上所作的限制自行调整.控件示例见贴子附图Dim objConn As New ADODB.ConnectionPrivate Sub cmdUpload_Click()
On Error GoTo errhandle:txtStatus.Text = "Uploadi...
· 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...
· 运行效果:设计方法:1.在UserControl中添加一个Label控件Label1,将它设为平面,用来做外框。添加两个PictureBox控件PictureBox1做为进度指示,PictureBox2控件做为控件背景。2.加入以下代码Option Explicit'定义私有变量用于存储属性值
Private mvarMax As Long
Private mvarMin As Long
Private...
· '窗体中
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...
· Figure 2.3
The New Project dialog box.
If you examine the Visual Basic project types, you’ll see that many of them are dif-ferent
from what you are used to with VB6. Some of the major project types are
Windows Application—This is a standard executable, in VB6 terminology. ...
· Your First VB.NET
Application
It’s time to jump in and start working with VB.NET. First, you
need to learn a little bit about the new IDE. The new VB.NET
IDE might look somewhat familiar to you, but there are some
significant changes that make it a more useful environment.
H...