- ベストアンサー
Hideについて（.NET)
Form1をHideで非表示にし、Form2を開いた後、再びForm1を表示したいのですがうまくいきません。 [form1のイベント] Dim frmForm2 as New Form2 frmForm2.Show Me.hide Sub End [form2のイベント] Dim frmForm1 as New Form1 frmForm1.Show Me.Close Sub End としてあります。 非表示されたフォームを再表示されずに、新しくフォームが開いてしまっていると考えられるんですが、どうしたらよいでしょうか？
- fuchir
- お礼率66% (6/9)
- Visual Basic
- 回答数2
- ありがとう数3
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
form2で行っている, Dim frmForm1 as New Form1 の行の意味は frmForm1と言う、「新しい」Form1クラスのインスタンスを発行する、と言う意味です。 だから新しいFormが開いてしまうのです。 一番簡単に基のFormを再表示したいのであれば [Form1] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fm2 As New Form2 fm2.PreForm = Me Me.Hide() fm2.Show() End Sub [Form2] Public PreForm As Form Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PreForm.Show() Me.Close() End Sub ですかねえ。 他だとShowDialog()の使用も候補になるかと。
その他の回答 (1)
- gatyan
- ベストアンサー率41% (160/385)
form2で As New している… .Netは使ったこと無いけれど、 Showメソッドのデフォルトがモーダルなら（モーダルで表示させれば） Me.Hide frmForm2.Show Me.Show で目的が果たせるのでは？
お礼
As Newをしているから、新しくフォームが作られるんですね。 ご回答ありがとうございました
関連するQ&A
- VB.NETについての質問なんですが
SubMainで「Form1」をshowで開き、その「Form1」の中で「Form2」をshowで開いた後、「Form1」だけをCloseで閉じたいのですが、「Form1」をで閉じてしまうとプログラムが終了してしまいます。 Public Class Form1 : : Private Sub Button1_Click…… Dim frmForm2 as New Form2 frmForm2.Show Me.Close Sub End End Class 良い方法があればアドバイスをお願いします
- ベストアンサー
- Visual Basic
- form2 から form1に戻ったとき、form1のTextboxの内容を消したくないのですが
.NETのBasicでform1からform2に移行するため Dim F2 As New Form2() Me.Hide() F2.Show() この後、form1にもどるため Dim F1 As New Form1() F1.Show() Me.Hide() 上記のように書くと、form1のTextboxの内容が消えてしまいますよね。 これを消さずにまたform1のTextboxの編集が続けられるようにしたいのですが、どうすればいいでしょうか ただ単にform1を見えなくする方法が違うのでしょうか 初歩的な質問ですいません。
- ベストアンサー
- Visual Basic
- VB6.0のHideのバグ?
いつもお世話になっております。 以下の疑問点が出ています。 どなたか答えをご存知の方がおりましたらご回答願います。 [現象] Form1からForm2を呼び出し、Form1をhideしても Form1が隠れない。 [条件] Form1のボタンをクリック後、すぐに何でもいい(フォルダを開いたウィンドウとか)のでウィンドウを最前面に表示してください。 [プログラム] --form1-- Private Sub Command1_Click() On Error GoTo ERROR_END Screen.MousePointer = vbHourglass '請求書作成画面に移行 Form2.Show Screen.MousePointer = vbDefault Exit Sub ERROR_END: Screen.MousePointer = vbDefault MsgBox Error(Err) End Sub Private Sub Form_Load() Me.Show Screen.MousePointer = vbDefault End Sub --form2-- Private Sub Form_Load() Dim i, strsql For i = 0 To 50000000 strsql = "時間稼ぎ" Next Me.Show Form1.Hide Screen.MousePointer = vbDefault End Sub [Form] Form1にコマンドボタンを一つ配置するだけでOKです。 [環境] WinXP SP1 VB6.0 SP6 [その他] WIN98ではこの事象は起こらないと報告受けてます。 バグならばバグと、PGミスならミスと明確に答えていただけると大変助かります。 どうぞよろしくお願いします。
- ベストアンサー
- Visual Basic
- VB.netで標準モジュールからフォームを呼び出す
お世話になります。 標準モジュールから以下のようにフォームを呼び出しているんですがうまく表示されません。 どこが悪いんですか？ 標準モジュール内---------------------- Public Sub Main() Dim frm1 As New Form1 frm1.Show() End Sub
- ベストアンサー
- Visual Basic
- クリックするたびに、フォームが複数表示される
下記のコードだと Private Sub Button1_Click(・・・ Dim f2 As New Form2() f2.Show() End Sub ボタンをクリックするたびに、同じフォームが表示されます。 同じフォームが開かないようにしたいのですが、どうすればいいのでしょうか？ バージョンは、Visual Basic .NETです。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- VB2010でMDI親フォームから子フォームを表示
VB2010でソフトを作っております。 MDI親フォームから子フォームを表示させたいのですが…。 過去に少しだけVB6を使っていたことがありますが、クラスという概念に苦労しております インスタンスや初期化といったところをうまく扱えばとは思うのですが、よろしくご指導お願いいたします。 1.MDI親フォーム(Form1)のボタンを押し、子フォーム(Form2)を表示させる 2.子フォームが表示されていなかったら表示させる 3.子フォームが表示されていたら何もしない これだけの事ですがずいぶん悩んでおります。 全コードがこれです。 Public Class Form1 Private f2 As New Form2 Private Sub Form1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.IsMdiContainer = True End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fChild As Form() = Me.MdiChildren For Each f As Form In fChild If f.Text = "Form2" Then Exit Sub End If Next f2 = New Form2 f2.MdiParent = Me f2.Show() f2.Activate() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If f2 Is Nothing OrElse f2.IsDisposed Then f2 = New Form2 f2.MdiParent = Me End If f2.Show() f2.Activate() End Sub End Class ボタン１でもボタン２でも、期待する動作はするのですが、 ボタン１ではアクティブになっているフォームの名前を力技で取得している気がして… ボタン２では子フォーム(Form2)をすでに表示している状態でもさらにShowをしているのが気に入らなくて… もっとスマートな方法がありましたら、ご指導お願いします。
- ベストアンサー
- Visual Basic
- フォームを画面のど真ん中に表示させたいのですが
フォームを画面のど真ん中に表示させたいのですが、 http://dobon.net/vb/dotnet/form/startposition.html を見たのですがコードの書き方がよくわかりません。 Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim f As New Form1() 'フォームを画面の真ん中に表示する f.StartPosition = FormStartPosition.CenterScreenf.Show() End Sub End Class こうすると、「FormStartPosition.CenterScreenf」の部分に波線がひかれます。 Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.StartPosition = FormStartPosition.Manual Me.Location = New Point(0, 0) End Sub End Class これで左は時に表示する事は出来るのですが、真ん中に表示させるにはどうすればいいでしょうか？
- ベストアンサー
- Visual Basic
- (VB2008)ShowDialogしたFormを閉じた時の、画面の挙
(VB2008)ShowDialogしたFormを閉じた時の、画面の挙動について (VB2008EE、OSはVista) Form1からForm2を（ボタンのクリックイベントで） Dim f As New Form2 f.Show(Me) と記述して表示させたあと、 Form2の（ボタンのクリックイベントで） Me.Hide() として、Form2を閉じる記述を書きました。 で、Form2をShowDialogしてから、Hideを実行すると、 Form2が消えるのはいいのですが、残るForm1が、 ・デバッグ実行時は、VB2008EEのWindowの後ろに隠れてしまい、そのままとなる。 ・リリースビルドでは、さすがにそのままとはなりませんが、一旦Form1が ちらつきます。 この回避策がありましたら教えてください。 。。。 ここからは、いろいろ実験した結果です。 ・試しに、Me.Hide()の後ろに、Threading.Thread.Sleep(5000)を 記述して実行すると5秒間Form1が後ろのアプリ画面に隠れた後、 Form1が前に表示される。 ・この場合の「後ろの別アプリのWindow」について、その別アプリが VB2008やエクスプローラだとForm2がそのアプリに隠れるのですが、 ExcelやIEだと、Form1が後ろに隠れることがないようです。。。 ・Hideではなく、Closeだと、後ろには隠れません。 （ただし、Closeの場合、Threading.Thread.Sleep(5000)の間はForm2は その前にClose()があっても、表示されたままSleepしその後閉じます） ・さらにShowDialog()でなく、Show()の場合、Owner指定して実行した場合は、 （つまりSHow(Me)）全く問題なく、Form1が前面に表示されたまま 他のアプリが前に来ることはないのですが、 Ownerを指定せずにShowしたところ、ShowDialogと同様のことが起きるようです。 もし、これらの現象全体についてしっかりと説明できる方がいらっしゃれば、 説明もしていただけるとうれしいです。
- ベストアンサー
- Visual Basic
- ＶＢ2010で、2つめのフォームを表示させると、フォームを閉じるまで1
ＶＢ2010で、2つめのフォームを表示させると、フォームを閉じるまで1つめのフォームの操作ができないのですが、どなたか解決方法を御存じないでしょうか。 よろしくお願いします。 Form1のピクチャーボックスに描いた折れ線グラフ上のカーソル（Form11）が、 マウスの動きに合わせてグラフ線上をたどっていくようにしようとしています。 【Form1のボタンを押すと2つめのフォームを呼び出す】 Dim Mark As New Form11 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 'グラフカーソル表示 Mark.Show() 【呼び出されたフォームのコード】 Imports System.Drawing Public Class Form11 Private Sub Form2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint 'フォームのクライアント領域のサイズを設定 Me.ClientSize = New System.Drawing.Size(20, 20) 'カーソルを描く Dim MarkPen As New Pen(Color.Red, 1) Dim g As Graphics = e.Graphics g.DrawEllipse(MarkPen, 0, 0, 20, 20) '円の描画 Me.TopMost = True '最全面 Me.TransparencyKey = Me.BackColor '透明色の設定 Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None '枠なし End Sub End Class
- ベストアンサー
- Visual Basic
- VB2005で、フォームを初期化したいのですが、教えてください。
VB2005で、フォームを初期化したいのですが、教えてください。 VB2005で、フォームにデータベース内容(ORACLE)を表示するプログラムを作っています。その際、F8キーを押すと画面内容（テキストボックスやDatagridviewの編集内容）を初期ロード状態に戻すようにしたいと思い、F8キー押下時のイベントに、以下のようにプログラムしました。 dim frm as form frm = new form1 me.close frm.show() としてみましたが、me.closeで、プログラムが終了してしまうようです。 どうするのが適切かお教えください。
- ベストアンサー
- Visual Basic
お礼
なるほど、[Form2]に予めpublic権限でPreFormを作っておき、[Form1]を実行時にMe(form1)をPreFormに入れることで、[Form2]でも再び[Form1]を呼び出すことが出来るんですね。 適切な回答ありがとうございました。先ほども助かりました。