· 运行效果：设计方法：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...
· 走近VB.Net（七）在窗体上画图如果看过一些文章一定知道在窗体上画图要使用system.drawing类，在VB.Net中没有line与label控件，需要自已写一些代码，首先写一个事件过程onpaint.在显示窗体的同时显示图形Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)'TODO: 请在此处添加绘图代码En...
设为首页
收藏本站
作者：黄振安
您现在的位置： 拓文网络 → 文章中心 → .NET编程 → ASP.NET
