0

私はこれを持っています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_TabDim Schedule_Tab As Form.ControlCollectionAn unhandled exception of type System.TypeInitializationException' occurred in xxxxxxxxx.exe

Questions:

  1. その状況で私は何をすべきですか?
  2. どのように宣言すればよいSchedule_Tabですか?
4

2 に答える 2

0

試す

Dim Schedule_Tab as New frmSettings.Tab_Schedule.Controls
于 2015-08-10T01:10:41.483 に答える