![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.1ベストアンサー
- 回答日時:
1について。
ウィンドウタイトルバーのフォントはOS設定で決められているので個別に変更することはできません。非クライアント領域を無理やり書き換える方法はありますが、茨の道になるでしょう。ウィンドウ枠のデザインを自作したほうが早いです。
2について。
どのようなコードを書いているのか分からないので答えようがありません。なので「私ならこうする」というコードを参考に挙げておきますね。
[Form2] InputBox風ダイアログ(コントロール配置は画像参照)
Option Explicit
Private intResult As VbMsgBoxResult
' Owner ... オーナーウィンドウ
' Text ... ダイアログメッセージ
' Caption ... ウィンドウキャプション
' DefaultValue ... 既定値
' 戻り値 OKなら入力値、その他は既定値
Public Function ShowDialog(ByVal Owner As Form, ByVal Text As String, ByVal Caption As String, ByVal DefaultValue As String) As String
intResult = vbCancel
Me.Caption = Caption
Me.Label1.Caption = Text
Me.Text1.Text = DefaultValue
Me.Show vbModal, Owner
If intResult = vbOK Then ShowDialog = Me.Text1.Text Else ShowDialog = DefaultValue
End Function
Private Sub Command1_Click()
intResult = vbOK
Me.Hide
End Sub
Private Sub Command2_Click()
Me.Hide
End Sub
[Form1] Form2の使用例
Option Explicit
Private Sub Command1_Click()
Dim frmInput As New Form2
Dim strInput As String
strInput = "Default"
strInput = frmInput.ShowDialog(Me, "メッセージ", "ほげ", strInput)
Unload frmInput
MsgBox strInput
End Sub
![「フォームのキャプションのフォント」の回答画像1](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/7/1240612_5497df275dbd6/M.jpg)
回答ありがとうございました。出かけていてお礼が遅くなりました。
VBは超初心者ですので、1が出来るのかどうかが分からず、あれこれやっていましたので、大変助かる情報でした。
2については、十分理解出来ていないですが、引数で値を渡し、関数値で受け取るというのことでしょうか。私も超簡単なプログラムですが、同様の方法でやっていますので、参考になりました。なお、質問の趣旨は、結果を関数値や引数で受け取らないで、別のフォーム上のテキストボックスなどの値を読めるかということでした。これは愚問でした(最初の自作プログラムの単純ミスで読めなかっただけでした)。お手数をおかけしました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) capeofdragonと申します。 Access2016を使っております。 あるフォームがあり、テ 2 2022/09/09 13:18
- Access(アクセス) Dlookupにエラーがでてしまう 1 2022/10/31 14:35
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- Access(アクセス) アクセス 意図せずサブプロシージャを移動してしまうのを止めたい 1 2022/09/02 09:19
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
- JavaScript ラジオボタンによるフォームの開閉を行いたい 3 2022/03/31 21:30
- Access(アクセス) Accessテキストボックス内に2つのフィールドの値を比較して大きい方の値を表示させる方法 1 2022/09/09 10:50
- Access(アクセス) Access 複数条件検索の設定が上手く行きません 1 2022/07/22 20:37
- JavaScript 空白で入力フォームのボタンをクリックしたら、ブラウザの上部からjavascriptで 表示されるアラ 1 2022/05/20 11:16
- JavaScript 読み込んだQRコードをフォームに受け渡したい 1 2023/05/18 11:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで作った新しいウイン...
-
「アイテムは収集されました」...
-
ゲームでは結局どっちが良いの?
-
UWSCで特定のChromeのタブをア...
-
親ウインドウにあるOKボタンを...
-
ラジオボタンの初期指定
-
勝手にウィンドウが開いて止ま...
-
VBでアプリケーションを自動操...
-
検索の画面がでなくなってしま...
-
VBA ウィンドウの列挙 Win32 API
-
ダイアログをスクロールさせるには
-
他のアプリケーションの終了処理
-
EXCELの最前面設定解除について
-
ExcelのBOOKが消えた!
-
ビデオキャプチャ
-
フォームのキャプションのフォント
-
エクセルで1行目から3行目が消...
-
EnumChildWindowsの使い方(VBA)
-
グローバルフック?にならない(...
-
VBA .Value=.Value ?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで作った新しいウイン...
-
「アイテムは収集されました」...
-
ゲームでは結局どっちが良いの?
-
検索の画面がでなくなってしま...
-
勝手にウィンドウが開いて止ま...
-
VBA .Value=.Value ?
-
ラジオボタンの初期指定
-
作成したウインドウのサイズを...
-
Vba LongPtrについて教えてくだ...
-
Excelの上下を固定したい
-
他のアプリケーションの終了処理
-
【VB2008】 マウス操作の一時的...
-
「&HFFFF」「&H1A」とは?
-
VBで外部プログラムを位置のみ...
-
ExcelのBOOKが消えた!
-
Alt+P,Alt+NをPostmessageで送...
-
UWSCで特定のChromeのタブをア...
-
Console.WriteLine で表示されない
-
MFC ダイアログ上のID取得につ...
-
最大化と最小化ボタン
おすすめ情報