ab.com コミュニティ

よしき

デスクトップの背景に設定してある画像を新しい画像に上書きしても（当然ですが）すぐには背景が新しいものに更新されないので更新したいのですが・・・。 Dim hDW As HWND hDW=GetDesktopWindow() SetForegroundWindow(hDW) keybd_event(VK_RBUTTON,0,0,0)'押す keybd_event(VK_RBUTTON,0,KEYEVENTF_KEYUP,0)'離す keybd_event(Asc("R"),0,0,0)'押す keybd_event(Asc("R"),0,KEYEVENTF...

よしき

文字コードをUnicodeからANSIに変えたところ、ふつうに読み込むことができました。Webページ以外では文字コードを意識せずやってきたので反省しました。

新年早々ありがとうございました。

よしき

4.24です。
textもメモ帳で普通に半角で打ち込んだだけなのですが・・・。　

よしき

あけましておめでとうございます。テキストファイルから文字列を読み込んで実数にしたいと思っているのですが Dim Goodtime As long Dim Goodtimest As String Open "test.txt" As #1 Input #1,Goodtimest Goodtime=Val(Goodtimest) Close #1 としてdebugするとtest.txtの中身は"25"なのにGoodtimestには"・・2"というのがはいってしまっていてうまく読み込めないんですが、どこが悪いんでしょうか。新年早々申し...

よしき

こんな便利なものがあったとは・・・。
OverTakerさんのアイデアより多少処理がかるくなりそうですね。
ありがとうございます。

よしき

思いつきもしませんでした。
すばらしいアイディアありがとうございます。

よしき

GetCursorPosでスクリーン座標は手に入るのですが、hMainWnd上での座標を手に入れることはできないのでしょうか？

もしやウインドウの座標を求めてそこから計算とかになるんですか…？

よしき

わかりやすい例をあげていただきありがとうございます。ばっちりできました。

よしき

DCに青色で線を引きたいのですが

コード: 全て選択


For x=1 to 100
hpen1=CreatePen(PS_SOLID,0,RGB(0,0,255))
LineTo(hDC,x,100)
DeleteObject(hpen1)
Next x

としたあとにDCをウインドウに描画しても黒い線になってしまいます。昔のトピックでブラシについてはあったんですが、ペンについてはよくわかりませんでした。
なにがおかしいのでしょうか。

よしき

本当にありがとうございます。
これもヘルプにありましたね…。できるだけ質問しまいと頑張っているのですが…。

よしき

SetWindowTextでウインドウに小数を表示したいのですが、

Dim hText1 As HWND
hText1=GetDlgItem(hMainWnd, Static5)
SetWindowText(hText1,○○)

をどうしたらよいのかわかりません。小数点型から文字列に変換できればよいと思うのですが…。

よしき

ありがとうございます。無事にできました。

国語の力がほしいものです…。

よしき

GOTOを使おうとしたのですが、使い方がよくわかりません。

GOTO|abc|とヘルプではなっていますが、行番号指定はどうしたらいいのですか？
GOTO 50 でもGOTO|50|でもGOTO(50)でもエラーが出てしまいました教えてください。。

ab.com コミュニティ

検索結果 13 件

デスクトップの背景

失礼しました

文字列の読み込み

ウインドウ上のカーソル座標

Re:

penの色

Re:

小数点型→文字列

Re:

GOTO…