witheventsについて教えてください。
- vb6でwitheventsを使用してフォームのイベントを処理する方法について教えてください。
- witheventsを使用してフォームのイベントを処理する際、コマンドをクリックしてもメッセージが表示されない場合、間違いがある可能性があります。
- フォーム側でcommand1を貼り付け、classを作成し、init()関数でコマンドを設定し、cmd_click()関数でメッセージボックスを表示することができます。
- ベストアンサー
witheventsについて教えてください。
お世話になります。 vb6です。 witheventsでフォームのイベントを 処理したい。 form側 1.command1を貼り付け 2.class作成、init() ★3.コマンドをクリックしたら メッセージがでないのですが class側 private withevents cmd as commandbutton public function init() as boolean set cmd = form1.command1 end function private cmd_click() msgbox "ok" end sub 致命的に間違ってると思います。 よろしくお願いいたします。
- sendaitaro
- お礼率67% (43/64)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Form1側から Class側へ コントロールの参照を渡して設定しましょう Class側 Public Sub SetCmd( ByRef btn as CommandButton ) Set cmd = btn End Sub Form側 Dim cls1 as Class1 Sub Form_Load() cls1 = new Class1 cls1.setCmd Me.Command1 End Sub と言った具合に設定します
関連するQ&A
- WithEventsの処理について
複数あるテキストボックス(text1、text2…)にキーボードから入力したらメッセージを出すという独自のイベント処理を 共通の関数を使用しようとした時に以下の処理が挙げられるですがこの処理について ＜クラスモジュール(MsgEvent)＞ Public WithEvents MsgTextBox As TextBox Private Sub MsgTextBox_KeyPress(KeyAscii As Integer) MsgBox MsgTextBox.name ……(1) End Sub ＜フォームモジュール＞ Dim Hairetu(1) As New MsgEvent Private Sub Form_Load() Set Hairetu(0).MsgTextBox = Text1 ……(2) Set Hairetu(1).MsgTextBox = Text2 End Sub 上記の(1)についてnameプロパティの意味がわかりません。 調べたら値の取得とあるのですがその値とは(2)で言えば「=text1」にあたるということですか？ それと(2)のSetを定義しないといけない理由がよくわからないのでお教えください。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- ビジュアルベーシックのお絵かき掲示板
まったくの初心者です。初歩的な質問で申し訳ありません。 カラーのところでクリックが実行できません。 なぜなのかよくわかりません。お暇なときご教授下さい。 そしてもう一つ質問ですが以下のコードを追加したいの ですがどこに挿入すればいいのですか。 →private sub image_click() ccolor = 7 end sub ここまでのコードを追加したいです。 ーーーーーーーーーーーーーーーーーーーーーーーーーー Private Sub Command1_Click() Form1.Cls End Sub Private Sub Command2_Click() End End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.DrawWidth = 3 If Button = 1 Then PSet (X, Y), QBColor(ccolor) End If End Sub Private Sub Label1_Click() cccolor = 14 End Sub Private Sub lavel2_click() cccolor = 0 End Sub Private Sub label3_click() ccolor = 9 End Sub Private Sub label4_click() ccolor = 12 End Sub Private Sub label5_click() ccolor = 10 End Sub
- ベストアンサー
- Visual Basic
- vb2010 Sleepを使うと調子が悪くなる
次のプログラムでButton1を押さないで×を押すと仕事を残して終了した事になり，PCの調子が悪くなります。 なんとか回避できないでしょうか。 Public Class Form1 Private ExitFlag As Boolean = False Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click For I = 1 To 10000 System.Threading.Thread.Sleep(1000) Application.DoEvents() '他のWindows操作を可能にするため If ExitFlag Then Exit For Next ExitFlag = False MsgBox("中止されました") End Sub Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click ExitFlag = True End Sub End Class
- ベストアンサー
- Visual Basic
- Excel VBA で処理中断(DoEvents)ができなくて困ってい
Excel VBA で処理中断(DoEvents)ができなくて困っています。 まず、CommandButton1ボタンでSampleをコールし、Sample処理の中でループを廻し、途中でCommand1ボタンをクリックして、処理中断（DoEventsによって）をいれたいと思っています。 しかし、Command1ボタンをクリックしても処理中断がきかないのです。 グローバル変数ｆStopにはCommand1ボタンをクリックしたときにTrueが入っていることは、MsgBoxで確認していますが、Sample処理の方に値がつたわっていないようで、ループが最後まで止まりません。 コードが悪いのでしょうか、それとも、DoEventsの使い方が悪いのでしょうか。 もし、DoEventsが使えないのであれば、代替手段はありますでしょうか。 （長時間の印刷中の処理中断に応用したいと思っています） 環境はExcel 2002 SP3 , VB 6.0 , Windows XPです。 なお、DoEventsのコードは以下のURLを参考にして作成しました。 http://officetanaka.net/excel/vba/function/DoEvents.htm コードは以下のとおりです。 '********* Dim fStop As Boolean 'グローバル変数を宣言 '********* Sub Sample() Dim i As Long fStop = False For i = 1 To 1000000 DoEvents If fStop = True Then MsgBox "処理が中断されました" Exit For End If Next i End Sub '******** Private Sub CommandButton1_Click() Call Sample End Sub '******** Private Sub Command1_Click() fStop = True MsgBox "fStop=" & fStop End Sub
- ベストアンサー
- Visual Basic
- [Excel VBA]コマンドボタンの入力待ち方法
コマンドボタンの入力を待つ方法についてご教示願います、 以下に詳しい状況と、具体的な質問を記載します。 【構成】 ・ユーザーフォーム上に5つのコマンドボタン（CommandButton1～CommandButton5） 【やりたいこと】 ・CommandButton1を押したらスタート ・1ラウンドにつき1回、CommandButton2～CommandButton5のいずれかのボタンが押せる。 そして、押されたボタンが何かを毎ラウンド判定する。 これを10ラウンドまで繰り返す。 （つまり、どのボタンが押されたかを10回判定する） なお、「ボタンが押されるまでは勝手にループしないこと」。 【コード】（UserFrom1に記載。質問用として、変数名は仮に日本語にしてあります） Public 押された As Long Dim 現在のラウンド As Long Dim 最終ラウンド As Long Private Sub ラウンド処理() 最終ラウンド = 10 For 現在のラウンド = 1 To 最終ラウンド ボタン判定 Next 現在のラウンド End Sub Private Sub ボタン判定() MsgBox 現在のラウンド & "：" & 押された End Sub Private Sub CommandButton1_Click() ラウンド処理 End Sub Private Sub CommandButton2_Click() 押された = 2 End Sub Private Sub CommandButton3_Click() 押された = 3 End Sub Private Sub CommandButton4_Click() 押された = 4 End Sub Private Sub CommandButton5_Click() 押された = 5 End Sub 【詰まっている点】 ボタンの入力待ちになるような文が入っていないため、 「1：0」「2：0」「3：0」…「10：0」とmsgboxが出るだけの状態です。 （当然ですが…） VBAの 【質問】 毎ラウンドごとにボタンの入力待ちのような状態を 「できるだけこの形を崩さずに」組み込むためには、どのような処理を加えればいいでしょうか。
- 締切済み
- Visual Basic
- 同じマクロ名でも、違うモジュールならエラーにならな
同じマクロ名でも、違うモジュールならエラーにならない？ エクセルＶＢＡについてご教授ください。 標準モジュールに ――――――――― Option Explicit Sub CommandButton1_Click() MsgBox "" End Sub Sub CommandButton1_Click() MsgBox "" End Sub ――――――――― と同じマクロ名を2つ作ったら、コンパイルエラーになりますが、 上記のコードは一度消して、フォームモジュールに ――――――――― Private Sub CommandButton1_Click() MsgBox "" End Sub ――――――――― を一つ作り、 標準モジュールに ――――――――― Sub CommandButton1_Click() MsgBox "" End Sub ――――――――― を一つ作った場合は、エラーにならずにマクロを実行できました。 これは、フォームモジュールがPrivate Subだからでしょうか？ フォームモジュールに１つ、 標準モジュールに１つ なら同じマクロ名を使っても、エラーにならないという事でしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- テキストの読み書きがうまくいきません。
次の様なプログラムですが、保存したデータと読み込んだデータが一致しません。更に調べたら、保存したときに改行コードが含まれているようです。改行を入れないようにするには、どうしたら良いでしょうか。 Option Explicit Public A As String Public B As String Private Sub Cmd読込_Click() Open App.Path & "\設定.ini" For Input As #1 Text1.Text = StrConv(InputB(LOF(1), #1), vbUnicode) Close #1 A = Text1.Text End Sub Private Sub Cmd比較_Click() If A = B Then MsgBox ("同じ") Else MsgBox ("違う") End Sub Private Sub Cmd保存_Click() Open App.Path & "\設定.ini" For Output As #1 Print #1, Text1.Text Close #1 B = Text1.Text End Sub
- ベストアンサー
- Visual Basic
- EXCELでの変数によるMacro自動実行について
すいませんが教えてください・・・・・・ EXCELシートにツールボックスより、コマンドボタンを2つ配置しました。 （AUTOMATICはPublic変数で標準モジュールで定義しています Dim AUTOMATIC As Boolean ） ------------------------------------------------------------------ CommandButton_1 : Private Sub CommandButton1_Click() AUTOMATIC = True End Sub CommandButton_2 : Private Sub CommandButton2_Click() AUTOMATIC = False End Sub ------------------------------------------------------------------ あとはEXCELを起動中に、AUTOMATICが Trueでセル（例えばA2のセル）の 値が100のときには Macroを起動したいのですが、どこにどう記述したら いいか教えて欲しいのです。 ------------------------------------------------------------------ CommandButton_1 : Private Sub CommandButton1_Click() if Cells(2,1) = 100 then 'A2はCells(2,1) Macro実行 end if End Sub とAUTOMATICを使用せずに記述しても、毎回CommandButton_1をクリックしな ければMacroが起動することができないので煮詰まってしまいました。 （一度CommandButton_1をクリックしておくとあとはA2セルを監視するだけ でMacroを起動させたい） すいませんがわかる方、教えていただけないでしょうか よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 複数フォームへのイベントの通知方法について
Visual Basic2005にてプログラミングをしております。プログラミング初心者です。 以下、どなたかご教授いただけませんでしょうか？ あるクラスを定義し、そのクラスの1つのインスタントがイベントを出した時に、 フォーム1～フォーム3の各Formにイベントを通知する様なプログラムを作成しております。 複数フォームへのイベントの通知方法として、以下の様なやり方は一般的に正しいのでしょうか？ プログラムを実行させて見ると、動作上は何の問題もなく動いている様に見えますが、 プログラミング経験が少ない事もあり、以下のやり方が本当に正しいのかどうか、あまり自信が持てません。 どなたかご教授いただけると助かります。宜しくお願い致します。 =================================================================================== 'クラスA Public Class classA Public Event StatusChange(ByVal status As Integer) Public Event MassageOutput(ByVal message As String) Private status As Integer Private Sub EventReport1() status = 5 'statusの変更を通知するイベントを生成させる RaiseEvent StatusChange(status) End Sub Private Sub EventReport2() 'メッセージを通知するイベントを生成させる RaiseEvent MassageOutput("メッセージを通知します") End Sub End Class 'モジュール Module moduleA Public myInstance As New classA End Module 'フォーム1 Public Class form1 Private WithEvents myInstance1 As classA Public Sub New() InitializeComponent() myInstance1 = myInstance End Sub Private Sub StatusChange(ByVal message As String) _ Handles myInstance1.MassageOutput TextBox1.Text = message End Sub End Class 'フォーム2 Public Class form2 Private WithEvents myInstance1 As classA Public Sub New() InitializeComponent() myInstance1 = myInstance End Sub Private Sub StatusChange(ByVal status As Byte) _ Handles myInstance1.MassageOutput TextBox1.Text = status.ToString End Sub End Class 'フォーム3 Public Class form3 Private WithEvents myInstance1 As classA Public Sub New() InitializeComponent() myInstance1 = myInstance End Sub Private Sub StatusChange(ByVal status As Byte) _ Handles myInstance1.MassageOutput TextBox1.Text = (status + 10).ToString End Sub End Class ===================================================================================
- ベストアンサー
- Visual Basic
- FORM1からFORM2にパラメータの引渡し
Public class Form1 Private Sub Button1_Click(------------------) Dim textBox1 As String textBox1 = TextBox1.Text End Sub End Class Form1でボタンをクリックし、textBox1の値を モードレスで開いたForm2にtextBox1の値を渡したい と考えていますが、参考となるサイトがなく どのように書いたらいいのかわかりません…。 メソッド(textBox1) 'FORM1側 Public Sub メソッド(ByVal textBox1 As String) ' FORM2側 で出来ると思ったのですが、この場合モードレスで開いたとしても パラメータが渡せない？と思い…。 ヒントでもいいので、アドバイスをよろしくお願いします。
- ベストアンサー
- Visual Basic
お礼
ありがとうございました。 form側の変数のスコープという ことなのでしょうか？ 同じコーディングで変数の定義場所を 変更したらうまくいきました。 大変助かりました。