'Imports System
'Imports System.Collections.Generic
'Imports System.ComponentModel
'Imports System.Data
'Imports System.Drawing
'Imports System.Linq
'Imports System.Text
'Imports System.Windows.Forms
'Imports System.Diagnostics
Namespace lxw_mysql_helper
Public Partial Class frmMain
Inherits Form
报错未定义Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As EventArgs)
System.Text.txtName.Enabled = False
' txtPwd.Enabled = False
报错不是System.Text.txtName.、 txtPwd不是Text成员
Public Shared Sub RunCMD(ByVal workingDirectory As String, ByVal command As String)
Dim p As Process = New Process()
报错模块中不能Shared
Dim command As String = sbcommand.ToString()
ShowLog("命令:" & command)
RunCMD(appDirecroty, command)
ShowLog("路径:" & directory)
报错RunCMD(appDirecroty, command),RunCMD保护不能访问
Private Sub btnSelectMysqlPath_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim path As FolderBrowserDialog = New FolderBrowserDialog()
If Not String.IsNullOrEmpty(txtMysqlPath.Text) Then
path.SelectedPath = txtMysqlPath.Text
End If
报错txtMysqlPath保护不能访问
Private Sub ShowLog(ByVal log As String)
rtxtShow.AppendText(log & vbCrLf)
End Sub
报错rtxtShow保护不能访问
Private Sub btnEdit_Click(ByVal sender As Object, ByVal e As EventArgs)
If btnEdit.Text = "修改" Then
txtName.Enabled = True
报错btnEdit.保护不能访问