· Public Sub ShowFiles(ByVal strDirectory As String) livPc.BackColor = System.Drawing.SystemColors.ControlLightLight ' Save the directory name as a field. Me.strDirectory = strDirectory livPc.Items.Clear() Dim diDirectories As New DirectoryInf...
· Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim connStr, selectCmd As String, i As Integer connStr = "Server=...; database=...; uid=...; pwd=...;" selectCmd = "SELECT * FROM ...&quo...
· Public Class Form1 Inherits System.Windows.Forms.Form Private mouse_offset As Point Private Sub form1_MouseDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown mous...
设为首页
收藏本站
作者：黄振安
您现在的位置： 拓文网络 → 文章中心 → .NET编程 → VB.NET
