ab.com コミュニティ

雷電

いろいろ探してみましたが、結局わかりませんでした。
コード見ていただけないでしょうか？

よろしくお願いします。

雷電

早速の返信ありがとうございます。

ページのほう見てみましたが、
察するにあて先に設定されず、
BCCに設定されて送信されていると言うことでしょうか？

無理矢理、Funtionに値を入れていたのがまずかったのでしょうか･･･

参考になりました。
また組みなおしてみます。

新たな情報の提供を今後もよろしくお願いします。

雷電

お久しぶりです。自作メーラーを作ってるんですが、リストビューに表示させているアドレス取得 ↓ メール送信でいいんですが、ためしに自分に送ってみると、送信先のアドレスがおかしいことに気がつきました。 OutlookExpressでいうあて先部分に " undisclosed-recipients: " という意味不明な文字が・・・これってプログラムミスなのかサーバー仕様なのかわかりません。サーバーのほうはとりあえず調べてみたのですが特に何の変哲もないサーバーでした･･･追記 :サーバーはビッグローブですということで、プログラムミスだと思うんですが、どこが...

雷電

おひさしですｗｗ

ゲストさんにさきをこされました･･･
グローバル変数(numとflag)をLongで定義、
num=flag

↑ただし、サブプロセス内でしか使えません（当然ですね･･･）

重なった点あるかもしれませんが、手ほどきです

雷電

多数の返信ありがとうございます。
一応できましたｗｗ

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

雷電

どうもお久しぶりです・・・。
受験が終り、高校にやっとなれはじめた雷電です。

今回は、文字から変更した数字についてです。
文字列を数字に変更する関数はVal関数でいいのですが、
その変更した後、変更された数字を足し算したいのです。

例えば、文字列が１２３４５だとすると、
１＋２＋３＋４＋５の計算をしたいのです。
一字ずつ切り出して、計算したいのですが、どなたかご教授ください･･･

雷電

MainWnd.sbpの上のほうに、

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

このようなものがあると思います。
これの下に、関数の定義をします。(前回投稿したやつです)

で、

Sub MainWnd_IDM_strong_MenuClick()

End Sub

この部分ということですが、書き方を覚えましょう。

書くときは、この中に、
AddStr(hMainWnd,EditBox1,"テスト")

こう書けば、動きます。
試してみてください。

雷電

ここではなくて、質問板のほうに書いてください。

タグって、HTMLのことでしょうか？

それなら、以前投稿した関数でできるはずですが。

雷電

SendMessage関数で、EM_REPLACESELというメッセージを送ります。
関数かすることも可能ですので、そっちを使ってください。

コード: 全て選択

Sub AddStr(ByVal hWnd As Long,ByVal hID As Long,ByVal lpStr As String)
SendMessage(GetDlgItem(hWnd,nID),EM_REPLACESEL,TRUE,lpStr)
End Sub

hWnd...ウィンドウのハンドル
nID.......アイテムのID
lpStr.....文字列

基本的に、アンドゥで戻せるようになっています。
という感じです。

雷電

SetWindowText関数、もしくは、SetDlgItemText関数で挿入します。

コード: 全て選択

SetWindowText(GetDlgItem(hMainWnd,EditBox1),"文字")
SetDlgItemText(hMainWnd,EditBox1,"文字")

上のものは同じことをします。
自分は、したのを使うことが多いです。
それと、付け加えておきますが、これらで挿入すると、前に書いてあった文字列は消えてしまいます。

雷電

コード: 全て選択

zz[dwAccessByte]=0

このこーどが抜けているがために、最後にNULLもじが付いています。

しかし、問題は、InStrの部分みたいですね･･･

雷電

ほんとですね･･･
勘違いしてました･･･
Toshiさんありがとうございました。

雷電

ABVer4.24において、次のコードを実行すると全て取得されてしまいます。

buf=Mid$("HaveRPack,InitOnBase,TouchDown",11,20)

こうすると、bufにInitOnBase,TouchDownが入ってしまいます。

バグではないでしょうか？

雷電

コード: 全て選択

dwLength = GetWindowTextLength(hEdit1) 
GetWindowText(hEdit1, EditString, dwLength + 1)

取得の部分って、Stringだけど領域確保はいらないんですか

もしいるならば、こうすべきです。

修正コード [ここをクリックすると内容が表示されます]

雷電

自己解決いたしました。
Sinryowさん、すいませんでした。
聞いていただいたのに、答えるまでもなく、自分で解決しましたので･･･

ab.com コミュニティ

検索結果 88 件

サーバーの仕様？プログラムミス？

数字の足し算

Mid$関数