ab.com コミュニティ

>>イグトランス
> ところでぶりっちさんの書き方ではもしかすると2つのウィンドウは実は同じEXEの中であるという可能性も考えられます。


・・・確かにｗｗｗｗ＾＾；

それなら結構簡単なことになりますね。

ところでぶりっちさんの書き方ではもしかすると2つのウィンドウは実は同じEXEの中であるという可能性も考えられます。

＃深読みしすぎですか？

> B.exeでA.exeのハンドルを100%正確に（ユーザー側の条件に影響されずに）入手するような関数はあるのかもしれませんが、分りません。

上記のB.exeからA.exeのウィンドウハンドルを取得するのはウィンドウの
テキストが変更される場合、結構大変です。
(グローバルなメモリ領域にハンドルを格納したり、レジストリを使用したり等
もしくは、"notepad - 無題"のように必ず固定の文字列が入るなら簡単ですが)
ですのでウィンドウメッセージを登録する方が簡単(かもしれない)です。
まずは、

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

として、MainWnd_Createに

WM_SENDHANDLE=RegisterWindowMessage("MyOriginalMessage")

のようにしてA.exeでもB.exeでもメッセージを登録すると共通のメッセージが
作成されます。
(文字列は例で、上記の文字列は他のアプリケーションとかぶる可能性があるので
自分のハンドルネームを使用したりかぶらないようにして下さい)
これを使用して、B.exeからA.exeのハンドルを知りたい時に

PostMessage(HWND_BROADCAST,WM_SENDHANDLE,hMainWnd,0)

とするとすべてのウィンドウに対してWM_SENDHANDLEが送信されます。
A.exeでWM_SENDHANDLEを受信したら逆にA.exeから

PostMessage(wParam,WM_SENDHANDLE,hMainWnd,0)

のようにしてウィンドウハンドルを送信します。
今度はB.exeでWM_SENDHANDLEを受信した時、そのwParamがウィンドウハンドル
ですのでそれをグローバル変数に保存等して下さい。

これも試していませんが、理論上はできるはずなので試してみて下さい。

A.exeのEditBox1内にあらかじめ何らかの文字列を投下
　　　↓
B.exeのCommandButton1を押す
　　　↓
B.exeのEditBox1に文字列を出力

といった感じでしょうか・・・
B.exeでA.exeのハンドルを100%正確に（ユーザー側の条件に影響されずに）入手するような関数はあるのかもしれませんが、分りません。
もしそれが分れば可能かもしれませんが？（ちなみに、ユーザーが作業を行っているウインドウのハンドルを取得する関数ならForegroundWindow()とかいう関数が在った様な気がしないでもないのですが・・・イグトランスさんかSinryowさんのどちらかを希望しますが、そこら辺のフォローを誰かお願いします。）

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

Type PRINTER_INFO_2
  pServerName         As Long
  pPrinterName        As Long
  pShareName          As Long
  pPortName           As Long
  pDriverName         As Long
  pComment            As Long
  pLocation           As Long
  pDevMode            As Long
  pSepFile            As Long
  pPrintProcessor     As Long
  pDatatype           As Long
  pParameters         As Long
  pSecurityDescriptor As Long
  Attributes          As Long
  Priority            As Long
  DefaultPriority     As Long
  StartTime           As Long
  UntilTime           As Long
  Status              As Long
  cJobs               As Long
  AveragePPM          As Long
End Type

'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	Dim hHeap As Long
	Dim pHeap As Long
	Dim pi2 As *PRINTER_INFO_2
	Dim hCombo As HWND
	Dim any As DWord
	Dim count As DWord

	hHeap=GetProcessHeap()
	hCombo=GetDlgItem(hMainWnd,ComboBox1)
	EnumPrinters(PRINTER_ENUM_LOCAL,0,2,0,0,any,count)
	pHeap=HeapAlloc(hHeap,NULL,any)
	pi2=pHeap
	EnumPrinters(PRINTER_ENUM_LOCAL,0,2,pi2,any,any,count)
	While count
	SendMessage(hCombo,CB_INSERTSTRING,0,pi2->pPrinterName)
	count--
	pi2=pi2+Len(pi2)
	Wend
	HeapFree(hHeap,0,pHeap)
End Sub

Sub MainWnd_CommandButton1_Click()
	Dim hHeap As Long
	Dim hDC As Long
	Dim doc As DOCINFO
	Dim buf As Long
	Dim any As Long

	hHeap=GetProcessHeap()
	buf=HeapAlloc(hHeap,0,1024)
	SendDlgItemMessage(hMainWnd,ComboBox1,CB_GETLBTEXT,SendDlgItemMessage(hMainWnd,ComboBox1,CB_GETCURSEL,0,0),buf)
	hDC=CreateDC(0,buf,0,ByVal NULL)
	any=SendDlgItemMessage(hMainWnd,EditBox1,WM_GETTEXTLENGTH,0,0)
	any++
	HeapReAlloc(hHeap,0,buf,any)
	ZeroMemory(VarPtr(doc),len(doc))
	doc.cbSize=Len(doc)
	doc.lpszDocName="印刷ジョブ名"
	StartDoc(hDC,doc)
	StartPage(hDC)
	TextOut(hDC,0,0,buf,lstrlen(buf))
	DeleteDC(hDC)
	HeapFree(hHeap,0,buf)
End Sub

プリンター出力に関する質問が結構いっぱいあるので簡単なサンプルをのせます。
家にプリンターがないので実際に試してはいませんが流れとしては以下のようになります。
エラー処理等は省いています。

まずはMainWnd上にComboBoxとButtonとEditBoxを配置します。
起動するとComboBoxの中にプリンター名が列挙されます。
それを選択して、Buttonを押すとEditBoxに書かれている文字がプリントアウトされるはずです。
[hide][code]
' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

Type PRINTER_INFO_2
pServerName As Long
pPrinterName As Long
pShareName As Long
pPortName As Long
pDriverName As Long
pComment As Long
pLocation As Long
pDevMode As Long
pSepFile As Long
pPrintProcessor As Long
pDatatype As Long
pParameters As Long
pSecurityDescriptor As Long
Attributes As Long
Priority As Long
DefaultPriority As Long
StartTime As Long
UntilTime As Long
Status As Long
cJobs As Long
AveragePPM As Long
End Type

'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
Dim hHeap As Long
Dim pHeap As Long
Dim pi2 As *PRINTER_INFO_2
Dim hCombo As HWND
Dim any As DWord
Dim count As DWord

hHeap=GetProcessHeap()
hCombo=GetDlgItem(hMainWnd,ComboBox1)
EnumPrinters(PRINTER_ENUM_LOCAL,0,2,0,0,any,count)
pHeap=HeapAlloc(hHeap,NULL,any)
pi2=pHeap
EnumPrinters(PRINTER_ENUM_LOCAL,0,2,pi2,any,any,count)
While count
SendMessage(hCombo,CB_INSERTSTRING,0,pi2->pPrinterName)
count--
pi2=pi2+Len(pi2)
Wend
HeapFree(hHeap,0,pHeap)
End Sub

Sub MainWnd_CommandButton1_Click()
Dim hHeap As Long
Dim hDC As Long
Dim doc As DOCINFO
Dim buf As Long
Dim any As Long

hHeap=GetProcessHeap()
buf=HeapAlloc(hHeap,0,1024)
SendDlgItemMessage(hMainWnd,ComboBox1,CB_GETLBTEXT,SendDlgItemMessage(hMainWnd,ComboBox1,CB_GETCURSEL,0,0),buf)
hDC=CreateDC(0,buf,0,ByVal NULL)
any=SendDlgItemMessage(hMainWnd,EditBox1,WM_GETTEXTLENGTH,0,0)
any++
HeapReAlloc(hHeap,0,buf,any)
ZeroMemory(VarPtr(doc),len(doc))
doc.cbSize=Len(doc)
doc.lpszDocName="印刷ジョブ名"
StartDoc(hDC,doc)
StartPage(hDC)
TextOut(hDC,0,0,buf,lstrlen(buf))
DeleteDC(hDC)
HeapFree(hHeap,0,buf)
End Sub
[/code][/hide]

流れを簡単に説明すると、画面に描画したことある人にはわかりやすいと思いますが、
プリンターのDCを取得してそのDCにTextOutやFillRect、BitBlt等をする。
ただこれだけです。
たぶんうまくいかないと思うので、プリンターを持っててわかる人、フォローお願いします。

現在のBBSに変更されてからは印刷に関する質問はまだ出ていませんが
その前に使われていたBBSの頃には，印刷関連の質問が多数出ていました。

その当時の過去ログはここからダウンロードできます。ここから「印刷」
とかのキーワードで検索すると方法が見つかるかもしれません。（自分は
試していないのでわかりませんが）
http://dbp.cool.ne.jp/patio/patio.cgi?mode=view&no=138

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

あの、文字数を表示するコードでお願いがあるのですが、

MainWndのEditBox1の文字数を別のウインドウ(例 ABC)のボタンを押すとABCのEditBox1に文字数を表示するという面倒なものです。

konishiさんは今僕にとってい一番必要としている方です。

お願いです。信じています。

ソースコードをください。


●ABCとは別のウインドウのWindowハンドルのことです。



余計なことかも知れませんが、僕は３日前からCをはじめました。

Cは開発ソフトをそろえるにも高くて小遣い範囲では手が出せません。
しかし、無料でJapa、ビジュアルC、C++、C♯、インストーラー、を
開発できるソフトを見つけました。

ソフト名は、SharpDevelop　です。

この情報と引き換えに教えていただければ幸いです。

Dim Text As String

Text=ZeroString(GetWindowTextLength(GetDlgItem(hMainWnd,EditBox1)))
GetWindowText(GetDlgItem(hMainWnd,EditBox1),Text,GetWindowTextLength(GetDlgItem(hMainWnd,EditBox1))+1)

印刷の方法は分りませんがエディットボックス内の文字列を取得する方法なら分ります。
[hide]EditBoxのIDがEditBox1の場合
[code]
Dim Text As String

Text=ZeroString(GetWindowTextLength(GetDlgItem(hMainWnd,EditBox1)))
GetWindowText(GetDlgItem(hMainWnd,EditBox1),Text,GetWindowTextLength(GetDlgItem(hMainWnd,EditBox1))+1)
[/code]これで、文字列変数TextにEditBox内の文字列が代入されます。[/hide]
僕からも頼みます。印刷の方法誰か教えてください。

エディットボックス内のテキストを印刷するにはどうすればいいですか。

できればコードを教えてください。

ビギナーですみません。