私はこれを持っていますform
そして、私はこれを持っていますcode
'For Tab Schedule
Dim Schedule_Tab = frmSettings.Tab_Schedule.Controls 'the tab page for schedule
Dim Panel_Set_Num As String
Dim Set_Num As String = "00"
Public Function Schedule_Get() As String
For Each Ctrl_Panel_Set As Control In Schedule_Tab
If TypeOf Ctrl_Panel_Set Is Panel And Ctrl_Panel_Set.Name.StartsWith("Panel_Set_") Then
For Each Ctrl_Lbl_Temp In Ctrl_Panel_Set.Controls
If TypeOf Ctrl_Lbl_Temp Is Label Then
If Ctrl_Lbl_Temp.Name.StartsWith("Lbl_Temp_") Then
If Ctrl_Lbl_Temp.Text = "0" Then
Panel_Set_Num = CType(Ctrl_Panel_Set, Panel).Name
Set_Num = "CSR" & Panel_Set_Num.Substring(Panel_Set_Num.Length - 2) & "^"
Return Set_Num
End If
End If
End If
Next
End If
Next Ctrl_Panel_Set
Return "Done"
End Function
そして、私はこれを持っていますerror
1. 'As' 句のない変数宣言。想定されるオブジェクトの型。
2.エラーとして扱われる警告: 'As' 句のない変数宣言。想定されるオブジェクトの型。
emphasize
エラーはこのコード行にあります。
Dim Schedule_Tab = frmSettings.Tab_Schedule.Controls 'the tab page for schedule
エラーの内容に従おうとしましたが、この種のエラーが発生しました。changed
Dim Schedule_Tab
Dim Schedule_Tab As Form.ControlCollection
An unhandled exception of type System.TypeInitializationException' occurred in xxxxxxxxx.exe
Questions:
- その状況で私は何をすべきですか?
- どのように宣言すればよい
Schedule_Tab
ですか?