VB6クラスでフォームコントロール操作：プログレスバーの経過表示方法は？

前へ 次へ
このQ&Aのポイント
  • Visual Basicの学習中、データベース操作用のクラスを作成し、任意のフォームに配置したプログレスバーに経過を表示したい。
  • プログレスバーと引数で宣言されたコントロールへのポインタを渡す方法について教えてください。
  • 現在コントロールを渡す際に構文エラーが発生してしまいます。適切な方法はありますか？
回答を見る
  • ベストアンサー

VB6 クラスによるフォームコントロール操作。

お世話になってます。 初歩的な質問でしたら申し訳ありません。 現在 Visual Basic を学習しています。 データベース操作用のクラスを作り、 データベース処理の間、呼び出し元の任意のフォームに配置した プログレスバーに経過を表示したいと思っています。 そこでこのようなプログラムを書きました。 ■呼び出し元フォーム ---------------------------- Dim oDB As New AccessDB Private Sub Button_Click() 　　' myProgressBar : Meに配置したプログレスバー 　　oDB.CreateMDB("hoge.mdb", myProgressBar) ' (1) End Sub ■データベース操作用クラス(AccessDB) ------------ Public Sub CreateMDB(strFile As String, pProgress As ProgressBar) 　　pProgressBar.Max = 100 　　　処理 End Sub myProgressBar と、DB操作クラスの引数で宣言される pProgress はポインタとして渡せるのではないかという概念です。 しかし実行すると、(1)の呼び出しで構文エラーが出てしまいます。 このようにコントロールを渡す場合には、 どのようにすればよいのでしょうか。

質問者が選んだベストアンサー

  • ベストアンサー
  • BLUEPIXY
  • ベストアンサー率50% (3003/5914)
回答No.1

単に、 oDB.CreateMDB "hoge.mdb", myProgressBar にすればいいかと思います。 （）をつけると一般にfunction 呼びだしに解釈されます。 Call oDB.CreateMDB("hoge.mdb", myProgressBar) の様に、頭にCallを付ければ（）を付けても大丈夫です。

komugi100g
質問者

お礼

回答ありがとうございます。 お陰でできました ヽ(*´▽)ノ ちゃんと言語仕様を見てから書くことにします ＾＾；

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VBでModule１からForm1のコントロールを操作したい

    VB.NETでForm1のProgressBarをForm1.VBからではなく外部Module1.vbのサブルーチンから操作する方法はありませんか。"Dim　Form1 as New Form1"などとするともうひとつフォームが開いたりしてうまくいきません。現在、下記の様にしてもうひとつ別のForm２を開いてプログレスバーを表示しております。 できるなら、Form1だけで済ませたいと思っております。 勉強不足でわかりません。どなたか教えてください。 Form2.Show() Form2.ProgressBar1.Minimum = 0 Form2.ProgressBar1.Maximum = 学習回数 Form2.ProgressBar1.Visible = True For 繰り返し = 1 To 学習回数 Form2.ProgressBar1.Value = 繰り返し Form2.lbl解析中.Text = 繰り返し Form2.Label1.Update() Form2.lbl解析中.Update() 　　　　　＊＊＊＊処理＊＊＊＊ Next

  • (;゜д゜)ユーザーフォームでプログレスバーを使いたいが・・・存在していない！！(;゜д゜)

    お世話になっております。 プログレスバーについて教えて下さい。 ユーザーフォームを使いそこにプログレスバーが配置できるとネット上で調べたので使おうと思いました。 ところが・・・ツールボックスにプログレスバーがありません(;゜д゜)ァ.... 探してみたのですがどこにも見つかりません。エクセルが壊れているのでしょうか？ また、プログレスバーについてどういう風にやったらできるのかというのを見ていたのですがどう動いているのか理解力が無いため理解が出来ません・・・ 下記のようなコードがあり作動している間はバーを動かしたいのですがどうしたらいいでしょうか・・・ Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim r As Range For Each r In Target MyProc r Next End Sub Sub MyProc(Target As Range) ・ ・ ・ ・ ・ End Sub

  • VB.netでフォームを継承して新しいクラスを作る方法

    VB6では Public Sub replaceForm(fromF As Form, toF As Form) fromF.myhide toF.myshow ... End Sub Form1 で public sub myshow() ... End Sub public sub myhide() ... End Sub Form2 で public sub myshow() ... End Sub Public sub myhide() ... End Sub として、ある関数で 　　replaceForm Form1,Form2 ... replaceForm Form2,Form3 を実行、というようにしていました。 しかし、VB6ではfromFに渡す各フォームにpublic subとしてmyshow(),myhide()を書くだけでうまくいったのですが、.netでは厳密にコンパイルするためにFormクラスのメソッドとして認識されずにコンパイル時にはじかれます。 Formを継承してSuperFormクラスを作り、そのに標準のメソッドとしてmyshow,myhideメソッドを実装したいのですが、どのようにすればよいでしょうか？ よろしくお願いします。

  • VB2008で親フォームから子フォームを開いたときの処理で

    VB2008で親フォームから子フォームを開いたときの処理で 質問させて頂きます。 親フォームから子フォームを開いて、 子フォーム画面ロード時に、TreeViewにノードを追加する処理を行おうとするのですが、 ノードの追加ができません。 親フォームから子フォームの呼び出しの部分 Using frmAct As New form2 frmAct.ShowDialog() end using 子フォームLoad処理 Private Sub F_Actresult_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call MP_hogeload() ←別のモジュールからサブルーチンを呼び出してノード処理を追加させる。 End Sub 外部サブルーチン Public Sub MP_hogeload() With form2 .trehoge.Nodes.Add("hoge") end with end sub 同じ子フォーム内に記述している場合は問題なく追加できています。 この開き方の場合、別のモジュールでノードを追加させる方法を探しています。 よろしくお願いいたします。

  • オブジェクト型の変数にフォームを入れて操作した

    オブジェクト型の変数にフォームを入れて操作したいのですが Sub アクセス() Dim F As Form Set F = "フォーム1" End Sub 以下省略 フォーム1の部分が 「型が一致しません」と言うエラーになりまず。 どこが間違ってるのでしょうか？

  • [VB6] フォームを閉じる方法について

    お世話になります。 VB6で別フォームを起動する際の親フォームの閉じ方について 質問させてください。 呼び出し元フォームからShowメソッドで別フォームを起動すると、 呼び出し先のフォームでマウスのカーソルが砂時計表示になってしまいます。 （呼び出し元のフォームはUnload Meで閉じています。） [Form1の処理] Private Sub Button1_Click() Form2.Show Unload Me End Sub ※Form1は呼び出し元。Form2は呼び出し先。 原因について、どなたかご存知の方がいらっしゃいましたら、 ご教授願えますか？

  • フォームを閉じないようにする　VB6 SP6

    VB6 でプログラムを作成中です。 プログラムを実行して、フォームが立ち上がった所で右上の×を押し、画面を閉じようとします。 そこで以下のコードで、もし×が押されたらvbYesNoメッセージボックスを表示させ、もし「いいえ」が押されたらフォームを閉じないようにし、実行画面を維持したいのです。 しかし、Exit Sub　ですとプログラムが終了してしまい、困っています。宜しくお願い致します。 Private Sub Form_Unload(Cancel As Integer) 'フォームを閉じる Dim last As String last = MsgBox(" プログラムを終了させますか？", vbYesNo, "終了確認１") If (last = vbYes) Then Dim last2 As String last2 = MsgBox(" 本当にプログラムを終了させますか？", vbYesNo, "終了確認２") If (last2 = vbNo) Then Exit Sub End If End If If (last = vbNo) Then Exit Sub End If End Sub

  • Labelでプログレスバーの表示

    いつも大変お世話になっております。 動作が重いマクロ、プログラムが多いため、 プログレスバーを表示させたいと思っています。 フォームを20個以上準備しており、 それに対し プログレスバーを使いたいのが10個程度であり、 今後増えるかもしれません。 そのため、標準モジュールを利用し、簡単に プログレスバーを設定できないかと思っています。 '=================== 【標準モジュール Module1】 Sub　Bar_progressBarData(Byval UserFormName as string, Byval MaxData as Long,LabelName as string) 'UserFormName 引用するところ？のユーザーフォーム名 'MaxData　バーの最大値設定 'LabelName バー表示するラベル名 'ProgressBarの初期設定などをやる End sub '------------------------- Sub　Bar_progressBarInt(Byval UserFormName as string, Byval MaxData as Long,LabelName as string) 'UserFormName 引用するところ？のユーザーフォーム名 'MaxData　バーの最大値設定 'LabelName バー表示するラベル名 'ProgressBarの値を増やしていく（増加させていくプログラム） End sub '================= 【UserForm　Test】 Sub　DataChangeGraph() 'ループが多いデータ Call　Bar_progressBarInt(Me.Name,10,"Label1")'バーの値を増加させていく End Sub Private Sub UserForm_Initialize() Call　Bar_progressBarData(Me.Name,10,"Label1")'初期設定（例として、max10にしました) End Sub Maxの値、プログレスデータに使用する値は グローバルに設定してしまうというのも楽かもしれません。 しかし、この続きの肝心なプログラムが分かりません。 「プログレスバーの作り方」 h ttp://www.h3.dion.ne.jp/~sakatsu/ProgressBarTopic.htm このサイトが良いと評判でしたので、 見ましたが何をしているのか良く分かりませんでした。 Widthを設定？ Dim sngBarMaxWidth As Single？ そして、私がやりたいこととは少し違うようです。 私がやりたいのは、フォーム上に毎回プログレスバー用のプログラムを書くのが面倒だったので、 標準モジュールとしてSubプロシージャを作成（日本語？ そして、それを引用してプログレスバーの設定を簡単に終わらせる ということがしたかったのです。 できれば、ラベルなど Excelに標準で備わっているものを使用したいと思っています。 プログレスバー専用のツール（参照設定などを用いるもの） はその後にエラーが出たとき困るので、使いたくありません。 なんとなく伝わったでしょうか？ 回答よろしくお願い致します。 Excel2003　VBA

  • フォーム上の任意のコントロール上でのイベントをまとめてハンドリングする方法

    .NETにおいて、フォーム上に配置されたコントロールで発生したイベントを、各コントロールごとではなくて、まとめてハンドルする方法はないでしょうか。 例えば次のようなフォームがあります。 （Button1, Button2, Button3は、フォームに配置されたボタンとします） Public Class MyForm 　　Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click 　　End Sub End Class ボタンが３つ程度の場合はこれで良いと思うのですが、例えば(極端に言えば)ボタンが100個ある場合、 Handles Button1.Click, Button2.Click, (途中省略.....) Button100.Click と書くしかないのでしょうか。 後で対象コントロールが増えたり減ったりした場合に間違いが起こりそうなので、このような書き方は避けたいです。 フォーム上のどのコントロールでも構わないからとにかくクリックイベントが発生したことを知るための方法はないでしょうか。 例えば次のようなかんじでハンドリングできないでしょうか。 Private Sub All_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles フォーム上の任意のコントロールでのClickイベント End Sub （環境はVB.NET2005です）

  • VB6構造体をVB2008クラスで行う場合

    何方かの質問「VB6構造体をVB2008クラスで行う場合」 の回答プログラムにて参考とさせて頂きましたが 申し訳ありません、初心者しにて・・・・・教えてください。 値を「登録、参照部分」のクラス(抜粋) Public Class Program 　　Public Shared Sub Main() 　　　（省略） 　　End Sub End Class 上記部分なのですが (1)Sharedを使用する訳はなんでしょうか？(省いても問題ありませんか？) (2)登録、参照部分のクラスPublic Shared Sub Main()を「登録のメソッド」と「参照のメソッド」に 　　分けたいのですがどうしてもうまくいきません。 　　何方か御教授願えないでしょうか？ よろしくお願いします。 「以下何方かの質問の回答プログラム」 ■クラス＋コレクションクラス Public Class Group 　　Public MainID As Integer 　　Public SubID As Integer 　　Public Value1 As Integer 　　Public Value2 As Integer End Class Public Class GroupCollection : Inherits System.Collections.Generic.Dictionary(Of Integer, Group) 　　Public Shadows Sub Add(ByVal Item As Group) 　　　　MyBase.Add(Item.SubID, Item) 　　End Sub End Class Public Class Program 　　Public Shared Sub Main() 　　　　Dim DataDict As New GroupCollection 　　　　Dim NewGroup As New Group 　　　　NewGroup.MainID = 1 　　　　NewGroup.SubID = 101 　　　　NewGroup.Value1 = 123 　　　　NewGroup.Value2 = 234 　　　　DataDict.Add(NewGroup) 　　　　Console.WriteLine(DataDict.Item(101).Value2) ' 出力 234 　　End Sub End Class

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する