· Henry的VB.NET之旅（十二）—事件驱动韩睿“可视继承原来这么方便！”我心中默默地感叹一声。一会儿之后，我抬头扫了一眼屏幕上的代码后，突然发现了一个新问题，按钮的单击事件程序现在已经变成了：VB.NET程序VB程序Private Sub btnProtected_Click(ByVal sender As System.Object, ByVal e As Sy...
· <script language="VB" runat="server">
Sub UploadFile(sender As Object, e As EventArgs)If FileUp.PostedFile.ContentLength = 0 Then
FileInfo.Visible = False
Exit Sub
Else
FileInfo.Visible = True
FDisplay1.Visible = True
End IfFSize.Text ="上传文件...
· Public Class ClassChGPrivate vWeight As Integer = 0Private vResultword As String'vDate格式为：1978-8-10'vTime值为：'子：子（23：00～1：00）'丑：丑（1：00～3：00）'寅：寅（3：00～5：00）'卯：卯（5：00～7：00）'辰：辰（7：00～9：00）'巳：巳（9：00～11：00）'午：午（11：00～13：...
· Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If MsgBox("請注意看關閉的視窗", MsgBoxStyle.Question + MsgBoxStyle.OKCancel, "關閉") = MsgBoxResult.OK Then
Dim d As Double
For d = 1...
· 文本框防止非法字符输入：只输入整数：
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...
· Microsoft Corporation
内容简介基于 Intranet Web 应用程序的安全性并不是不重要，因为它存在于许多控制网络中，并且对一个限制集合中的用户是可以访问的。不同个体和部门可能需要对应用程序提供的功能和数据有不同的访问等级，所以在传输过程中仍然必须保护机密数据的安全性。为了使问题复杂化，...
· 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...
· 本文汇集了在.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 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....
· 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/" +...
设为首页
收藏本站
作者：黄振安
您现在的位置： 拓文网络 → 文章中心 → .NET编程 → ASP.NET
