· 走近VB.Net（七）在窗体上画图如果看过一些文章一定知道在窗体上画图要使用system.drawing类，在VB.Net中没有line与label控件，需要自已写一些代码，首先写一个事件过程onpaint.在显示窗体的同时显示图形Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)'TODO: 请在此处添加绘图代码En...
· 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编程
