我有 3 個表單，form2 包含一些我想在 form3 的資料網格視圖中顯示的資訊，我在網上搜索了如何做，所以我并不是那么精通或完全理解我撰寫的更改和/或代碼，只要它有效。現在的問題是來自其他表單 1 和 2 的按鈕應該隱藏和/或顯示其他表單，有錯誤，這是一個專案，我將不勝感激您的幫助，謝謝。
form1（錯誤 1，粗體）
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
gin.Click
Dim nun As String = "apple"
Dim pw As Single = 7
Dim name As String
Dim wd As Double
name = name.Text
wd = word.Text
If (name = nun And wd = pw) Then
Me.Hide()
**try**.Show() ' error here
Else
MsgBox("Denied", vbOKOnly MsgBoxStyle.Critical, "TRY AGAIN") End If
End Sub
form2（資料網格視圖的代碼）
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Save.Click
view.dgvView.CurrentRow.Cells(1).Value = Id.Text
view.dgvView.CurrentRow.Cells(2).Value = fruit.Text
view.dgvView.CurrentRow.Cells(3).Value = veggie.Text
view.dgvView.CurrentRow.Cells(4).Value = pasta.Text
view.dgvView.CurrentRow.Cells(5).Value = drink.Text
End Sub
表格3（其中錯誤2是粗體的，上面的代碼是我不完全理解的代碼）
Public Class sky
Private Sub dgvView_CellContentClick(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles sky.CellContentClick
If e.ColumnIndex = 1 Then
Dim entry As New sky(Me)
entry.ShowInTaskbar = False
entry.ShowDialog()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles blue.Click
Me.Close()
**sky**.Show()
End Sub
End Class
uj5u.com熱心網友回復：
frmEntry不是變數，而是型別（類名）。您可以使用entry創建的變數Dim entry As New frmEntry(Me)來訪問表單物件。但是由于這個變數是一個區域變數，它只能在宣告它的 Sub 內部訪問。在類級別（在 Sub 之外）宣告它，以便其他 Sub 可以訪問它。
Public Class frmView
Dim entry As frmEntry ' <===== declare here
Private Sub FirstSub()
entry = New frmEntry(Me) ' <==== Create and assign here
entry.ShowInTaskbar = False
entry.Show()
End Sub
Private Sub SecondSub()
entry.Close() ' <=== Reference it from somewhere else
End Sub
End Class
請注意，類（因此也是表單）是參考型別。除了像 那樣的值型別之外Integer，參考型別的變數不存盤分配給它的物件，而是存盤對該物件的參考。看到不同：
Dim a, b As Integer
Dim f1, f2 As frmTest
a = 5
b = a
b = 10
' Now a = 5 and b = 10
f1 = new frmTest()
f1.Text = "Test 1"
f2 = f1
f2.Text = "Test 2"
' Now f1.Text = "Test 2" and f2.Text = "Test 2" because there is only one Form
' object referenced by the two variables.
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/352604.html
上一篇：在另一個網路表單中填充清單