· Dim tep As StringDim temp As StringDim i As IntegerDim B As IntegerDim rems As Stringtep = rmsgi = Len(tep)If i < 1 Then Exit FunctionB = i / 2If i = B * 2 Thentep = Left(tep, B * 2)ElseB = B - 1tep = Left(tep, B * 2)End Ifchg7 = ""rems = ""Dim trint As...
· Dim tep As StringDim temp As StringDim i As IntegerDim B As Integertep = rmsgi = Len(tep)If i < 1 Then Exit FunctionB = i / 4If i = B * 4 Thentep = Left(tep, B * 4)ElseB = B - 1tep = Left(tep, B * 4)End Ifchg = ""For i = 1 To Btemp = "&H" & Mid(...
· Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")TextBox1.Text = ""For Each WmiObj As Mana...
· 设计思想：
在VB中数姐最大维数是60，所以我们通过错误捕捉来处理这个问题，在这里我们用到UBound函数
Public Function ArrayRange(mArray As Variant) As IntegerDim i As IntegerDim Ret As IntegerDim ErrF As BooleanErrF = FalseOn Error GoTo ErrHandle'判断代入的参数是否为数组 If Not Is...
· Function CriaDiretorioVirtual(ByVal vdirname As String, ByVal serverID As String, ByVal vdirPath As String, ByVal criaApplication As Boolean) As DirectoryEntryDim newvdir As DirectoryEntryDim root As DirectoryEntryroot = New DirectoryEntry("IIS://localhost/W3SVC/" +...
· Dim dt As New DataTabledt.Columns.Add(New DataColumn("UserID"))dt.Columns.Add(New DataColumn("IPP"))Dim dr As DataRow = dt.NewRowdr.Item("UserID") = "324"dr.Item("IPP") = "210.74.232.26:3824"dt.Rows.Add(dr)MsgBox(dt....
· 本文汇集了在.NET中得到计算机硬件信息的一些功能。得到显示器分辨率
Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
Dim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
MsgBox("您的显示器分辨率是：" & X & " X &q...
· Dim acc As Object
Set acc = CreateObject("Access.Application")
If Right$(Trim$(App.Path), 1) = "\" Then
acc.OpenCurrentDatabase App.Path & "data.mdb"
'打开数据库
Else
acc.OpenCurrentDatabase App.Path & "\data.mdb"End If
acc.docm...
· Microsoft Corporation
内容简介基于 Intranet Web 应用程序的安全性并不是不重要，因为它存在于许多控制网络中，并且对一个限制集合中的用户是可以访问的。不同个体和部门可能需要对应用程序提供的功能和数据有不同的访问等级，所以在传输过程中仍然必须保护机密数据的安全性。为了使问题复杂化，...
· 文本框防止非法字符输入：只输入整数：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack'nop
Case ElseKeyAscii = 0
End Select
End Sub只输入小数:Private Sub Text1_KeyPress(KeyAscii As Integer)
Select...
设为首页
收藏本站
作者：黄振安
您现在的位置： 拓文网络 → 文章中心 → .NET编程 → ASP.NET
