音像管理系统-VB代码程序-VB编程毕业设计.doc

vb-SQL数据库课设，客房管理系统,完整版，sql,vb代码都有

一元三次方程拟合及vb代码算法.doc

虚拟桌面 vb代码 api虚拟桌面 vb代码 api

参照防火墙源代码，自己写的vb调用vc写的dll截获和修改封包，用于xp，2000系统。包括vb源代码，vc dll源代码绝对超值。有兴趣讨论封包的同志们可以加我。qq：23131683

VB代码自动发送邮件 Me.Visible = False Dim objEmail As Object Set objEmail = CreateObject("CDO.Message") objEmail.From = "elcasyc530@163.com" objEmail.Subject = "调查资料" 'objEmail.To = InputBox("请修改接收数据的邮箱名", "getch", "***@163.com") objEmail.To = "***@163.com"

VB代码，语音报账控件(女声版)VB代码，语音报账控件(女声版)

这个代码使用Windows管理设备（WMI）进行读取计算机硬件信息的一个代码，可以读取的硬件如下： // 1、显示器资料（例如显示器序列号） // 2、主板信息（例如主板序列号） // 3、硬盘信息（例如硬盘序列号,品牌） // 4、芯片信息（例如芯片序列号） // 5、处理器信息（例如处理器序列号,品牌） // 6、光驱信息 // 7、键盘信息 // 8、Modem信息 // 9、内存信息

易语言代码转换VB代码，基础正则。支持常用函数转换。下载学习。

Dim imarks% Private Sub form_load() imark = 1 End Sub Private Sub cmdcancel_Click() Dim i% For i = 1 To imark dis(i) = 0: deth(i) = 0 Next i frmmain.txtshow.Text = "水准计算结果" Unload Me End Sub Private Sub cmdok_Click() dist = Val(txtdist.Text): dh = Val(txtdeth.Text) Call adddata(imark, dist, dh) Public Sub adddata(imark As Integer, dist As Single, dh As Single) dis(imark) = dist: deth(imark) = dh frmmain.txtshow.Text = frmmain.txtshow.Text & "第" & Str(imark) & "站:" & vbCrLf frmmain.txtshow.Text = frmmain.txtshow.Text & " & 距离:" & dis(imark) & " 高差中数:" & deth(imark) & vbCrLf If imark >= nmarks Then frminput.Hide Else txtdist.Text = "": txtdeth.Text "": txtdist.setfoucs End If frminput.Caption = "观测数据输入:第" & Trim(Str(imark)) & "站" imark = imark + 1 frminput.Caption = "观测数据输入:第" & Trim(Str(imark)) & "站" End Sub Private Sub cmdcheckcalc_Click() Dim totaldeth!, closedeth!, tdist#, i% End Sub Private Sub optannex_Click() txtendpoint.Enabled = optannex.Value End Sub Private Sub optclose_Click() txtendpoint.Enabled = Not optclose.Value End Sub Private Sub optspur_Click() txtendpoint.Enabled = Not optspur.Value End Sub Dim startpoint!, ENDPOINT! Private Sub txtendpoint_LostFocus() If Not IsNumeric(txtendpoint.Text) Then MsgBox "输入的高程含有非数字字符!" txtendpoint.Text = "": txtendpoint.SetFocus Exit Sub End If If Val(txtendpoint.Text) > 5000 Or Val(txtendpoint.Text) < -100 Then MsgBox "输入的高程有误!" txtendtpoint.Text = "": txtendtpoint.SetFocus Exit Sub End If ENDPOINT = Val(txtendtpoint.Text) End Sub