代码搜索:VB
找到约 10,000 项符合「VB」的源代码
代码结果 10,000
www.eeworm.com/read/284313/8945224
vb test.vb
'------------------------------------------------------------------------------
'
' 此代码由工具生成。
' 运行库版本:2.0.50727.42
'
' 对此文件的更改可能会导致不正确的行为,并且如果
' 重新生成代码,这些更改将会丢失
www.eeworm.com/read/383435/8947105
vb dangan.vb
Public Class DangAn
Private Sub Button_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Cancel.Click
Close()
End Sub
Private Sub Lin
www.eeworm.com/read/383435/8947161
vb assemblyinfo.vb
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' 有关程序集的常规信息通过下列属性集
' 控制。更改这些属性值可修改
' 与程序集关联的信息。
' 查看程序集属性的值
www.eeworm.com/read/383435/8947232
vb datamange.vb
Public Class DataManger
Private Sub FormDatabase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 这行代码将数据加载到表“Preg_FileDataSet.User”中。您可以根据需要移
www.eeworm.com/read/383435/8947240
vb applicationevents.vb
www.eeworm.com/read/383435/8947263
vb logon.vb
Imports Microsoft.Win32
Imports System.Management
Public Class Login
Public MachineSN As String = ""
Public RegisterSN As String = ""
Public Part1 As String = ""
Public Part2 A
www.eeworm.com/read/383435/8947289
vb mainform.vb
Imports System.IO
Imports System.Drawing
Imports System.Text
Public Class MainForm
Public PortID As String = "COM1" '用于选择端口号,默认为COM1
Public Point_Count As Integer = 0 '总点数
Pub
www.eeworm.com/read/383272/8958056
vb leibie.vb
Public Class leibie
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DGVResult.DataSource = spfl.Loadspfl("", "", "")
End Su
www.eeworm.com/read/383272/8958061
vb frmmain.vb
Public Class FrmMain
Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DGVResult.DataSource = supermarket.loadmain()
End Su
www.eeworm.com/read/383272/8958087
vb frmadduser.vb
Public Class FrmAddUser
Private Sub btok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btok.Click
If Trim(txtno.Text) = "" Then
MsgBox("用户编号不能