RS232C 設定反映 (ID:123497)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 申し訳ございません。重要なこと質問ミスしていました。 まず、最初ここで”コンパイルエラー 変数が定義されていません”となったため(エラー箇所は下に記入しました） そのため Dim ctlComm As Object の一行を追加してしまいました。 そして、質問で上げたソースがその一行を付け足す前のソースでした。 その後のエラーは Dim ctlComm As Object の一行を追加した状態でのエラーということになります。 ヤヤコシクしてしまって申し訳ありません。 Commitに関しては使用方法がわからないので、調べております；； ↓設定ボタンを押したときのプログラム Private Sub cmdSetup_Click() COMM_DATA.comm_port = CInt(Mid(cmbCommPort.Text, 4)) COMM_DATA.port_speed = cmbPortSpeed.Text COMM_DATA.data_bit = cmbDataBit.Text COMM_DATA.stop_bit = cmbStopBit.Text If cmbParity.Text = "なし" Then COMM_DATA.parity = "N" ElseIf cmbParity.Text = "奇数" Then COMM_DATA.parity = "O" ElseIf cmbParity.Text = "偶数" Then COMM_DATA.parity = "E" End If If cmbFllow.Text = "なし" Then COMM_DATA.fllow = "0" ElseIf cmbFllow.Text = "ソフトウェア" Then COMM_DATA.fllow = "1" ElseIf cmbFllow.Text = "ハードウェア" Then COMM_DATA.fllow = "2" End If If commOpen(ctlComm) = 0 Then ←ここのctlCommへカーソルが行きエラーとなりました。 MsgBox "設定完了", vbCritical, "確認画面" End If End Sub