· 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...
· 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：...
· <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 ="上传文件...
· Henry的VB.NET之旅（十二）—事件驱动韩睿“可视继承原来这么方便！”我心中默默地感叹一声。一会儿之后，我抬头扫了一眼屏幕上的代码后，突然发现了一个新问题，按钮的单击事件程序现在已经变成了：VB.NET程序VB程序Private Sub btnProtected_Click(ByVal sender As System.Object, ByVal e As Sy...
· 走近VB.Net（七）在窗体上画图如果看过一些文章一定知道在窗体上画图要使用system.drawing类，在VB.Net中没有line与label控件，需要自已写一些代码，首先写一个事件过程onpaint.在显示窗体的同时显示图形Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)'TODO: 请在此处添加绘图代码En...
· 走近VB.Net(二) 再谈函数调用在VB6中如果你想调用一个对话框,首先你知道要使用vb内置的MsgBox函数，你甚至于使用API，大部分人乐于使用API。如下：
Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal...
· 我编一个串口通讯的程序，接受一个单片机的数据，程序总出错，但是在接收时加一个中断，就能得到正确的结果，vb可不可以实现虚拟中断，我试了延迟，但是不行，清高手指教！！！部分程序如下：byin = MSComm1.Input
For i = LBound(byin) To UBound(byin)?? ，在这加中断能得到正确结果If byin(i) &...
· Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As BooleanPublic Function OpenCn() As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Pr...
设为首页
收藏本站
作者：黄振安
您现在的位置： 拓文网络 → 文章中心 → .NET编程 → ASP.NET
