フォームを画面のど真ん中に表示させたいのですが、
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
これで左は時に表示する事は出来るのですが、真ん中に表示させるにはどうすればいいでしょうか?
No.5ベストアンサー
- 回答日時:
Formのコード Form1.vbの中最後に
Public sub new[Enter]
で Form1のコンストラクタを作成します
Public Sub New()
' この呼び出しは、Windows フォーム デザイナで必要です。
InitializeComponent()
' InitializeComponent() 呼び出しの後で初期化を追加します。
End Sub
といったスケルトンを生成します
そこで
Me.StartPosition = FormStartPosition.CenterScreen
を『' InitializeComponent() 呼び出しの後で初期化を追加します。』の行の次に記述して見ましょう
質問される場合に 開発環境や実行環境を明記したほうがいいかもしれません
例 : WinXP PRO/SP3 VB2005 とか VB2010Express など
メニューの操作など 微妙に違ったり、初期設定を変更しなくてはいけない場合などもありますので
『すべてのファイルを表示』は メインメニューの中の プロジェクトの項目にあります
VB2010の場合 ツール > 設定が 基本設定になっていると 表示されません
ですが ソリューションエクスプローラのツールバーの 左から2番目が それに当たります
No.4
- 回答日時:
すいません、訂正です。
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
SetBounds((Screen.PrimaryScreen.Bounds.Width - Width) / 2, (Screen.PrimaryScreen.Bounds.Height - Height) / 2, Width, Height)
End Sub
ど真ん中に表示できました!
ただ、上下の真ん中には出来ないのでしょうか?
TOPとか使えば可能のような気がしますが、よくわからないので教えていただけますか?
上下左右のど真ん中に表示させたいです。
ご回答よろしくお願いします。
No.3
- 回答日時:
これではどうでしょうか?
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
SetBounds((Screen.PrimaryScreen.Bounds.Width - Width) / 2, (Screen.PrimaryScreen.Bounds.Height - Height) / 2, Width, Me.Height)
End Sub
No.2
- 回答日時:
まずはデザイナで操作してみた方が良いでしょう。
すべてのファイルを表示すると,Form1.vbの下にForm1.Designer.vbというファイルが付いていて,
こちらを見るとデザイナでの操作がコードで記録されています。
で……
> Dim f As New Form1() 'フォームを画面の真ん中に表示する
新しいForm1を作ってそれを画面の真ん中に表示させたいのですか。
そうでないならば,New Form1で作ったインスタンスではなく,Meでアクセスする (or 省略する) 必要があります。
# Loadイベント中でNewしてShowしたらStackOverflowExceptionが発生しそうですが。
> f.StartPosition = FormStartPosition.CenterScreenf.Show()
改行が抜けています。
f.StartPosition = FormStartPosition.CenterScreen
f.Show()
のように,2行に書く (or :で区切る) 必要があります。
ただ,前述のようにそもそもfに対してやる必要があるのか,という問題はあって,
Loadイベントは
StartPosition = FormStartPosition.CenterScreen
の1行だけでよいのではないかと思います。
デザイナというもので確認しようと思ったのですが
「すべてのファイルを表示」とはどうやればいいのでしょうか?
Form1.Designer.vbを表示させる方法がわかりません。
ソリューションエクスプローラーを見ましたが、Form1.Designer.vbは見つけられませんでした。
>新しいForm1を作ってそれを画面の真ん中に表示させたいのですか。
既にフォームはあるので、違います。
StartPosition = FormStartPosition.CenterScreen
だけにしてみましたが、ど真ん中には表示されませんでした。
やや斜め左下に表示しされます。
Dim f As New Form1()
f.StartPosition = FormStartPosition.CenterScreen
f.Show()
にすると、大量のフォームが開いてしまいます。
Me.StartPosition = FormStartPosition.CenterScreen
Me.Show()
にしても、
StartPosition = FormStartPosition.CenterScreenと同じく、やや斜め左下に表示しされました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) Visual Basic : ImageListの画像がそろったときにメッセージを表示 1 2023/07/20 13:53
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- C言語・C++・C# C#テキストボックスの文字を配列にいれてその後表示する 4 2022/07/17 04:47
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- C言語・C++・C# Windows Formアプリからコンソールを呼び出して文字を出力させたい 8 2023/05/09 10:53
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
C# マルチディスプレイにて、フォームの初期位置をCenterScre
その他(プログラミング・Web制作)
-
CloseとDisposeの違い
Visual Basic(VBA)
-
FORMが開いているかどうかの確認方法
Visual Basic(VBA)
-
-
4
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
5
メッセージボックスを大きくする方法
Visual Basic(VBA)
-
6
.NET3.5におけるキーボードの「全角/半角」キーは、Keys列挙体の何に対応している?
C言語・C++・C#
-
7
フォームの最前面が効かない
Visual Basic(VBA)
-
8
Loadイベント中にほかのイベントを発生したくない
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
クリックイベントなのに、2回ク...
-
ユーザーフォーム上に現在日時...
-
ユーザーフォームのテキストボ...
-
エクセルVBAのフォームを最...
-
ACCESSキャンセル時の確認メッ...
-
ACCESSのフォーム、開くんです...
-
C#で起動時のフォームを非表示...
-
EXCEL ユーザーフォームのタイ...
-
MSGBOXのフォント大きさ変更
-
クリックするたびに、フォーム...
-
フォームウィンドウを最前面に...
-
特定のフォームが開いているか...
-
ContextMenuStripに追加したア...
-
VBA(エクセル)のユーザー...
-
Hideについて(.NET)
-
VBAでユーザーフォームを再表示...
-
ユーザーフォームのラベルに時...
-
ブックをCloseまたはQuitで閉じ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
クリックイベントなのに、2回ク...
-
ExcelVBAのユーザーフォームの...
-
ユーザーフォームのテキストボ...
-
Microsoft Formsの「個人情報や...
-
ユーザーフォーム上に現在日時...
-
Form_Load と Form_Activate の...
-
モーダルフォームとモードレス...
-
Excelにて、ユーザーフォームで...
-
VBAでユーザーフォームを再表示...
-
【VBAユーザーフォームで閉じる...
-
MSGBOXのフォント大きさ変更
-
VBA(エクセル)のユーザー...
-
Hideについて(.NET)
-
エクセルVBAのフォームを最...
-
コントロールの存在確認
-
ACCESSのフォーム、開くんです...
-
'ユーザーフォーム右上隅の[×...
-
フォームウィンドウを最前面に...
-
ユーザーフォームのラベルに時...
おすすめ情報