フォントダイアログ

[ぶりっち]

メニューからフォントダイアログを表示させるソースを教えてください。

易しく、丁寧に、教えてくれるかた、大歓迎。

[ゲスト]

たとえばこんな感じのメニューハンドラを作ります。
（ここではウィンドウハンドル：hMainWnd，メニューID：IDM_FONTとしています）

メニューハンドラを作るまではWin32プログラミング講座のステップ6～7の辺りを参考にしてみてください。

コード: 全て選択

Sub MainWnd_IDM_FONT_MenuClick()
	Dim cf As CHOOSEFONT
	Dim lf As LOGFONT
	With cf
		.lStructSize = Len(cf)
		.hwndOwner = hMainWnd
		.lpLogFont = VarPtr(lf)
		.Flags = CF_SCREENFONTS Or CF_NOVERTFONTS
	End With
	If ChooseFont(cf) <> FALSE Then
		Dim hfnt As HFONT
		hfnt = CreateFontIndirect(lf)
		DeleteObject(hfnt)
	End If
End Sub

フォントダイアログを呼び出しているのがChooseFont関数です。
こいつがFALSE以外を返したときはユーザーがフォントを選んでくれたと言うことです。
そのとき，cf.lpLogFontの先(今回はlf)には選ばれたフォントの情報が入っています。

この例ではとりあえずすぐにフォントを作成(CreateFontIndirect)しています。
ここでは特に用もないのですぐに削除(DeleteObject)していますけど。

しかしいつもそうするわけではなく，フォントをどう使うかによってフォントを作る時，消す時は変わります。
この例のようにすぐに作って消すのではないことのほうが多いです。
何に，そしてどのようにフォントを使うかがわからないと
いつ作っていつ消せばよいというアドバイスはできないです。

[イグトランス]

上は私です。うっかりログインし忘れてしまい，失礼いたしました。

[ぶりっち]

ありがとうございました。

イグトランスさんのおかげで、問題が解決しました。

これからいろいろお世話になります。

私は、多田 篤志といいます。

早速ですが、申し訳ありません。

印刷するためのダイアログを表示するソースもご存知でしたらおしえていただけませんか。

[ぶりっち]

初心者ですみません。

先ほどのフォントのダイアログのことなのですが。

ダイアログの設定をそのままエディットボックスに反映するソースを教えていただけませんか。

[konisi]

ところで、イグトランスさんがログオフした状態から書き込みするのをよく見るんですけど・・・毎回クッキー消してるんですか?>>イグトランスさん

[イグトランス]

> ところで、イグトランスさんがログオフした状態から書き込みするのをよく見るんですけど・・・毎回クッキー消してるんですか?>>イグトランスさん

そうです。自動ログインは使っていません。
一応，普段使っているPCは自分以外の人も使うので（と言っても家族だけですが）。
これがログインして数時間経ったり，ADSLの回線がなんらかの原因で切れると
そこでログアウトされてしまうようなのですけど，それに気付かずつい書き込んでしまったというのが真相です。

[Sinryow]

ダイアログの設定をそのままエディットボックスに反映するソースを教えていただけませんか。

コントロールのフォントを変更するには，WM_SETFONTメッセージを使います。（ABのヘルプに記載はなし。）
MSDNの記述（英語）
ちょくとさんのページより

サンプルを作ってみましたのでどうぞ。
http://www.sinryow.net/hitori/Font.lzh

[イグトランス]

実はこっちで回答済みです。
http://www.discoversoft.net/forum/viewtopic.php?t=729

すみません，こっちにもその旨書いておくべきでしたね。

[ぶりっち]

上書き保存の方法は

[イグトランス]

＃Win32プログラミング講座の「テキストエディッタを作る」では上書き保存と名前をつけて保存がないですね。

まず上書き保存といっても新規作成した後，また名前をつけて保存を行っていない場合は名前をつけて保存のダイアログが出てくるのが一般的です。
そうでない場合，当たり前ですが上書き保存では現在開いているファイル名で保存します。

この挙動を実現するにはファイルを開いたときにファイル名をグローバル変数に取っておけばよいでしょう。
その変数の中身が空なら名前をつけて保存と言うことにします。

また実際にファイルを保存する処理は名前をつけて保存と同じですから1つの関数にします。
上書き保存のメニューIDをIDM_SAVEに，名前をつけて保存はIDM_SAVEASとします。

また保存の処理の中ではエディットボックスにEM_SETMODIFYを送っていますが，
これは保存したことをエディットボックスに伝えるためです。
試しにコメントアウトして試してみると違いが出るのではないでしょうか？

コード: 全て選択

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。
Dim FileName As String

コード: 全て選択

Sub MainWnd_IDM_SAVE_MenuClick()
	If Len(FileName) = 0 Then
		MainWnd_IDM_SAVEAS_MenuClick() '名前をつけて保存
	Else
		FileSave(StrPtr(FiliName))
	EndIf
End Sub

Sub FileSave(pFileName As *Byte)
	Dim hFile As HANDLE
	hFile = CreateFile(pFileName, GENERIC_WRITE, 0,
		ByVal 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
	If hFile = INVALID_HANDLE_VALUE Then
		MessageBox(hMainWnd,"ファイルオープンに失敗しました。", "TextEditor", MB_OK or MB_ICONEXCLAMATION)
		Exit Sub
	End If

	Dim Text As String
	Dim Length As Long
	Length = GetDlgItemTextStr(hMainWnd, EditBox1, Text)
	Dim WrittenBytes As DWord
	WriteFile(hFile, StrPtr(Text), Length, VarPtr(WrittenBytes), ByVal 0)
	CloseHandle(hFile)

	SendDlgItemMessage(hMainWnd, EditBox1, EM_SETMODIFY, FALSE, 0)
End Sub

ファイルを開くときにはFileNameへファイル名を入れて置いてください。

[フォントの色変更]

ありがとうございました。

フォントの変更方法を知っていたら教えてください。