（´-`）.｡oO（VB初心者質問スレ Part12）
レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん
NGNGPart 1 http://piza.2ch.net/tech/kako/968/968328471.html
Part 2 http://piza.2ch.net/tech/kako/990/990793224.html
Part 3 http://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
Part 4 http://pc.2ch.net/tech/kako/1006/10069/1006922992.html
Part 5 http://pc.2ch.net/tech/kako/1010/10106/1010624646.html
Part 6 http://pc.2ch.net/tech/kako/1013/10138/1013844542.html
Part 7 http://pc.2ch.net/tech/kako/1015/10158/1015836357.html
Part 8 http://pc.2ch.net/tech/kako/1018/10187/1018794901.html
Part 9 http://pc.2ch.net/tech/kako/1020/10208/1020830472.html
Part10 http://pc.2ch.net/test/read.cgi/tech/1022127528/
Part11 http://pc.2ch.net/test/read.cgi/tech/1024380249/
Win32 API関連スレ
Win32API 質問箱 Build4
http://pc.2ch.net/test/read.cgi/tech/1023361418/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。
0002デフォルトの名無しさん
NGNGどなたかこの続きご教授願います・・・。
0003デフォルトの名無しさん
NGNG0004デフォルトの名無しさん
NGNGSelectedプロパティでなったよ。
0005デフォルトの名無しさん
NGNG0006デフォルトの名無しさん
NGNGListBoxに5個登録して、
For i = 0 To lstItem.ListCount - 1
lstItem.Selected(i) = True
Next i
ってやってみましたが、なんか一番上のチェックしかつきませんでした。
0007デフォルトの名無しさん
NGNG全部できるけど？
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
List1.Selected(i) = True
Next i
End Sub
Private Sub Form_Load()
List1.AddItem "0"
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
End Sub
0009デフォルトの名無しさん
NGNGそれでやってもなりません。
えっと、一回コマンドボタンを押すと、
一番上が選択され（反転表示）、
チェックがつきます。
もう一度押すと、1番上が選択されたまま上から2番目も選択され、
2番目にチェックがつきます。
もう一度押すと、1番目、2番目が選択されたまま、更に3番目も選択され、
3番目にチェックがつきます。
5回押すとようやく全部チェックがつき、
すべてが選択された状態になります。
当然styleプロパティが1-チェックボックスになってるので、
マルチセレクトはできないはずなんですが、なぜかマルチセレクトされちゃってます。
0010デフォルトの名無しさん
NGNG0011デフォルトの名無しさん
NGNGマルチセレクトっぽくは俺ん所もなる。実行後4と5行目が選択状態になってる。
選択状態がおかしいってのはそういうこと。
最後にlstItem.Refreshしたらどうなる？
0012デフォルトの名無しさん
NGNGすんません。
Clickイベントの中でチェックされてる項目を調べてるコードがあったんですが、
それを外してみたらちゃんと動きました。
（MouseDownに引っ越し）
これが悪さしてたんですね・・。
アホですんません。
色々ありがとうございました。
0013デフォルトの名無しさん
NGNG１０文字以上ならダメって感じにしたいのですが、文字の量を判断するにはどうすればいいのでしょうか？
0014デフォルトの名無しさん
NGNGlength
0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNG脊髄反射でここ来ないで少しはヘルプ読めよ
0019初心
NGNG検索はシングルコーﾃｰｼｮﾝ２こ並べてクリアできますよね。でも％＿を検索
したいときってどうすればいいですか？
0020デフォルトの名無しさん
NGNG0021デフォルトの名無しさん
NGNG0022初心
NGNG0023デフォルトの名無しさん
NGNGあちこちのスレで浮気しちゃ駄目よ。
みんなもう寝てるから、時間を開けてまた来たら？
0024初心
NGNG0025デフォルトの名無しさん
NGNGとかしたときに、この変数のアドレスを取得できないでしょうか。Cみたいに。
関数のアドレスだとAddressOfみたいので取得できるみたいですけども・・・
先生助けて。
0026デフォルトの名無しさん
NGNG何のために取得したいのか知らんが隠し関数のStrPtrで取得できる
0027前スレ952
NGNG引き続き宜しくお願いします。
958：即レス◆POP.SOKU：02/07/13 17:24
>>952
Explorerその他では見れるのか？
見れてます。
Explorerではちゃんとアクセスもできています。
0028デフォルトの名無しさん
NGNGとりあえずソース出したら？
0029デフォルトの名無しさん
NGNGListView.ListItems(index).ListSubItems(key) = "書き換える文字"
という感じにリストビューの中身を書き換えると、
ListView全体に再描画がかかってチラつきます。
チラつかせないようにListViewを書き換えるにはどうしたらいいですか？
003027（前スレ952）
NGNGDir("パス", vbDirectory + vbHidden + vbSystem)
"パス"のところにはネットワーク上のフォルダのフルパスが入ってます。
Win98seで実行すると"."が返ってきます。
Win2000で実行するとエラーになってerr.Descriptionは「Bad file name or number」です。
WinNT で実行すると""(空文字列)が返ってきます。
2000・NTはいづれもadministrator権限ユーザーで実行しています。
対象フォルダはｴｸｽﾌﾟﾛｰﾗｰではアクセスする事が出来ています。
0031コギャル＆中高生
NGNGコギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便
↓
http://kado7.ug.to/wowo/
0032デフォルトの名無しさん
NGNGスマートに判定するにはどうしたらよいでしょか。
Midでピリオドを探すしかないのですかね？教えてください。
0033デフォルトの名無しさん
NGNGそれではソース出したとは言わんと思われ。
0034デフォルトの名無しさん
NGNG0035デフォルトの名無しさん
NGNGヒント：小数を整数化したらどうなるか。それを使ってできないか。
わかるまで考えれ。パズルと同じだ。
0036デフォルトの名無しさん
NGNGそれだったら２５．０等と入力して期待を裏切ってやる。
0037デフォルトの名無しさん
NGNGvalで数値化するのはダメ？
0038デフォルトの名無しさん
NGNGピリオドを使うのは好きじゃないんだよな。
0039デフォルトの名無しさん
NGNG0040デフォルトの名無しさん
NGNGせ、整数化…？（汗
0041デフォルトの名無しさん
NGNG0042デフォルトの名無しさん
NGNGやって見れ、できるから。
但し最小桁以外は0にしないと…
0043デフォルトの名無しさん
NGNG小数点以下に意味のある数字が連なっているということ？
それとも１より小さいつうこと？
前者なら >>35 で
後者なら１と比較しれ
0044デフォルトの名無しさん
NGNG単に「整数化」する。
それと元の数値を比較すると・・・
って事じゃないの？>>35サン
0045デフォルトの名無しさん
NGNG0046デフォルトの名無しさん
NGNG0047デフォルトの名無しさん
NGNGsethook
004832
NGNG入力値として受けたいのは整数で(金額や、数量など)
その項目に、25.5などといった少数以下を使用した不正な値が渡されたかを
チェックしたいのです。
ですが申し訳ないことに、>>35氏の整数化の意味がわかりません
すみません。すみません。
0049デフォルトの名無しさん
NGNG0050デフォルトの名無しさん
NGNGそうよん。だからカーディナルな変数でやっちゃ駄目。
0051デフォルトの名無しさん
NGNGいや、最小桁以外が0の時はわかるんだが、そうじゃない場合。
005246
NGNGわからないです～
0053デフォルトの名無しさん
NGNGもしくは変更された事を検知する方法はどうすればいいの？
リストにあるデータを選択するだけではChange イベントが
発生しないようだし。
0054デフォルトの名無しさん
NGNGパスの部分は "\\サーバー\共有" の形ですか？
だとしたら、"\\サーバー\共有\" とするとうまくいくかも。
005527（前スレ952）
NGNGホントはDirの戻り値を変数に入れてるくらいです。
この質問はもうダメっすかね？
レスもないし没という事にしておいてください。
続はどうにかしてみます。
ありがとう。
005627（前スレ952）
NGNG現在は "\\サーバー\共有" の形です。
"\\サーバー\共有\" で試してみました。
WinNTでは値が戻りました！
おそらく2000もいける事でしょう。(現在2000マシン使用中でテストができません。)
ありがとう！ほんとにありがとう！
0057デフォルトの名無しさん
NGNGんなものいったん文字列処理かけるとか、negative処理かけるとか、なんとでもやりようはあるじゃん
0058デフォルトの名無しさん
NGNGローカルや、microsoft.comに接続して Get /index.html ってやったのは成功しました。
どうやら www.***.**.** みたいなページは出来るみたいです。
wwwでは無いページが駄目みたいです。具体的に言うと
ttp://members13.tsukaeru.net/nasumi/index.html みたいな感じのページがDLできません。どうやったらいいですか？
0059デフォルトの名無しさん
NGNGmembers13.tsukaeru.net
に接続しろ！
0060デフォルトの名無しさん
NGNGPrivate Sub Command1_Click()
If sckMain.State <> sckClosed Then
sckMain.Close
DoEvents
End If
sckMain.RemotePort = 80
sckMain.RemoteHost = "members13.tsukaeru.net"
sckMain.Connect
End Sub
Private Sub sckMain_Connect()
sckMain.SendData "GET /nasumi/index.html" & vbCrLf & vbCrLf
End Sub
Private Sub Command2_Click()
sckMain.Close
sckMain.LocalPort = 0
End
End Sub
Private Sub sckMain_DataArrival(ByVal bytesTotal As Long)
Dim strBuff As String
sckMain.GetData strBuff
txtHTML.Text = txtHTML.Text & strBuff & vbCrLf
End Sub
0061デフォルトの名無しさん
NGNGできたよ。
Option Explicit
Private Sub Command1_Click()
Winsock1.RemoteHost = "members13.tsukaeru.net"
Winsock1.RemotePort = 80
Winsock1.LocalPort = 0
Winsock1.Connect
End Sub
Private Sub Winsock1_Connect()
Winsock1.SendData "GET /nasumi/index.html HTTP/1.0" & vbCrLf
Winsock1.SendData "Host: members13.tsukaeru.net" & vbCrLf
Winsock1.SendData vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
MsgBox strData
End Sub
0062デフォルトの名無しさん
NGNG接続した後にhost: ～.net みたいなのをおくらにゃならんのですか。送らなくても出来るとこがあるんでわけわかめです。
どうやら俺はhttpプロトコルを勉強しないと駄目のようですネ。
0063デフォルトの名無しさん
NGNG分かる方ご教授願います。
0064デフォルトの名無しさん
NGNG0065デフォルトの名無しさん
NGNGIf Isnumeric(変数) Then
ここ来る前にヘルプ読もうな。
0066厨房
NGNGマウスダウンしたところからマウスアップまでの大きさの円を描く方法と
描画したものの中身を塗りつぶす方法がわかりません。
0067デフォルトの名無しさん
NGNG現在Cでプログラムを書いてコンソールで動かしているアプリがあるのですが、
これをGUI化しなければならなくなりました。
GUI作るのは
VC++→面倒
VB→簡単
と聞きましたので、今のプログラムをVC++でDLL化し、VBで作ったGUIから利用しようかと思っています。
こういう用途でVBを利用する場合、お勧めの書籍はありますでしょうか？
VBは全く触ったことがありません。
webで調べてみたのですが、
http://www2.gihyo.co.jp/books/bookinfo.asp?ID=4-7741-0802-2
こういう感じの、VB寄りの本があればいいなぁ、と思っています。
0068デフォルトの名無しさん
NGNGそういう人は、迷わずC＃にしとけ。
VBと同じ様にGUIが構築できて、かつ、コードはほとんどCと同じ
感覚で使えるぞ。
0069デフォルトの名無しさん
NGNGBorland C++ Builder という選択肢もあるよ
とか書くとM$ﾏﾝｾｰな皆様に袋叩きにされる罠
0070デフォルトの名無しさん
NGNGいや、この人は業務か何かで、C#もBCBも無い環境で事を成さねばならないのでは？
素直にVB本を漁るのが吉。
0071デフォルトの名無しさん
NGNG下手すりゃネット上の情報の方が豊富かも。
0072デフォルトの名無しさん
NGNGVBで画面つくるんだよね。
VBって構造体の記述もネストできないし、
スタティックな変数も６４KB未満でないと駄目だし、
VBで確保したエリアをDLLに渡す部分も、ちゃんと
リニアなエリアが確保されてるのかどうか良くわからんし、
VB使ったことが無いんだったらお勧めしません。
0073デフォルトの名無しさん
NGNG妙な幻想は抱かないのが吉
0074デフォルトの名無しさん
NGNGdllから呼ぶのだから、API使うのと変わりないでしょ。
漏れはそういうふうにdllの方を作ったけどね。
>下手すりゃネット上の情報の方が豊富かも。
この部分は納得、同意。
0075デフォルトの名無しさん
NGNG> VBって構造体の記述もネストできないし、
たいした問題ではないと思いますが。同等のことは出来ますし。
> リニアなエリアが確保されてるのかどうか良くわからんし、
数値配列は連続した領域に割り当てられることが保証されてますけど、
それじゃ不十分って意味ですか？
> VB使ったことが無いんだったらお勧めしません。
これには同意します。
0076デフォルトの名無しさん
NGNG構造体はネストできます。
64KB未満でなくていけないのは構造体内の固定長配列/固定長文字列の合計サイズです。
VBで確保したエリアについてはMSDNに書いてあるので良くわかってから使ってください。
0077デフォルトの名無しさん
NGNG同等のことはできますね。
でも、見通しが悪くないですか？
VBで画面を作って、処理は、DLL側でっていう
作りにするとおそらくVB側とDLL側で同じデータ構造を
定義する必要が出てくると思うんですよ。
で、もともとはCで書いてあるんだからC用の構造体の定義は
すでにある。それを元にVB用の構造体の定義をつくる。
そのとき、もともとのC用の定義は、構造体をネストしてって記述に
なっている。VB用の定義上はそれが許されない。
ぱっと２つの定義を見て同じだってみれないんです。
＞リニア．．．
最初VB＋DLLでプログラム作ったとき、
自分で構造体を定義してそれをREDIMで
エリアを確保して、そのエリアのアドレスをDLLに渡して
DLL側でそこに書き込むってことをやろうとしたとき、
大丈夫かなぁって不安になりました。
VBって変数に初期値をセットしないとメモリが割り当てられない
とか（本当？）、String型は単純なバイト並びじゃないとか、
ちょっと支離滅裂ですが、C言語しか使ったこと無い人が
VB＋DLLという形でプログラムを作ろうとすると、
予想以上にデータの受け渡しに戸惑うと思う、という事が
言いたいだけですはい。
＞＞もしかして漏れだけ？
0078デフォルトの名無しさん
NGNG構造体定義の中に構造体定義をネストするほうが見通しが
悪いと俺は思うのだが。
まあ，他でネスト内部の構造を参照しないような、その場所だけの
定義だけだったらそれでもかまわんだろうけど。
007957
NGNGもしかして、前スレで ユーザー定義型の配列をDLLに渡そうとして、
はまってた人ですか？
> 同等のことはできますね。
> でも、見通しが悪くないですか？
あんまり気にならないですけど。
というか、私が構造体のネストを使わないだけか。
> VBって変数に初期値をセットしないとメモリが割り当てられない
> とか（本当？）、
そんなことは無いです。
少なくとも参照した時点（つまりDLLに渡した時点）では初期化されてます。
> 予想以上にデータの受け渡しに戸惑うと思う、という事が
> 言いたいだけですはい。
> ＞＞もしかして漏れだけ？
いや、私も最初はその辺で戸惑いましたよ。
0080デフォルトの名無しさん
NGNGＶＢで作成したＥＸＥで戻り値を返すにはどいしたらいいのでしょうか？
どなたかおながいします・・・。
0081デフォルトの名無しさん
NGNGlabel1.label2.label3の中の数字が一致したとき
label4の数字が１増えるっていう風にするには
どうすればいいでしょうか？
ちなみにlabel1.label2.label3にはそれぞれ違うタイマーの数字が入ります
なんか意味わかんない文章ですがよかったら教えてほしいです
お願いします
0082デフォルトの名無しさん
NGNG0083デフォルトの名無しさん
NGNG気になったので調べてみました。
結論：ムリ
0084愛本
NGNGハンドルデータの取扱いがよく分かりません。
Cのソースで
theHogeP = GlobalLock(theHogeH);
theHogeP->*** = XXX;
GlobalUnlock(theHogeH);
のtheHogeP->***の部分をどうVBへ変換したらよいのか
だれか教えてください
0085デフォルトの名無しさん
NGNGそれはVBが分からないというよりCが分かって無いのでは。
0086デフォルトの名無しさん
NGNGVBとCの両方判ってないと思われ。
0087デフォルトの名無しさん
NGNGCopyMemory theHogeP + オフセット , XXX , 長さ
かな？もしくは、ユーザー定義型を作って、いったんそっちに移すって手もあります。
dim hoge as ユーザー定義型
CopyMemory hoge,theHogeP,長さ
hoge.*** = XXX
CopyMemory theHogeP,hoge,長さ
0088愛本
NGNG一応Cは理解してるつもりだが。
Cで書いた自作.dll（動作確認済み）をモジュールへ変更してる
とこなんでVB<->Cの変換部分がよくわかんないんだよ。
具体的にはPRINTDLGのなかのDEVMODEの値を変更したいんだけど
＃ACCESS2000のPrinterオブジェクトがつかえない対策
0089愛本
NGNGThanx!!!
追加でもうひとつ質問なんだけど
この場合のCopyMemoryみたいにAPIに構造体をわたす時は
ポインタ渡しになるの？値渡しになるの？
＃単純にVBだと考えれば参照渡し（≒ポインタ渡し？）と考えて
＃いいんだろうか…
009087
NGNG> この場合のCopyMemoryみたいにAPIに構造体をわたす時は
> ポインタ渡しになるの？値渡しになるの？
Declare 宣言でByRefを指定すればポインタ渡し、ByValを指定すれば値渡しになります。
どちらも指定しなければ、ByRef(ポインタ渡し)です。
詳しくは MSDN の 「DLL および Windows API へのアクセス」 を参照してください。
0093デフォルトの名無しさん
NGNGその節はどうもお世話になりました。
最近 C# を買ってみました。
私には、こっちのほうが全然わかりやすいです。
0094デフォルトの名無しさん
NGNGttp://www.microsoft.com/JAPAN/developer/library/jpwinpf/_win32_terminateprocess.htm
の
BOOL TerminateProcess(
HANDLE hProcess, // プロセスのハンドル
UINT uExitCode // プロセスの終了コード
);
なんですが、w2kで使用する際、具体的にどういう風に書けば良いんでしょうか
宜しく御願いします
0095デフォルトの名無しさん
NGNG教えれ
0096デフォルトの名無しさん
NGNGVBのStringはBSTRです。
先頭に文字列長 + その後に実際の文字列(終端文字なし)
0097ななし
NGNGActiveX EXEにすれば、メソッドの戻り値を返せますが？
(そーゆー意味ぢゃない？)
標準EXEでやるなら、終了処理で、結果コードをINIファイルに吐くとか？
(インチキ臭いというか、ルール違反というか・・・)
>>94
基本的に、C / C++ 向けに書かれたAPIサンプルコードをVB用に書き直すのは、
C、VBの両方の知識がないとむずかしいような気がする。
(それとも、APIビューアーか、WEB検索で探すか)
この例は、たまたま知ってる(仕事で使ったことはないけど)ので、サンプルが
掲載されているサイトを紹介しときます。
Win 2000 なら、NTとおなじコードで動くはず。(未確認)
しかし、TerminateProcess って使っていいもんかね？
「強制終了」だから、望ましくないと思うのだけど。
(終了処理が正常に行われない、リソースのリーク等の問題があるのでは？)
0098デフォルトの名無しさん
NGNGExitProcessでOK
0099ななし
NGNG>>97
> この例は、たまたま知ってる(仕事で使ったことはないけど)ので、サンプルが
掲載されているサイトを紹介しときます。
肝心のアドレスを書き忘れた。(W
ttp://www.geocities.co.jp/SiliconValley-Bay/4535/Program/011.html
(直リンク失礼。m(_ _)m )
0100デフォルトの名無しさん
NGNG0101コギャル＆中高生
NGNGお役立ちリンク集
必ず役立ちます
コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便
↓
http://kado7.ug.to/wowo/
010280
NGNGこれってデバッグで動かすとＶＢ自体も終了しちゃうんですね。
0103初心者
NGNGShowSave等で前回保存した場所を記録している様なのですが、
その情報はレジストリのどの部分に書き込まれているのでしょうか？
環境はWindows2000, VB6.0です。
0104デフォルトの名無しさん
NGNGVB.netにしる。
0105ななし@車輪の再発明野郎
NGNG知らないけど・・・同等機能を独自に実装するんじゃダメなの？
調べるより作った方が早いと思うんだけど。
010694
NGNG有難う御座います
助かりました
0107デフォルトの名無しさん
NGNG発泡スチロールの容器を横からフォークでブスリと
差してみたんだよね。そしたら３つの穴からスープが
ピューッと出てきて止まらないんだ。
あわてて穴に口を付けてスープを吸ったけど全然
止まらないんだ。熱くて火傷しそうだったし、そのまま
流しに持っていった。ようやく落ちついてカップの中を
見たら麺がまだ残ってた。我ながらアフォだと思った。
0108デフォルトの名無しさん
NGNGそこまで見当ついててなんでレジストリ検索しないかなー
0109デフォルトの名無しさん
NGNGﾍﾙﾌﾟをよめ
0110デフォルトの名無しさん
NGNGそれヘルプで解決できるのかよｗ
0111デフォルトの名無しさん
NGNG109はﾍﾙﾌﾟで解決できると思われ
0112デフォルトの名無しさん
NGNGつーかFAQだろ。検索しる！
0113デフォルトの名無しさん
NGNGﾏｼﾞか？
0114デフォルトの名無しさん
NGNGどこを縦読みすればいいの？
0115８１
NGNGもう一度質問します
どうしてもif文の使い方がいまいちわかりません
もしlabel1とlabel2とlabel3の数が一緒ならlabel4が1増えるっていうのができない
a=a+1
if label1=label2=label3 then label4="" & a & ""
ってやると、どうしてもlabel1とlabel2の数が一緒になるだけで１増えてしまいます
何が間違ってるんでしょうか？
お願いしますｍ（＿＿）ｍ
0116デフォルトの名無しさん
NGNGよーく考えてみること。
0117デフォルトの名無しさん
NGNG自分の書いたソースをとことん見つめ直すのも勉強だと思われ・・・。
0118デフォルトの名無しさん
NGNGif($label1 eq $label2 && $label1 eq $label3){
$label4++;
}
っということが必要であるかと。
0119デフォルトの名無しさん
NGNGlabel1=label2=label3
これをandつかってばらしてみる、label1=label2 and label2=label3
そうか、IF文を２つ書いてやってみる
だけど、こんなんでうまくいくのか？
0120デフォルトの名無しさん
NGNGif ($label1 == $label2 && $label1== $label3){$label4++}
に訂正。
0121デフォルトの名無しさん
NGNG分からないのであれば、分かるようにかけ。
例えば君なら下記のようになるんじゃね。
if label1 = label2 then
if label1 = label3 then
if label2 = label1 then
if label2 = label3 then
if label3 = label1 then
if label3 = label2 then
a=a+1
label4="" & a & ""
endif
endif
endif
endif
endif
endif
endif
0122115
NGNGやっと理解できましたｗ
ありがとうございますｍ（＿＿）ｍ
0123デフォルトの名無しさん
NGNG「label1=label2」という比較式は、
label1とlabel2が等しければTrueを返す、そうでなければFalseを返す。
つまり、label1とlabel2が等しいときは、
>if label1=label2=label3 then label4="" & a & ""
この文は、
If True = label3 Then
という文と同じだ。
label3の値が"1"など0以外を意味する数字の文字列であったり、
"True"だったり、数値の-1だったりするとこの式は成り立つ。
そういう理由で、
>ってやると、どうしてもlabel1とlabel2の数が一緒になるだけで１増えてしまいます
となる。
0124名無し
NGNG何が原因で出てるのかをつかみたいのですが、再現性がなくって。。。
0125デフォルトの名無しさん
NGNGVB標準のエラーじゃない。
0126デフォルトの名無しさん
NGNG0127デフォルトの名無しさん
NGNG480 AutoRedraw イメージを作成できません。
481 ピクチャが不正です。
482 プリンタ エラーです。
483 プリンタ ドライバは指定されたプロパティをサポートしていません。
484 システムからプリンタ情報を受けるときに問題が発生しました。プリンタが正しく設定されているかを確かめてください。
485 ピクチャの形式が不正です。
486 フォームのイメージをこのプリンターで印刷することはできません。
0128Name_Not_Found
NGNGDim qRs As DAO.Recordset
Set qry = qmDb.QueryDefs("クエリーＸ")
Set qRs = qry.OpenRecordset(dbOpenDynaset)
を実行すると
qRs.RecordCount = 1 になっていた。(実際は1500件)
で
Set qry = qmDb.QueryDefs("クエリーＸ")
Set qRs = qry.OpenRecordset(dbOpenDynaset)
qRs.MoveFirst
qRs.MoveLast
とするとqRs.RecordCount = 1500 でＯＫ
なんでか？ わかる人 手をあげて
0129デフォルトの名無しさん
NGNGレコードセットは一度MoveLastで最終桁まで取らないと
RecordCountでは総数が取れないんだよ。
0130128
NGNGMoveLastしなくても取れる場合があるから、そうとは限らないしょ。
0131129
NGNGちゃんとヘルプに書いてあるよ。
そりゃRecordSetにデータが1つしか無いなら
MoveLastしなくても確実に取れるよ。
結局、カーソルでレコード総なめするような
コードは書くなって事だよ。だってパフォーマンス悪いだろ？
0132デフォルトの名無しさん
NGNGループさせるとしても初期値と比較の分だけしか違わないかと。
0133デフォルトの名無しさん
NGNG>Recordset オブジェクトでアクセスされたレコード数、またはテーブル タイプの
> Recordset オブジェクトか TableDef オブジェクトのレコード総数を返します。
ってある。必ずしもレコード数が返る訳では無い事に注意だ。
つまり、
取れる場合がある→取れない場合もある→取れる事が保証されていない→取れない
って考えとく方が痛い目を見ないで済むかと。
0134デフォルトの名無しさん
NGNGクラサバでそれやったら、場合によっては絞め殺されるぞ...
0135128
NGNGなるほど
「MoveLastしときなさい」ってことですね。
arigatou
0136デフォルトの名無しさん
NGNGMoveLastは遅い
0137131
NGNGんー・・イマイチ意味がワカランが。スマン。
何の初期値の事かな？
パフォーマンスが悪いって所の事をつっこまれてるとしての返答だが、
この場合、データ量が1500件程度ならいいが
10万件や30万件のデータ量になるとカーソルタイプにもよるが
極端にパフォーマンスが悪化するって事が言いたかったんだな。
0138129
NGNGなんだよ。
やさしくヘルプの引用してやらないと礼も言ってくれないのか。
クッソーーーっ グレてやる！！
世知辛い世の中やな。 (TーT)
0139デフォルトの名無しさん
NGNGPC初心者板にはそういう人間たくさんいるぞ。
まぁ、所詮はVB厨だとあきらめるのが吉。
0140コギャル＆中高生
NGNGお役立ちリンク集
必ず役立ちます
コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便
↓
http://kado7.ug.to/wowo/
http://kado7.ug.to/wowo/-a.htm
0141129
NGNG0142デフォルトの名無しさん
NGNGここにいる奴は皆VB厨です。
0143デフォルトの名無しさん
NGNGこの場合は信者って意味じゃないぞ？
0144デフォルトの名無しさん
NGNG0145デフォルトの名無しさん
NGNGSQL使えなかったら無理だろ。
0146デフォルトの名無しさん
NGNGNO付け忘れでし!気分を害してスマソ。
で、MoveLastは遅い(>>136)
とあるけど他に方法ありますか？
次はきっちり礼をしますのでヨロシク
0147ななし
NGNGADOレコードセットなら、MoveLastしなくてもRecordCountは取れる。
パフォーマンス面でお奨めできないのは、DAOの場合と同様。
SELECT COUNT(*) しなさい。(件数が返る)
0148デフォルトの名無しさん
NGNG0149デフォルトの名無しさん
NGNG素直にCOUNT(*)。これ定説。
0150デフォルトの名無しさん
NGNG0151デフォルトの名無しさん
NGNG0152デフォルトの名無しさん
NGNG0154デフォルトの名無しさん
NGNG0155デフォルトの名無しさん
NGNGそんなﾁﾐにﾛｯｸｦﾝ
0156デフォルトの名無しさん
NGNGそれとも割り込み処理中は，暗黙的にほかの割り込みがdisableされているのでしょうか。
または，割り込み処理中に，自分と同じ割り込みが呼び出されることはありますか？
たとえば，0.01秒に１回のTimer割り込みの処理が0.01秒以内で終わらなかった場合，
同じ割り込みが２度パラレルに処理されることはありえるのでしょうか。
0157デフォルトの名無しさん
NGNG複数の画像が入っている1つのTIFファイルを複数のBMPファイルに変換する事は可能なのでしょうか?
0158デフォルトの名無しさん
NGNG可能
0159デフォルトの名無しさん
NGNGVB6.0からOracle8.0.5にoo4oを使用して接続しているのですが、
処理が長いストアドを実行した場合に、タイムアウトさせたいのですが、
どのようにすればよいのでしょうか？
現在、処理が長いとVB側は延々と待ち続けるので、
これを10秒越えるとタイムアウトエラーで終わるようにしたいのですが
ｍ（＿＿）m よろしくおねがいします
0160デフォルトの名無しさん
NGNGDoEventsを呼ぶか、イベント発生のきっかけとなるような処理(TextBoxのTextプロパティを変更する、
FormのRefreshメソッドを呼ぶなど)をしない限り、イベントプロシージャ実行中にイベントは発生しません。
0161デフォルトの名無しさん
NGNG自前でそういうコードを書くか、そういったライブラリを用意すれば可能です。
VB自体にはTIFFを扱う機能は無かったと思います。
0162デフォルトの名無しさん
NGNGご回答ありがとうございました。
重ねて質問なのですが，「イベント処理中に別のイベントは呼び出されない」というのは
「別のイベントは受け付けられるが，呼び出しの順番待ちがかかる」ということでしょうか？
その場合，処理中のイベントが終了したときに，待機中だった別のイベントがまとめて
次々に呼び出されるということでしょうか。
また，たとえば0.01秒に１回のTimerイベントがあった場合に，別のイベントの処理に
１秒かかっていた場合は，その１秒の処理が終わったときに0.01秒のイベントが１００個
呼び出し待ち状態になっているということでしょうか？
どうかよろしくおねがいいたします。
0163デフォルトの名無しさん
NGNGWM_PAINT以外のメッセージが無い限り呼び出されないはず
＞Timerイベント
0164157
NGNGライブラリも考えたんですが、自分で作った方が色々と面倒が無くていいかな
と思ってはいました。
一度ＴＩＦファイルをバイナリエディタで開いてみたんですが、ヘッダ部分の
フォーマットが理解できませんでした。
BMPファイルのフォーマットはなんとか理解できたんですが、TIFからBMPに
にどの様に変えるのかが解らなくて・・・・
0165デフォルトの名無しさん
NGNG0166デフォルトの名無しさん
NGNG基本的に順番待ちだが、Timerイベントはすっぽかします。
0167デフォルトの名無しさん
NGNG？
Sub Command1_Click()
Dim StartTime As Double
StartTime = Timer()
Do While ((Timer() - StartTime) < 10.0)
Loop
End Sub
Sub Timer1_Timer()
Debug.Print ".";
End Sub
Timer1.Interval = 100 にして実行すると、Command1を押してる間は
Timer イベント がきてないみたい
0168デフォルトの名無しさん
NGNG１回だけ。
つまり、Timer処理ルーチンに入ったとき、設定時間をすぎていれば、
実行して、経過時間を０にリセットするだけ。
しかも、最小単位がWin9x系では90ms、NT系では55ms。
インターバルをこれ以上小さくしても意味がない。
0169デフォルトの名無しさん
NGNGストアドプロシジャの中で何か手を打たないとVB側からは
何もしようがないみたいな。
0170超ド級初心者
NGNG何から聞けばｲｲのか分からないくらいアレなので、
とりあえずこんなクサレ質問から。マジです。お願いします。
0171デフォルトの名無しさん
NGNGこの板で見かけたカタカナを片端からサーチエンジンにかけて、
その意味がわかるようになれば、立派にやっていけます。
0172超ド級初心者
NGNGありがとうございます！ではとりあえず単語をメモって
それぞれの意味を憶えてきます。
0173デフォルトの名無しさん
NGNGその心意気やよし！ とりあえず
ちょうどきゅう
ぷろぐらむ
いい
あれ
くされ
まじ
でふぉると
かたかな
さーちえんじん
めも
からだ！
# マ板あたりにスレ立ててやってね。
0174デフォルトの名無しさん
NGNG全体に合わせて変化するようにするにはどうしたらいいですか。
0176174
NGNG高くて買えない
と思ったけど、用語が分かって助かりました。
ありがとうございます。
0177デフォルトの名無しさん
NGNGなんかスゲー投げ遣りなレスだな。しかもBOC・・・。
>>174
マジレスすると変化前と変化後のフォームのサイズの割合を計算して
Dim objControl As Object
For Each objControl In Me.Controls ～ Next
でフォーム上のコントロールコレクションをループして、高さと横幅をその割合で
変化させたらいいと思う。
0178デフォルトの名無しさん
NGNG追加、位置もな。
0179デフォルトの名無しさん
NGNGご教授お願いします
0180デフォルトの名無しさん
NGNGSelStartプロパティで何文字目にカーソルがあるかわかる。
これは改行コード込みなので、
・そこまでのCR LFコードの数を数えたら行がわかる
・CR LFコードからどのくらい後ろなのかを数えたら列がわかる
0181デフォルトの名無しさん
NGNGヒントありがとうございます。頑張ってやってみます
0183デフォルトの名無しさん
NGNGPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim lngRow As Long
Dim lngCol As Long
Call subGetTextRowCol(Text1.Text, Text1.SelStart, lngRow, lngCol)
Debug.Print CStr(lngRow) & " - " & CStr(lngCol)
End Sub
Private Sub subGetTextRowCol(ByVal strTarget As String, _
ByVal lngSelStart As Long, _
ByRef lngRow As Long, _
ByRef lngCol As Long, _
Optional ByVal strDemiliter As String = vbCrLf)
Dim strArray() As String
Dim strStartToSel As String
lngRow = 0
lngCol = 0
strStartToSel = Left$(strTarget, lngSelStart)
strArray() = Split(strStartToSel, strDemiliter)
On Error Resume Next
lngRow = UBound(strArray()) - LBound(strArray())
lngCol = Len(strArray(UBound(strArray())))
On Error GoTo 0
If lngRow = -1 Then
lngRow = 0
End If
If Err.Number <> 0 Then
Err.Clear
lngCol = 0
End If
Erase strArray()
End Sub
0184デフォルトの名無しさん
NGNG下のプログラムみたいにやってみたけど、元のコントロール位置を保存してないと、
精度落ちから、かなりずれてくるね。特に押しつぶしたあと元の大きさに広げてみると悲惨。
Private mlngFormHeight As Long
Private mlngFormWidth As Long
Private Sub Form_Load()
mlngFormHeight = Me.Height
mlngFormWidth = Me.Width
End Sub
Private Sub Form_Resize()
Dim dblChangedSizeH As Double
Dim dblChangedSizeW As Double
Dim objControl As Control
dblChangedSizeH = CDbl(Me.Height / mlngFormHeight)
dblChangedSizeW = CDbl(Me.Width / mlngFormWidth)
For Each objControl In Me.Controls
With objControl
.Height = CLng(.Height * dblChangedSizeH)
.Top = CLng(.Top * dblChangedSizeH)
.Width = CLng(.Width * dblChangedSizeW)
.Left = CLng(.Left * dblChangedSizeW)
End With
Next
mlngFormHeight = Me.Height
mlngFormWidth = Me.Width
End Sub
0185デフォルトの名無しさん
NGNGコードを書いていただきありがとうございます。理想のうごきができました。
あともうひとつ質問ですがツールバーにテキストボックスやオプションボタンをつけることはできるのでしょうか？
0186デフォルトの名無しさん
NGNG配置したいコントロールをCtrl + Xで切り取ってから、ツールバーをクリックして選択し
Ctrl + Vで貼り付ければOKかも
0187デフォルトの名無しさん
NGNGVBScriptで「名前を付けて保存」のダイアログボックスが
どうしても作れません
コモンダイアログコントロール (Comdlg32.ocx）を
インストールするところまではわかったのですが
皆様どうかお願いします。
0188
NGNGふ。
0189デフォルトの名無しさん
NGNGインストールできたら
[ﾌﾟﾛｼﾞｪｸﾄ]メニューの[ｺﾝﾎﾟｰﾈﾝﾄ]クリックして
リストの中から[Microsoft Common Dialog Control 6.0]選んでOKね。
フォームに貼り付けて
CommonDialog1.ShowSave で実行。
0190デフォルトの名無しさん
NGNG0191デフォルトの名無しさん
NGNG/ ヽ ./ .∧
/ ｀､ / ∧
／ ￣￣￣ ヽ
l::::::::: .l
|:::::::::: -=・=- -=・=- |
.|::::::::::::::::: ＼＿＿_／ |
ヽ::::::::::::::::::: ＼／ ノ ＶＢＳだとぉ～～～？
0192デフォルトの名無しさん
NGNG0193デフォルトの名無しさん
NGNG0194デフォルトの名無しさん
NGNGMsgBox "ディレクトリは存在します"
0195デフォルトの名無しさん
NGNGMsgBox "ディレクトリは存在しません"
0196193
NGNG0197デフォルトの名無しさん
NGNGいやいい。おこっているわけじゃない。
0198デフォルトの名無しさん
NGNGlngRtn = Replace("s/hoge/boke/g", strTarget)
こんな感じにするみたいなんですが、bokeのところを変数にしたい時は
どうしたらいいんでしょうか？
このReplaceと普通のReplaceと同時に使えるようにする方法でもいいです。
0199デフォルトの名無しさん
NGNG馬鹿ですか？馬鹿だよね、きっと。
＞bokeのところを変数にしたい時
よくこんなことも分からんで金もらってるなあ、あんた。
0200デフォルトの名無しさん
NGNGlngRtn = Replace("s/hoge/$boke/g", strTarget)
0201デフォルトの名無しさん
NGNG金なんかもらってないですよ。真面目に使い出したのは昨日なんです。
買ったのはずっと昔なんですが。
>>200
↓のようにやると、2個目のMsgBoxは$strNew$strNewと表示されます。
Private Declare Function Replace Lib "bregexp" _
(szRegstr As String, szTarget As String) As String
Private Sub Form_Load()
Dim strTarget As String
Dim strNew As String
strTarget = "hogehoge"
strNew = "boke"
MsgBox Replace("s/hoge/boke/g", strTarget)
MsgBox Replace("s/hoge/$strNew/g", strTarget)
End Sub
0202198
NGNG○bokeのところに変数を使いたい時は
0203デフォルトの名無しさん
NGNGVBならVBらしくbregexpなんか使わないでRegExpオブジェクトを使え。
0204デフォルトの名無しさん
NGNG>>>200
>↓のようにやると、2個目のMsgBoxは$strNew$strNewと表示されます。
当たり前だろ。どこに変数がある？眼はみえてるか？
0206デフォルトの名無しさん
NGNG200のミスに気付かないと。
0207198
NGNG200ってもしかしてネタなんですか。
0208ネタとは何事か
NGNG$_='198はhoge';$boke='馬鹿';
s/hoge/$boke/g;
print $_;
0210デフォルトの名無しさん
NGNGperlネタはスレ違い。
0211スレ違いとは何事か
NGNG0212デフォルトの名無しさん
NGNG0213198
NGNGありがとうございます！ホント助かりました！
0214デフォルトの名無しさん
NGNG200のアホさが分かった？お前もひどいけど。
0215デフォルトの名無しさん
NGNG>>200はネタで引っ張りすぎだからイヤだが
偉そうにネタにマジレスしているお前は馬鹿だ。
0217デフォルトの名無しさん
NGNG馬鹿に見えないならどうでもいいよ。
0218デフォルトの名無しさん
NGNG0219本気の名無しさん
NGNGこれはＶＢでは作れないんですか？
もし作れるとしたらなにか参考になるソースまたはページはありませんか？
0220デフォルトの名無しさん
NGNG取りあえず少しでも大それたことしたいと思ってるならはじめからVBなんぞ選ぶな。
0221デフォルトの名無しさん
NGNGVBオンリーでは作れないと思ったほうがいい。
0222デフォルトの名無しさん
NGNG自分のことを言っているのか。
0223デフォルトの名無しさん
NGNGVBスレ専門の煽りですか？
0224本気の名無しさん
NGNG>221
ご返事ありがとうございます。
やっぱり所詮はＶＢ
Ｗｐｅのようなソフトは作れないのですか
がっくり
0225デフォルトの名無しさん
NGNGデバドラが作れるくらいじゃないと無理ですよね。
0226デフォルトの名無しさん
NGNGしかも最近は自分宛のパケットしか飛んでこない罠。
0227デフォルトの名無しさん
NGNGいやいや、盗聴目的ではないのでそれはいいんですが。
0228デフォルトの名無しさん
NGNGさせてみたいんですが、
これはVisualBasicではできるのですか？
0229デフォルトの名無しさん
NGNGマルチやめろ
http://pc.2ch.net/test/read.cgi/hack/1026482652/
0230
NGNGVBはなんだって可能です。でも、VBでAPIやポインタを扱えない
お前には無理です。
0231
NGNG／￣￣￣￣＼
（＿＿＿＿人 ）
（-◎-◎一 ヽミ|
（ (_ _) ９）
（ ε （∴ |＿ ｽﾞ････ｻﾞ･･ｻﾞｧ
＿＿__ヽ＿＿＿＿__／ヽ___）（￣（￣￣￣|）
（ﾐ＿|＿＿（ （ﾐ＿|＿＿＿_） ヽ. ヽ:::::ヽ:::::::ヽ
（ ⌒ヽ:／::::::::丿
ヽ | ∥:::::::丿 (´⌒(´⌒
＼ | ∥::::ノ (´⌒ (´⌒
ゝ＿＿＿＿丿＿_∥ノ＿(´⌒ (´⌒
0232デフォルトの名無しさん
NGNG簡単な文字認識を行うプログラムどこかに公開されていませんか？
0233デフォルトの名無しさん
NGNGhttp://www.google.co.jp/search?num=100&hl=ja&inlang=ja&ie=Shift_JIS&q=%22character+recognition%22+%22neural+network%22+%22source+code%22&lr=
0234デフォルトの名無しさん
NGNG> VBはなんだって可能です。
なら、マルチスレッドで複数のフォームを並行的に更新するアプリを書い
てみな。
0235デフォルトの名無しさん
NGNGほっとけ。VB厨は所詮井の中の蛙。
0236デフォルトの名無しさん
NGNGマルチスレッドを使わないで複数のフォームを並行的に更新するアプリは書けるけどな。
0237デフォルトの名無しさん
NGNGタイマーでも使うのか（藁
0238デフォルトの名無しさん
NGNGほら。君にも作る方法わかってるじゃん。
0239デフォルトの名無しさん
NGNGで、スレッドは一般的にどう実装されてるか知ってるかい？
スレッド以外って言うから期待しちゃったよ。
0240デフォルトの名無しさん
NGNGマルチスレッドは手段であって目的じゃないよ。
0241即レス ◆POP.SOKU
NGNG>234
VC++使ってもいいしActiveXEXEでも出来るぞ。
0242デフォルトの名無しさん
NGNG何するかと思ったら精度の悪いTSS。
それをスレッドの代わりになるとかいっちゃあ。
0244デフォルトの名無しさん
NGNG行き詰まってしまいました。
Form１で計算して出た結果（数字）を
Form２で使いたいときってどうしたら良いですか。
教えていただけませんか？
0245デフォルトの名無しさん
NGNGForm1で
Public hensu As Long
とやって、Form2で
MsgBox Form1.hensu
とやると表示できた。
ホントのところは知らない。
0247デフォルトの名無しさん
NGNGV B 厨 。 オ ブ ジ ェ ク ト 指 向 全 然 わ か っ て お り ま せ ん。
0248244
NGNGありがとうございます。
Dim でなく Public で宣言するのと
表示させる時の指定の仕方（Form1.hensu ってふうに）を
変えればいいみたいですね。
うまく表示されました。
感謝です！！
0249デフォルトの名無しさん
NGNGちょっと恥ずかしかったねぇ。
0250230
NGNG>なら、マルチスレッドで複数のフォームを並行的に更新するアプリを書い
>てみな。
だから言ってるだろ？
VBでAPIやポインタを扱えない
お前には無理です。って。
脳みそあんのか？
0251デフォルトの名無しさん
NGNGほう、API でできるとな。ちなみに、VB のコントロールがマルチスレッ
ドに対応してねー事ぐらいは知ってるよな。
いきがるのは止めたら ? 今時恥ずかしいだけだよ。
まっ、VB 厨だからしょうがないか...。
0252230
NGNGexeにしてからじゃないとIDEが落ちるからな。
0253230
NGNGアホまるだしだな。専門卒か？
0254デフォルトの名無しさん
NGNG自分自身を呼び出せば出来るよ（海外では常識なんですが）
>>251
COM知りませんって言ってるようなもんだよ。
0255デフォルトの名無しさん
NGNGプププ、まだ言ってら。ヴァッカじゃねーの。IDE なんて関係ないよ。
「VB のコントロール」と書いてあんのに、脳みそ腐ってない ?
まあ、マルチスレッドプログラムなんて書いたことないんだろーね。
君には、一生無理だろうから、おとなしく、VB で API とポインタ
(もどき) 使ってな。その方が、君も君の回りも幸せだよ。
0256デフォルトの名無しさん
NGNGCreatethreadとは大違いな大袈裟な処理だな。
0257デフォルトの名無しさん
NGNGアフォ？
0258デフォルトの名無しさん
NGNG頭悪いなぁ。
> アウトプロセスサーバ
どこが、マルチスレッドなんだよ。
これだから、VB 厨は...。
0259デフォルトの名無しさん
NGNGPublic Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hwnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
Public Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
Public Declare Function RemoveProp Lib "user32" Alias "RemovePropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
と
ObjPtr関数 で可能
つーか、
「VBじゃマルチスレッドできないだろｱﾌｫ」つーのは昔から低脳VC厨と決まっておる。
0260デフォルトの名無しさん
NGNGCreatethreadで実現できる。でも252にあるように
開発中にデバッグしたらあぼーんする。
0261デフォルトの名無しさん
NGNG僕は急に難しくなったので困っています。
0262デフォルトの名無しさん
NGNG0263デフォルトの名無しさん
NGNG0264デフォルトの名無しさん
NGNGVB6でクラスやらインタフェース継承やらをやってないから
そういうことになる。自業自得だ。
0265デフォルトの名無しさん
NGNG実際実行してカレントプロセスIDと生成させたスレッドのIDをとると
カレントプロセスは同一でスレッドIDが違うフォームを生成し、
別々に更新などが出来る。VBでマルチスレッドを行う有名な方法。
例えばこれ
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=24672&lngWId=1
230は説明が下手。
0266デフォルトの名無しさん
NGNGオーバーライドと多態がわかりません。
0267デフォルトの名無しさん
NGNGあははー>>261
0268デフォルトの名無しさん
NGNG0269デフォルトの名無しさん
NGNG＞ポリモーフィズム
そもそも名前が覚えられん。
だから多態で一生通す。
0270デフォルトの名無しさん
NGNGいきなりVB.NETで多態をやるのが難しいのならVB6で練習しとけ。
0271ごみレス ◆WuzDVM0M
NGNGここは初心者質問スレですよー。
0272デフォルトの名無しさん
NGNG270は無視しとけ、.NETで出来なければ無理
0273デフォルトの名無しさん
NGNG0274デフォルトの名無しさん
NGNGなんでやねん。概念さえ理解すれば.NETでも簡単にできるだろ。
0275デフォルトの名無しさん
NGNG付いていけない方が一人。
0276デフォルトの名無しさん
NGNG単語（日本語の場合は、必ずしも単語となるとは限らないですが）
が選択されますよね。それと同じようなことをカーソル（マウスカーソルじゃなくて）
があるところでやるにはどうしたらよいのでしょう。
0277276
NGNGすればいいんでしょうか？
0278デフォルトの名無しさん
NGNG境目ってスペース？
0279ななし
NGNG実装ではなく、設計レベルでの質問。(VB6.0 Or VB.NET)
(開発チームにスキルの低い糞メンバーが多数紛れ込んでいるという前提で)
API関数はラッピングすべきでしょうか？
私的には、ある程度以上のスキルがあれば、APIだからといって隠蔽する必要は
ないと思ってますが、一般論としてどうでしょうか。
ラップするということは、多かれ少なかれ、クラス設計を考えない訳には行かず、
設計コストを上回る利点（再利用性、保守コストの軽減）がなければ意味がない
と思ってますが、実際のところ、APIのラッパー化で大きな成果(品質面、コスト
面で)を挙げた経験のある方、いらっしゃいますか？
0280デフォルトの名無しさん
NGNG＞(開発チームにスキルの低い糞メンバーが多数紛れ込んでいるという前提で)
＞ある程度以上のスキルがあれば
言ってることが矛盾してるので答えようがない。以上。
0281デフォルトの名無しさん
NGNG文字コードの範囲でグループ分けしているんじゃないか?
例えば、「表示されてる文字列の上でダブルクリックすると 」だと、
[表示] [されてる] [文字列] [の] [上] [で] [ダブルクリック] [すると ]
みたいなかんじ。
0282デフォルトの名無しさん
NGNGあくまで俺の意見だがAPIだからという理由だけでラッピングするのはお勧めしない。
たとえばAPIのSleep。これをラッピングしても利点はほぼないといえる。
しかし、ファイル入出力APIなどはVBのファイル入出力ステートメントより
FileSystemObjectの方が使いやすいようにラッピングする利点がある。
(もっともファイル入出力APIを直接使う理由はあまりないだろうが)
また文字列を扱うAPIの場合、APIの呼び出しの前後に文字列領域の確保・
vbNullCharの削除が毎回発生するのでこれもラッピングした方がいいかもしれない。
ただクラスではなく標準モジュールとしてラッピングでも良いと思う。
繰り返すが、APIと言う理由だけでラッピングする必要はないだろう。
APIも宣言が違うだけであってただの関数と同じとみなす。
単純なAPIはそのまま使い、クラスの方が良い場合はクラスとし、VBで使うのが
少しだけ面倒な場合は標準(or クラス)モジュールで軽くラッピングすればよいだろう。
なおクラスの方が良い場合は、クラスとはなにか？どんなときに使用すればよいかが
わかっていれば、簡単にわかるだろう。あとクラスにする場合も全体的な設計こそやるが、
使うと決まってない機能まで実装する必要はない。拡張性さえあればよい。
0283ななし
NGNGコメント感謝。参考とさせて頂きます。
> あとクラスにする場合も全体的な設計こそやるが、
> 使うと決まってない機能まで実装する必要はない。拡張性さえあればよい。
確かにそれが最大の利点ですね。
0284ななし
NGNG例えば、TextBox.Textプロパティを変更すると、TextBox_Changeイベントが
発生しますが、これって、「トリガ」という表現でよいのでしょうか？
(「トリガ」だと、なんだか、RDBの用語のような気がしますが？)
0285デフォルトの名無しさん
NGNG0286デフォルトの名無しさん
NGNG0287デフォルトの名無しさん
NGNG0288ななし
NGNGメッセージ(イベント)を発生させる「原因」を何と呼ぶのかと疑問に
思ったのですが・・・。
0289デフォルトの名無しさん
NGNG原因はさまざまでしょ。
その場合は「テキストボックスへの入力」では。。。
一般的な言い方は知らん
0290即レス ◆r/lgIxxc
NGNG意味が通じるならなんでもいいと思うぞ。
0291即レス ◆POP.SOKU
NGNG0292デフォルトの名無しさん
NGNG0293デフォルトの名無しさん
NGNGただし、VC等のように最初の一歩が極端に難しいわけでもない。
0294デフォルトの名無しさん
NGNG敷居は低いが次の敷居がさらに高くなる。
0295即レス ◆POP.SOKU
NGNG最初は簡単。後になると難しいっていうか辛い。
0296デフォルトの名無しさん
NGNG>実装ではなく、設計レベルでの質問。(VB6.0 Or VB.NET)
>(開発チームにスキルの低い糞メンバーが多数紛れ込んでいるという前提で)
設計以前の問題。
プロジェクト立ち上げる奴のスキル、見る目、人望がないだけ。
>API関数はラッピングすべきでしょうか？
要求仕様から仕様決定、言語選定を間違っていると思われ。
業務アプリでVB使うときにAPIの使用はほとんどの場合不要。
コストベースで考えれば自明。
0297デフォルトの名無しさん
NGNGimplementsってありますよね！
これはメンバを明示的するという意味があるだけですか？
Dim なら変数を使いますよっと明示するわけですが！
implementsはベースクラスのメンバと同じ名前のを使いますよっと
明示するために使うだけなのですか！？
0298デフォルトの名無しさん
NGNGImplementsの本来の役割はCOMインタフェースの実装のためにあります。
0299デフォルトの名無しさん
NGNGしつこいな・・・。
0300デフォルトの名無しさん
NGNGなんぞイヤな事でもあったか？
0301デフォルトの名無しさん
NGNG0302デフォルトの名無しさん
NGNGいい事言った。
0303ななし
NGNGずいぶんな言われようだが、別に、俺がプロジェクトを立ち挙げた訳じゃない。
こんなメンバーでは無理だと内心おもっているが、上の人間が、今のメンバーで
やり繰りすることしか考えてない。
自分は、もうすぐよその部署に異動になるので、はっきり言ってもうどうでもよい
(てめえら、後は勝手にやれ、という心境)のだが、一応、設計ドキュメントとか
標準化規約(今頃VBのコーディング規約なんて・・・)は残していくことになってる
ので、どうしたものかと思案してるところです。
> 業務アプリでVB使うときにAPIの使用はほとんどの場合不要。
> コストベースで考えれば自明。
極論過ぎ。
INIファイルの読み書きひとつとっても、標準入出力関数では、生産性が上がらないし、
ShellExecuteやプロセスの監視なんかはAPI使わずにどうやって実装するというのだろうか・・・？
(「C++使え」とかいうのはなしね。VB使うという前提なんだから)
0304ななし
NGNG激しく板違いですが、自社の開発メンバーが糞ばかりでまともなコードが書けない状況で、
外注要員を上手く使うことで、プロジェクトを成功(品質面でも、コストパフォーマンス面
でも)させた経験のある方、いらっしゃいますか？
(外注メンバーのコントロールって、自社開発以上にむずかしいと思うのだが・・・)
0305初心者
NGNG数を出力するにはどのようにすればいいのでしょうか？
キーワードの頭の位置を帰す関数しか見当たらなくて困っています。
ご教授ください。
0306即レス ◆POP.SOKU
NGNG(len(srcstr)-len(Replace(srcStr,SearchStr,"")))/len(searchstr)
とか。
0307デフォルトの名無しさん
NGNGそれはある意味曲芸だが。
0308ななし
NGNGあ、やっぱり。
でも、うちの会社、てめーらに技術がないなら、外注に○投げしさえすれば
すべてが解決すると思い込んでるバカが多い。(上も、下も)
受け入れ検証や、完成後のPG保守をどうするつもり(たぶん、目先のこと以外
何も考えていないと思うが)なんだと、小一時間(以下、略)
0309ななし
NGNGその手があったか。
InStr関数をループで回すのは、文字列が大きいと遅いし、RegExpの
マッチオブジェクトを使う方法しか思いつかなかった。
0310デフォルトの名無しさん
NGNG0311デフォルトの名無しさん
NGNG0312デフォルトの名無しさん
NGNGさんくすです
0313デフォルトの名無しさん
NGNGttp://www.geocities.co.jp/SiliconValley/4805/vbtips/vbtips092.htm
を参考にしたのですが、作ったアプリを複数起動してると、
後から起動した奴を使っていても一番初めに起動した奴が反応してしまいます。
どうしたら良いのでしょうか？
0314だめだめさん
NGNG取得してほかのオブジェクト（たとえばテキストボックス）
に出力することってできますかねぇ？
0315即レス ◆POP.SOKU
NGNGグローバルだから当たり前なんだが。
アトムを使い続けたいならフォアグラウンドか
どうかで判定してもいい。
ただ、ホットキーならフォームのKeyPreview=trueにして
KeyPressとかで判定した方が楽で確実だぞ。
0316即レス ◆POP.SOKU
NGNG普通に出来るはずだが。
0317だめだめさん
NGNGやりたいことは分かっててもコードがさっぱりです。
0318313
NGNGありがとうございます。
一番最初の奴がForegroundにある奴を操作するようにすればいいんだ
というところまで分かったのですが、その先が分かりません。
これからKeyPressでやる方を勉強してみます。
0319デフォルトの名無しさん
NGNGWinsock2ならVBでもできそうだよ
0320デフォルトの名無しさん
NGNG取得、送信する方法がわかりません。
どのようにしたら可能でしょうか？
0321デフォルトの名無しさん
NGNGフック。まぁVB厨には荷が重い。
0322デフォルトの名無しさん
NGNGだから、314は「だめだめさん」だってばよ。
0323デフォルトの名無しさん
NGNG質問です
①別ウィンドウっていうのは、別exeなんでしょうか？
②それとも同一プロジェクト内のサブフォームなんでしょうか？
①なら、別ウィンドウにプロパティを持たして、クリックイベント時に
プロパティの値を設定すればいいのでは？
②なら①と同様にするか、グローバル変数で値を設定するのでは
だめでしょうか？
0324デフォルトの名無しさん
NGNG質問です。
機種依存文字って知ってますか？
0325323
NGNG失礼しました ついうっかりです
１．別ウィンドウ・・・・
２．それとも・・・
１．なら、・・・
２．なら１．と同様に・・・
と、読み直して下さい
0327eibu ◆c61exE6E
NGNG手元にVBがないから確認できないけど
DBGridのRowColChangeイベントに(他のChangeイベントでもいいぞ。)
Text1.Text=DbGrid.カレントフィールド(どんなメソッドか忘れた。)
みたいにしてみぃ。
後は自分で調べるのも勉強。
0328即レス ◆POP.SOKU
NGNG取得はフックしないと無理。
・・・でもなんかいけそうな方法が
浮かんだので今度試して見よ。
送信はSendMessageを使う。
コマンドボタンならBM_CLICKでいい。
通常のウィンドウならLBUTTONDOWN&LBUTTONUP。
VB製のクリックイベントを発生させたい時は
マウスをキャプチャしてないといけないので注意。
0329デフォルトの名無しさん
NGNGActiveX DLLも普通のDLLの一種だろ。
0331デフォルトの名無しさん
NGNGでもActiveX DLLもLoadLibraryできるぞ。
0332デフォルトの名無しさん
NGNG0333デフォルトの名無しさん
NGNG>331
マジ？xxxObject関連じゃない
0334ななし
NGNGちょっとだけ、ツッコミ。
OCXはコンテナが必要。また、コンテナがロードされている間は破棄できない。
上記2点で、OCXとActiveXDLLとは異なります。
(COMに詳しくないので、これ以上の説明はボロが出そうだが・・・)
0335デフォルトの名無しさん
NGNGうまく行きません。やり方を教えてください。
0336ななし
NGNG>>335
> うまく行きません。やり方を教えてください。
具体的で回答しやすい質問の典型ですね。(嫌味)
やり方、ということですが、「うまく行くように」コーディング
すれば、「うまく行きます」。
(投げやり)
0337デフォルトの名無しさん
NGNG嫌味を嫌味と書いた時点からそれは嫌味ではないかと。
0338335
NGNGhttp://tokyo.cool.ne.jp/taquino/vbcgi/stdio.shtml
のは、
実行ファイル.exe > 出力ファイル.txt
でうまくいきました。
実行ファイル.exe | more
はだめでした。
てっきり、コンソール画面（というか、MS-DOS プロンプト）
に出てくるのだと思ってました。
0339335
NGNG標準出力の話だったら
結論：（厳密な話は知らないが）できる
0340335
NGNGVB.netだと簡単になるんですか？
0341デフォルトの名無しさん
NGNGお前には無理だろう。
0342デフォルトの名無しさん
NGNG'状態 : Form1...プリプロセッサ処理を実行しています。' で失敗するんだが。。。
VB6 のプロジェクトがどんな内容であろうと結果は同じ
最初のモジュールで引っかかるよう
どうすりゃいい？
0343デフォルトの名無しさん
NGNGまだＶＢ歴が短く右も左も分からないような状態なので詳しく教えていただけると助かります。お願いします｡
0344デフォルトの名無しさん
NGNGぜんぜん簡単な質問じゃない上に
丸投げは(･A･)ｲｸﾅｲ
0345ぷらねっと
NGNG行うにはどうすればよいですか。INET コントロールでなくても何か方法が
あれば教えてほしいです。よろしくお願いします。
0346デフォルトの名無しさん
NGNGつぅか用語もまともに知らないくせにプログラミングなんぞ５億年早い。
0347デフォルトの名無しさん
NGNGinet1.Proxy = "串名"
inet1.AccessType = icNamedProxy
0348ぷらねっと
NGNGしかしユーザ名とパスワードを要求するような PROXY には、それでは
対応できないのです（345は説明不足でした)。
他の方もご存知でしたらぜひ教えてください。よろしくお願いします。
0349デフォルトの名無しさん
NGNGどのようにして行うのが一般的な手段なんでしょうか？
サイト検索などもしてみましたが事例がほとんど見当たりませんでした。
ポインタだけでも示してもらえれば幸いです。
0350デフォルトの名無しさん
NGNGSAX
0351343
NGNG0352デフォルトの名無しさん
NGNG例えば
frmMain.rtfMain.Text = frmMain.rtfMain.Text & "hogehoge"
などとすると、設定されていた書式情報が消えて、デフォルトになってしまいますよね。
これをなくして（＝現在までの書式情報を消さないで）文字列を追加するには
どうすればいいのでしょうか？
Visual Basic 6.0 Service Pack 5
Rich TextBox Control 6.0 SP4
です。
0353初心者
NGNGこういうのですか？
http://www.microsoft.com/JAPAN/support/kb/articles/JP175/1/79.HTM
0354デフォルトの名無しさん
NGNGスクロールバーが水平・垂直それぞれ、出ているかどうかって判定はできますか?
スクロールバーが出るとグリッドの表示領域がそのぶん狭くなりますが、その正確なサイズを知りたいのです。
よい方法はないものでしょうか。
0355デフォルトの名無しさん
NGNGWindowStyleを調べるとか。
0356デフォルトの名無しさん
NGNGグリッドが固定なら表の縦横数で
水平、垂直になる数は把握できるけど
それじゃだめなの？
0357デフォルトの名無しさん
NGNGWindowstyleに、スクロールバーに関するものはありますでしょうか？
ネットで調でてもイマイチ要領を得ません…。
>>356
はい。表全体のサイズではなくて、グリッドのスクロールバーに隠れずに表示可能な領域のサイズが知りたいんです。
スクロールバーが出現している時は、width又はheightプロパティ - 約16ピクセルであり、
スクロールバーが出ていなければ、width又はheightプロパティほぼそのままの値となるのですが、
スクロールバーが出現しているかどうかを判定する方法が判らないんです。
0358デフォルトの名無しさん
NGNG標準EXE⇔ActiveXEXE⇔ASPファイル→クライアントＰＣへ表示
てなかんじで標準EXEで生成されるデータをVBで作成したActiveXEXEでメモリ受け渡し。
ASPでCreateObjectしてクライントにデータ渡しをしようとおもっています。
とりあえず今作成しているActiveXEXEでローカル環境内での複数プロセスでのメモリ
私は行えてるんですが、ASPを経由したときにメモリが全く取得できませぬ…
ASPやIISの設定を触ってみるもどうにもならず、メモリの共有を行うActiveXEXE自体を
作り直したほうがいいのかなぁ・・・と思って書込みした次第であります。
いろいろ調べてるうちにCreateFileMappingとかいうAPIを使えばできるとかできないとか
いう情報もでてきたのですが・・・
どなたかよろしくおねがいします。
0359デフォルトの名無しさん
NGNGスクロールバーが出現しているかどうかの判定はこれでいけると思います。
Public Const 水平スクロールバーに収まる値 as Long = "事前に調べた値(-16済)"
if 水平スクロールバーに収まる値 > 1個のセル.Width * 横セル数（項目数） then
msgbox "グリッドに収まってる"
else
msgbox "水平スクロールバー表示"
endif
0360デフォルトの名無しさん
NGNG×Public Const 水平スクロールバーに収まる値 as Long = "事前に調べた値(-16済)"
○Public Const 水平スクロールバーに収まる値 as Long = "事前に調べた値"
水平スクロールバーに収まる値 = グリッド.Width
0361miki
NGNGわかる方がいらしたら教えてください。よろしくお願いします。
0362デフォルトの名無しさん
NGNGExcelで「マクロの記録」を使用し、実現したい操作をマクロ化する。
記録されたVBAコードを参考に、VBからExcelObjectを操作するコードを書く。
以上。
0363デフォルトの名無しさん
NGNGなるほど、自分で計算してスクロールバーが出現してるかどうか判断するわけですね。
水平・垂直のカラミで少々面倒ですが、とりあえずしその方法で実現できました。
ありがとうございました。
0364358
NGNGＣＯＭの構成の設定をちょっといじってみたら、現段階のActiveXEXEでも動作しました。
お手数おかけしました。
0365ななし
NGNG昔のDOS形式(8.3)に収める必要(LongFileNameになると、何らかの問題が発生する、
等)はありますか？
8文字以内に収めると、機能に対応した命名がむずかしく、わかりにくくなると思う
のですが、どうでしょうか？
0366デフォルトの名無しさん
NGNG0367ななし
NGNG>>366
NT4.0(SP3以上), 2000(SP2以上)限定なら問題ないでしょうか？
あとは、インストーラ作成ツール(グレープシティ製等)のバグ等で
問題が出ないかどうかですが・・・。
0368デフォルトの名無しさん
NGNGなぜインストーラーにソースファイルの
ファイル名が関係すると思うのか小一時間（略
0369ななし
NGNGソースファイルはともかく、実行ファイル名はふつう、プロジェクト(*VBP)
名と同名にするでしょ？
0370デフォルトの名無しさん
NGNGんなこたーない
それは単なるあなたの習慣でしょ
0371デフォルトの名無しさん
NGNG実行ファイル名と同じ名前の.vbpを作りますが何か？
0372ななし
NGNGですよね、ふつう。
わざわざ変更したら、作業ミスの原因になりかねないと思うんだけど。
0373デフォルトの名無しさん
NGNG0374デフォルトの名無しさん
NGNG老婆心ながら、余計な反感買うような書き方はしないほうがいいかと。
上にもそうじゃないって書いてる人いるし、なにが普通かは
その人によるでしょう。自分の基準だけで決めつけたような書き方は
しないほうがいいと思いますよ。
0375デフォルトの名無しさん
NGNG漏れは是が非でも8文字以内に抑えます。
0376ななし
NGNGご忠告感謝。m(_ _)m
人それぞれ、ということは、プロジェクトとしてのルールを決めないと、
統一性が取れなくなる恐れがある、ということですね。
>>375
参考になります。
0377デフォルトの名無しさん
NGNGそれはVB6では無理。ＶＢ.NET買えよ。
0378デフォルトの名無しさん
NGNG0379名無しさん
NGNGﾜﾗﾀ
0380デフォルトの名無しさん
NGNG思わず423を探したよ～～
0381デフォルトの名無しさん
NGNG例を挙げて貰えると嬉しいです。
（つか、もしかして無くても困らないのでしょうか…）
0382デフォルトの名無しさん
NGNGまぁ、いいんじゃない？
VBのはあってもなくても大して変わらないだろうし。
0383デフォルトの名無しさん
NGNG0384デフォルトの名無しさん
NGNGで、付いたレスは読まない。死ぬ？
0385デフォルトの名無しさん
NGNGwith frmMain.rtfMain
.SelStart=Len(.Text)
.SelText="ぼけ"
end with
ってやればいいだけじゃないの？
あまりにも当たり前すぎるのでオイラ勘違いしてる？
0386デフォルトの名無しさん
NGNGVB以外でもクラス使ってませんね。
0387352
NGNGありがとうございます。なるほど、カーソル位置に挿入という考え方が
あったのですね。
助かりました。
0388ななし
NGNG標準モジュールのみの実装に(生産性の)限界や、人生の不条理を感じたときに
使います。したがって、非効率な作業に何の疑問も感じないおめでたい人には
一生ご縁がありません。
0389デフォルトの名無しさん
NGNG＞標準モジュールのみの実装に(生産性の)限界や、人生の不条理を感じたときに使います。
そして己の伴侶の無能さを再確認し、絶望へと。
0390デフォルトの名無しさん
NGNGこのへんでも読んでみるといい。
ttp://homepage1.nifty.com/CavalierLab/lab/vb/clsmdl/index.html
0391デフォルトの名無しさん
NGNGJAVAで行ったイベントを、ＶＢ６のほうで受け取れるカンジで・・・。
0392デフォルトの名無しさん
NGNGいま、VB6.0とWinXPを使っているのですが、
Graph32.ocxがうまくレジストリに登録できないのです。
登録にはRegsvr32を使いました。
Win98の時は問題無かったのですが...。
＃Graph32.ocxなんてタコなコントロールを使っているのが悪いのは
＃わかっているのです。ただ、他の人が書いたソースを修正している
＃ので...。
0393デフォルトの名無しさん
NGNG・うまくレジストリに登録できない だけではなにが起きてるか分からない
・Graph32.ocx って何？ どっかの製品？ それとも標準でそんなのあったっけ？
どっちにしてももう少し詳しく書いたほうがいいと思われ。
勘では、関連DLLかなにかが不足してるんだと思うけども。
0394デフォルトの名無しさん
NGNGCopyright _ 1994, 1995 Bits Per Second Ltd
（´-`）.｡ｏO（XPで使えるのかなぁ）
0395デフォルトの名無しさん
NGNGどうもLoadLibraryに失敗しているようです。そう言う意味で関連DLLが
不足しているというのは当たっていると思います。
とりあえず、バイナリでのぞいてなにが足りないのかチェックしてみます...。
Graph.ocxは昔のVBとの互換用にいまでもVBのメディアには収録されてい
ます。新規に使うのはお勧めしないとMSは言っております...。
とりあえず力づくでインストールする方法も試してみるとして、
「こうやってインストールしたら使えたよ」ってな方おられませんかね。
>>394
そうですよね...。個人的にはこんなocx使いたくないんですがね...。
0396デフォルトの名無しさん
NGNGリレーショナルデータベースの更新の仕方について教えて頂きたいのですが、
例）
→tbl社員
コード 支社コード 部署コード 氏名
01 01 01 ﾓﾅｰ
02 01 02 ﾓﾗﾗｰ
03 01 03 ｷﾞｺ
04 02 03 しぃ
→tbl支社
支社コード 支社
01 東京
02 大阪
03 神奈川
→tbl部署
部署コード 部署
01 総務課
02 経理課
03 庶務課
安易ですがこうなっているとして、それぞれ対応しているコードにリレーションが
はってあるとします。ここに新しく「大阪/庶務課/ｼﾗﾈｰﾖ」が入社した時のtbl社員の
更新の仕方が分からないのです。
ユーザから「大阪」「庶務課」「ｼﾗﾈｰﾖ」と入力を受けたら、RecordSetで一つ一つの
テーブルから「大阪」に対応したコードを確認→tbl社員を更新としていくのですか？
テーブル数が増えると手間がかかって仕方ない気がして、何か正しい方法があるのでは
と思った次第です。
長文スマソです。よろしくおながいします。
0397392
NGNGと思ったら、英語のReadme.txtにこの２つもいっしょにコピーしとけ！と書いてありました。
まとめると、
1.graph32.ocx, gsw32.exe, gswdll.dllをしかるべきフォルダにコピー
2.regsvr32 で graph32.ocxを登録
3.ｳﾏｰ
でした。
いろいろアドバイスありがとうございます。
＃インストーラもチェックしとかんといかんな...。
0398デフォルトの名無しさん
NGNGクエリーを使え
0399デフォルトの名無しさん
NGNGつーかコンボボックスか何かで選ばれた時点で
そのもの（たとえば大阪）のコードは取得できるはずでしょ
そのように組むのが吉
0400396
NGNGああ、なるほど。
やはり、一つずつコードを取得するのが正解でしたか(面倒)。
>>399さんがおっしゃられる様にコンボ選択時に取得するっていうのは
思いつきませんでした。グローバル変数ってﾔｼですよね。
やってみます。ありがとうございました。
0401デフォルトの名無しさん
NGNGコンボで選択時に取得までは合ってるけど、
それとグローバル変数は全然関係ないぞ！！
まあ、がんがれ
0403デフォルトの名無しさん
NGNG選択するたびにいちいちＤＢ読みに行くのか。
ユーザーにストレス溜まりそうって思うの俺だけ？
0404デフォルトの名無しさん
NGNG>>399だけだろ。
0405デフォルトの名無しさん
NGNG同意です。
私達の場合はフォームのロード時にコンボボックスを作成するのですが、
そのときに、コンボボックスのItemdataプロパティにマスタのコードを
格納しておいて参照します。
これだと選択→ＤＢ検索なんて事をしなくていいですよね！
0406デフォルトの名無しさん
NGNG0407デフォルトの名無しさん
NGNG0408デフォルトの名無しさん
NGNG0409デフォルトの名無しさん
NGNG例えば99っていう数値を３桁指定で099って表示させたいんですが。
0410デフォルトの名無しさん
NGNGFORMAT関数です
0411デフォルトの名無しさん
NGNGごめんなさい、調べたんですが使い方がわかりません（´Д｀；）
教えてください
0412eibu ◆c61exE6E
NGNGデータベースの更新にはエラーチェックが不可欠。
たとえば大阪を大坂と入力されていたらtbl支社にアクセスして
大坂という支社が存在するのか、間違いなのかを確認する訳だな。
だから手間の事を言ったらデータベースプログラムは書けない。
>399が言うようにコンボなり、リストなりにしておけば
エラートラップのコード量の節約になる。
しかし>400で変数って書いてるけど、コンボの表示に
02：大阪
としといてLeft関数で前２桁を取った方が簡単だぞ。
0413デフォルトの名無しさん
NGNG例えば、
Dim strWord as string
strWord = Format("99",000)
strWordの中身は、"099"になっているはずです
0414デフォルトの名無しさん
NGNG既存ＤＯＳプロンプトで、aaaaa.exeってやると出力がダイアログで
なく既存プロントに文字列で表示されるようにしたいのだが。
参考になるトコあったら教えてください。
0415デフォルトの名無しさん
NGNG0416デフォルトの名無しさん
NGNGできねぇよ。
ＶＣで作れ。
0417デフォルトの名無しさん
NGNG× Format("99",000)
○ Format(99,"000")
0418デフォルトの名無しさん
NGNGAPIを使って標準出力に出力するようなコードを書いてから、
EDITBIN.EXEでSUBSYSTEMをCONSOLEにすればいい。
もしくはリンカに細工をする。
0419デフォルトの名無しさん
NGNG>>418も言ってるがリンカに細工するのが楽。
色々弄れて楽しい。最小で5KBのexeも作れたりする。
0420デフォルトの名無しさん
NGNG実行速度を稼ごうと思っていますが、プリコンパイルされたSQLのWhere区を
書き換えたりとか出来ますか？
（JDBCだとことも無くやってのけるようですけど）
0421デフォルトの名無しさん
NGNGありがとう！調べているが意味がさっぱりわからん。
とりあえずこれから勉強する。
0422デフォルトの名無しさん
NGNGありますか？
0423デフォルトの名無しさん
NGNGShapeコントロール。四角形という多角形が描けるぞ。
三角形以下や五角形以上はサポートしていないので注意が必要だ。
要はPictureBoxで自分で描け。
0424デフォルトの名無しさん
NGNGインターネットで検索してみましたがそれらしいのが
ありませんでした。アドバイスおねがいします～ｍ（＿ ＿）ｍ
0425デフォルトの名無しさん
NGNGそんなレベルの人間はここにいない。
ADOって言われてもコントロールのことだと思ってるヤツが半分いるぜ、きっと。
>>424
http://www.vbthunder.com/source/treeview/tvbkgnd.htm
これでわからね～なら下の買いな
http://www.grapecity.com/Japan/support/database/P1_80.htm
0426デフォルトの名無しさん
NGNGサブクラス化。
0427デフォルトの名無しさん
NGNG流石です、ありがとうございました。ソースおってみます。（＾＾）
ありがとうございました。ｍ（＿ ＿）ｍ
0428デフォルトの名無しさん
NGNGよく知らんけどParametersを使えばいいんじゃないの？
MSDNの「ADOの高度な機能」に次のように書いてあるよ。
> Preparedプロパティは、複数のパラメータ セットを使って実行を行うときにも使用できます。
> アプリケーションは、パラメータ セットが変わるたびにクエリー文字列を再構築するのではなく、
> 実行のたびに異なるパラメータ セットを指定することで、パラメータ化されたクエリー文字列を
> 何度も実行することができます。ただし、パラメータ化されたクエリー文字列を1回しか
> 実行しないのであれば、クエリー文字列を準備する必要はありません。
>>425
自分のことを言っているの？ よくいるよね。自分が何も知らないから
他人も知らないと勘違いして、しかも偉そうにしている人。レスするなら何かかけよ。
0429ななし
NGNGサブクラス化、とか、SendMessageだけでは、答えになっていない罠。
どのメッセージをパクって、どう弄るのか、どのメッセージを送るのか、がわからないと、
調べようがない罠。
横ツッコミ、失礼。m(_ _)m
0430デフォルトの名無しさん
NGNGなんとな～く、それっぽいんですが絶望的なほどサンプルも資料も
ないので、光が見えてきません・・・。
CommandｵﾌﾞｼﾞｪｸﾄにあらかじめセットしておくSQLの
パラメータ入力を受けたい部分は、どう記述しておくのかが、
全然わからない、調べても見つからない、本当に出来るのか？オイ
って感じです。
素直にストアドプロシージャ使えってことなんですかね。
とりあえず検索のキーワードが増えました。有難うございます。
0431デフォルトの名無しさん
NGNGつーか、MSDNみた？ サンプルもちゃんとのってるよ。
0432デフォルトの名無しさん
NGNGMSDNは読みました。乗ってるサンプルは、「何度も全く同じSQLを投げる場合」の
実行時間の測定をする方法で、Where区など、若干内容が変わる方法については
記述がありませんでした(TДT)
0433デフォルトの名無しさん
NGNG実はJDBCでのやり方も知らない？
0434デフォルトの名無しさん
NGNGJDBCと同じ方法でいけるんですか？！！
0435デフォルトの名無しさん
NGNG不思議だなぁ。なんでちゃんと記述してあるのに気づかないんだろう？
プログラマの適性ないんじゃない。
0436デフォルトの名無しさん
NGNGリストボックス(グリッドかもしれない)の順番をドラッグで変えるやり方が
知りたいです。例えばリスト3番目を掴み、4番目と5番目の間にドロップすると
そのアイテムが4番目にくる、みたいな。
アイテムを掴む(選択する)ことは容易ですが、落とした位置に入れるというのが
出来ません。
何のコントロールを使うかも含めておながいします。
あ、環境はVB6です。
0437デフォルトの名無しさん
NGNGコントロールはリストボックスだけ。
ドラッグ＆ドロップは自前コードで書く。
そんなにむずかしくない。
これが書けないようなら、VBあきらめたほうがいい。
0438デフォルトの名無しさん
NGNGて、手厳しいですね。まぁ夏ですしね。
分かりますた。頑張ってみます。
0439436
NGNGDragした所の「順番」(リストの4番目など)を取得することは出来るのでしょうか。
もしかして､MouseUpイベントなどのX,Yみたいな座標を使うのですか？
座標から順番を割り出すなんて初級レベルの僕に出来るのかな…。
0440436
NGNG0441デフォルトの名無しさん
NGNG変えるにはどうしたら良いですか。.Textが読みとり専用になってしまって。
0442デフォルトの名無しさん
NGNGb = 0
If a = b = 0 then
Label1.caption = Zero
Else
Lavel1.caption = Value
End if
と、した場合、「Value」が表示されて、aやbに値を入力した場合は「Zero」が表示されます。
「a = b = 0」って表現の仕方が悪いからだと思うのですが・・・どうしてでしょう？
よろしくおねがいします。
0443デフォルトの名無しさん
NGNGa = b = 0 は b = 0 が a に格納される（b=0なので"True"）
0はFalse（だったよね(；´Д`)）なので上記のとおりコードが実行される。
If a = 0 and b= 0 Then
とか
If a = 0 Then If b = 0 Then
とやるべし。
0445ななし
NGNG> a = b = 0 は b = 0 が a に格納される（b=0なので"True"）
その書き方は、可読性に難があるので、私なら、
a = (b = 0)
としますが。
0446デフォルトの名無しさん
NGNG話はそこからだ
0447デフォルトの名無しさん
NGNGByte型で。
0448デフォルトの名無しさん
NGNGポップアップメニューを出すと、メニュー内でのクリックでしかメニューが消えません。
（メニューを出した後、デスクトップなどをクリックしてもメニューが出たまま）
どうやったらメニュー内クリック以外で消せるでしょうか？
タスクトレイへの格納は「ブイビーラボ」のサンプルを使用させて頂いてます。
ttp://www.remus.dti.ne.jp/~y-mac/index.html
検索してみて下記の記事を見つけましたが、自分には理解できませんでした。
ttp://www.users.gr.jp/ml/archive/vb/3045.asp
ttp://www.users.gr.jp/ml/archive/vb/3049.asp
0449デフォルトの名無しさん
NGNG現在パールで掲示板（日記）を作って稼動させているのですが
ｖｂの方から日記に書き込みをすることは可能でしょうか？
通常通り送信フォームから送信してもいいのですが
日記なので出来れば送信フォームは無しの方向で行きたいと思っているのでお願いします。
もし出来るようであれば具体的にどのような事について勉強すれば出来るようになるか教えていただけると助かります。
0450デフォルトの名無しさん
NGNGそんなクセつけちゃ駄目だい
0451デフォルトの名無しさん
NGNG気持ちとしては、
dim a as long
dim mystring as string
mystring = "a = 2"
という感じの気持ちでぜひmystringを実行したいのですが、どなたか方法をご存知のかたはいませんでしょうか。
もしくは、stringとしてのaを何らかの方法で変数として値を与えるというのでも良いのですが。
できれば、配列にも対応していればよりベターです。
よろしくお願いします。
0452デフォルトの名無しさん
NGNG何をやりたいのか分からない。
0453デフォルトの名無しさん
NGNG0454448
NGNG上に同じく・・・
もしかしてこういうこと？
Private Sub Command1_Click()
Dim a As Long
Dim b As Long
x = mystring(a, 3)
x = mystring(b, 5)
Text1.Text = a & "," & b
End Sub
Public Function mystring(ByRef a As Long, ByRef b As Long)
a = b
End Function
0455デフォルトの名無しさん
NGNGperlで掲示板ってことはWEBだよね。
あんたWEBの仕組みわかってるの？
ひょっとしてパクッたソース動かしただけでしょ。だったら作ったとかいうな。
0456デフォルトの名無しさん
NGNG結局やりたいことはMSDNで見つからなかったけど、試行錯誤の上出来るようになりました。
皆さんどうもです。
0457デフォルトの名無しさん
NGNGwinsock
0458デフォルトの名無しさん
NGNG452-454には難しすぎて理解できなかったようだな。さすがVBｽﾚ
VBScriptならExecute/Eval
VBなら不可能。
0459436=439
NGNG誰か、こんな危篤な僕に救いの手をさしのべてはもらえませんか…。
>>437さん曰く「そんなむずかしくない」そうですが、全く糸口がつかめません…。
0460デフォルトの名無しさん
NGNG流し読みだが
そのリストボックスの先頭が何番目かとひとつのアイテムの高さがわかれば
位置がわかるよね。簡単ジャン
0461デフォルトの名無しさん
NGNG0462436=439
NGNGレスありがとうございます。
先頭の割り出し方が全然分からないのです。
スクロールされると先頭が変わるってのは分かるんですが…。
位置はピクセル計ってみます。
0463デフォルトの名無しさん
NGNGTopIndexっていうプロパティがあるじゃん
0465デフォルトの名無しさん
NGNGアイテムの高さも取得できるんだがね。ちょっと今サンプルがないけど
0467デフォルトの名無しさん
NGNGそれはプロパティじゃなかった気がしないでもない
0469デフォルトの名無しさん
NGNGとりあえず、はかっといたら
0470436=439
NGNG0471デフォルトの名無しさん
NGNGわかったTextHeightだ。APIじゃないよ
0472デフォルトの名無しさん
NGNG451です。私の気持ちを理解していただいてありがとうございました！？
なんか、うわさによるとEvaluateというのがExcel4(?)時代にあったらしいのですが、（私の実験によると）もはやexcel2000ではdim等で定義した変数には使えないようです。
後は、Run で別のサブモジュールを呼ぶということも考えたのですが、あんまりうまくいかなかったので。（runの場合は、引数を許さないのでしょうか？）
たとえば、Excelのワークシートに変数名を書き込んだ状態でマクロを流せばその横のセルに吐き出すみたいな感じのことができたらきれいなプログラムが書けるかなぁなどと思った次第なので質問させていただきました。
では。
0473デフォルトの名無しさん
NGNGで、何がしたいの？
0474デフォルトの名無しさん
NGNG0475デフォルトの名無しさん
NGNG適度に改行しろよ。
0476デフォルトの名無しさん
NGNG何がしたいのか早く言え！
0477ななし
NGNG"_" 使って改行してますが、何か？(違
0478デフォルトの名無しさん
NGNGあんまり面白くない。
0479デフォルトの名無しさん
NGNGいや、全然面白くない。
0480デフォルトの名無しさん
NGNGこれっぽっちも面白くない。やれやれだぜ。
0481デフォルトの名無しさん
NGNG0482デフォルトの名無しさん
NGNG477は本来、面白さを含んだものじゃないだろう？
0483デフォルトの名無しさん
NGNG0484デフォルトの名無しさん
NGNGperlから、ＷＩＮ３２ＡＰＩが使用できるようなので、できそうかな？
と調べてみたのですが、よくわからないので、質問してみました。
0485デフォルトの名無しさん
NGNGどういう考えからそんな発想に！？
0486デフォルトの名無しさん
NGNG他の人に言うなよ。お前のためだ。
shellexecで*****.plを実行
0487484
NGNG>shellexecで*****.plを実行
ありがとう。
0488デフォルトの名無しさん
NGNGVS.NET買ってから、Perl.NET買えばいいよ
0489デフォルトの名無しさん
NGNGperlでVBの機能が使えるってならわかるが
0490デフォルトの名無しさん
NGNG0491デフォルトの名無しさん
NGNG適度に改行しないといけないことを知りませんでした。
ごめんなさい。
やりたいことを具体的に書くために例をあげます。
（例）
VBA内で変数を以下のように定義します。
Dim ZZZ1 as long
Dim ZZZ2 as long
………
Dim ZZZ1000 as long
何でもいいのですが、せっかくなので数字を与えてあげます。
ZZZ1=1
ZZZ2=2
………
ZZZ1000=1000
そこでワークシートのA1にZZZmと文字列で書くと
ワークシートのB1にm （＝ZZZmにセットされた値）が返されるような
マクロが書きたいのですが。
ちなみに（上とは別件ですが）以下のようなモジュールはうまく流れてくれないのですが、
やはりEvaluateの使い方が間違っているのでしょうか。
Sub test()
Dim ZZZ As Long
Evaluate("ZZZ") = 5
Cells(1, 1) = ZZZ
End Sub
0492デフォルトの名無しさん
NGNGExcel の質問だったんか？板違いだろがｳﾞｫｹﾞ！
ZZZm -> m ならなんとでもできるぞ(W
=SUBSTITUTE(A1,"ZZZ","")
=REPLACE(A1,1,3,"")
=MID(A1,4,LEN(A1)-3)
・・・
さもなくば名前の定義でも使え！
0493デフォルトの名無しさん
NGNG暑いからってそんなに声を荒げなくてもよかろう。
これまでの流れからして、VBAに関しても識者から
返答が得られてるようだしね。
貴方もきちんと返答してるようだし。この照れ屋さんめー。
もっとﾏﾀｰﾘしませう。
0494デフォルトの名無しさん
NGNGとか、そういう話でしょ？
これ、どうやるんですか？知りたい。
0495494
NGNGSub SriptingDictionaryTest()
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
Dic.Add "ZZZ1", "1"
Dic.Add "ZZZ2", "2"
' ....
Dic.Add "ZZZ1000", "1000"
Cells(1, 2).Value = Dic.Item(Cells(1, 1))
End Sub
VB 連想配列で検索しました。
0496494
NGNG訂正
Sub ScriptingDictionaryTest()
と
Cells(1, 2).Value = Dic.Item(Cells(1, 1).Value)
0497ななし
NGNG変数名が宇宙語で定義されているため、凡人には解毒不能です。
0498フルーツチンポ
NGNGよろしくお願いします。
0499デフォルトの名無しさん
NGNGそれなりにｶｺｲｲ動作をするゲームを作る。
保証はしない。
0500デフォルトの名無しさん
NGNGヴァーチャルボーイを装着して電車にでものってなさい。
0501デフォルトの名無しさん
NGNGみんなが「何をやりたいの」って聞いてるのは手段じゃなく目的を聞いてるんだよ。
その手段を実現することが目的？んなわけないよね。
目的がわかんなきゃEvaluateを利用できるかどうかもわからん。
とりあえずEvaluateの使用法は間違ってる
0502デフォルトの名無しさん
NGNGＶＢを知らないことが一番だ。
0503デフォルトの名無しさん
NGNG今ADOでSQLServer2000を使った仕事をしているのですが、
INDEXとSEEKがうまくいきません。
実行時エラー3251
現在のプロバイダはIndex機能に必要なインターフェイスをサポートしていません。
と出てしまいます。
ソースはこんな感じなのですが、何がいけないのでしょうか。
Dim MyRs As ADODB.Recordset
Dim SetFlg%, i&
Dim SQLKEY As String
Set MyRs = New ADODB.Recordset
SQLKEY = "SELECT * from T_Communication"
MyRs.Open SQLKEY, PobjSQLSession, adOpenKeyset, , adCmdText
MyRs.Index = "PlimaryKey"
MyRs.Seek Array(SetsubiType, SetsubiCd), adSeekFirstEQ
0504デフォルトの名無しさん
NGNGフルーツチンポでは不可能じゃよ
0505デフォルトの名無しさん
NGNGﾏﾁﾞﾚｽすると、VBAでExcelやWordのマクロを極めなさい。
事務系の職場ではﾓﾃﾓﾃでしょう。たぶん。
0506koyukoto
NGNGカリフ・ムスタァスィムがフレグ汗に処刑されたのは間違いないのですが、
これはムスタァスィムが頑迷に抵抗したためだそうで、
その処刑にムスリム側の一部に神罰を恐れる声があったようです。
これに対してフレグの西征軍にクーヒスタン占領後従軍していた
当代イスラム世界最高の大碩学ﾅｽｨｰﾙｯﾃﾞｨｰﾝ･ﾄｩｰｽｨｰが
正統カリフ、ウスマーンやアリーが殺害されたときも
天変地異は一切起こらなかったことを例に挙げてカリフの処刑に何ら問題ないと解答しています。
ただカリフの処刑は皇帝モンケの聖勅（ﾔﾙﾘｸﾞ）に基づいたものであったかどうかは
確認していないのでご存じの方はお教えいただきたいのですが・・・
ちなみに『集史』の日本語訳は「フレグ・ハン紀」と「アバカ・ハン紀」が
矢島洋一先生のＨＰでみることが出来ます。ご参照のほどを。↓↓
http://www.bun.kyoto-u.ac.jp/~yyajima/index.html
0507koyukoto
NGNG0508デフォルトの名無しさん
NGNG壮大な誤爆？
0509デフォルトの名無しさん
NGNGSeekって使ったこと無い。
全件引っ張ってきてSeekで探すより
最初から条件に合うものだけ引っ張ってきた方が速くないか？
という話は置いといて、エラーメッセージ内容からすれば
使ってるOLE DBプロバイダがIndex機能に必要なインターフェイスを
サポートしているかどうかを調べるのが先だと思うがどうよ？
0510デフォルトの名無しさん
NGNG尊敬はされるかも知れんがモテはしない。
人によっては逆にキモがられる。
いいように使われる＝モテるって意味なら話は別だが
0511472
NGNG0512デフォルトの名無しさん
NGNGレスありがとうございます。
Supportsメソッドで調べたところFalseでした。
サポートしてないと言うことですよね。
Seek使わない方が良いのかな。というか使えないのか。
ありがとうございました。
0513デフォルトの名無しさん
NGNGif cell(A1) = "ZZZ1" then cell(B1) = ZZZ1
if cell(A1) = "ZZZ2" then cell(B1) = ZZZ2
：
：
：
でよいのでは？
0514デフォルトの名無しさん
NGNGそれを可変的にやるにはどうしたら？ってことなんじゃない？
0515デフォルトの名無しさん
NGNG，public declare ～・・・だと，どうしてもDLLの名前を入れるところは，
固定文字列でなければならない．そこで，C言語でDLLを呼び出すときに使う
LoadLibraryを使いたいんだけど，うまくいかない．誰か教えてくださーぁい！
（願わくは）簡単な例を示して欲しいんだけど・・・
0516ななし
NGNG私も使ったことはないので、憶測ですが、
(1) 全体のレコード件数が比較的少ない(数千～1万件程度のオーダー)
(2) DBがJetである。
(3) SQLで問い合せると、条件が複雑すぎて、パフォーマンスが低下。
といった特殊な状況なら、Seekメソッドが威力を発揮するかもしれない。
0517デフォルトの名無しさん
NGNG不明瞭な質問に明確な答えを期待されてもねえ。
せめて日本語ぐらいちゃんと書けってこった。
ましてそれが糞仕様だとまともに答える気も失せる。
その結果が>>492なんだろうな。
0518デフォルトの名無しさん
NGNG可変といっても変数は可変じゃないからさー
0519デフォルトの名無しさん
NGNG0520ななし
NGNGどこが？
ネタにしても、つまらなすぎ。(30点)
0521デフォルトの名無しさん
NGNG調べたんですが、違いがよく分かりません。
よろしくお願いします。
0522デフォルトの名無しさん
NGNGどう書くのが良いでしょうか。ちなみに今はこんな風に書いてます(aaa=ある数値)。
If Len(CStr(aaa)) = 8 And IsDate(Left$(aaa, 4) & "/" & Mid$(aaa, 5, 2) & "/" & Right$(aaa, 2)) Then
もうちょっとシンプルに書けないかなーと思って。よろしくお願いします。
0523デフォルトの名無しさん
NGNGそれを関数にしとけばよし
0524デフォルトの名無しさん
NGNG0525522
NGNGありがとうございます。
もとはIF２つです。ここでの質問用に１つにしてみました。
そのほうが見やすいかな、と思って。余計なことしました。
こんな書き方もあるよ、っていうのは無いでしょうか？
0526デフォルトの名無しさん
NGNGﾊﾞｶｶﾞｯｶﾘだったらかわいかったのに。
>>498
VB売ってまずは金を作れ。
次それを漏れに渡せ。そうすりゃ、きみをモテモテにしちゃろ。
0527デフォルトの名無しさん
NGNG100万でモテモテにしてくれる？
0528デフォルトの名無しさん
NGNGサブルーチン側の引数の型をどうして良いか分かりません。
例えば、「Recordset!社員名」を渡したい時、サブルーチン側の
Private Sub Test(RecordsetData as ○○○)
↑○の所を何にすりゃあ良いのでしょうか。
おながいします。
0529デフォルトの名無しさん
NGNGvariant
0530528
NGNGtnksです。
Recordsetごと渡して、Recordset側に物を入れたいのですが…。
Private Sub Test(RecordsetData as ○○○)
RecordsetData = "Koizumi"
みたいに。無理言ってますか。
0531デフォルトの名無しさん
NGNG0532デフォルトの名無しさん
NGNG0533デフォルトの名無しさん
NGNGでなければObject
つーかそのレコードセット宣言時と同じ型
0535デフォルトの名無しさん
NGNG0536デフォルトの名無しさん
NGNG0537デフォルトの名無しさん
NGNGちなみにnumpadのときはどうすればいいんでしょうか？
0538デフォルトの名無しさん
NGNG0539デフォルトの名無しさん
NGNGRecordsetを渡しゃいいじゃん。
Private Sub Test(RecordsetData as Recordset)
って。
0540デフォルトの名無しさん
NGNGVSの統合環境がなじめず、使い慣れたエディターを使いたいのですが、
状況は、エディターでソースを保存しても、VSがソースファイルが更新された事を
認識してくれず、変更が反映されず困ってます。
プロジェクトの保存と読み込み繰り返せば可能ですが、
もっとよい方法無いでしょうか。
0542ななし
NGNGPublic Function IsDateEx(ByVal strArg As String) As Boolean
IsDateEx = IsDate(Format$(strArg,"@@@@/@@/@@"))
End Function
(>>534とほぼ同内容)
>>535-536
キーコード送信に頼る実装は問題が多い。
SendKeysには、かの有名なNumLock問題があるし、keybd_event (API)を使った
としても、ターゲットのWindowがActiveになっていなければ、意図とは別のWindow
にキーコードが送信されてしまう恐れがある。
という訳で、別の実装を検討した方が無難です。
0543522
NGNGこちらは文字列＆文字数固定ですね。
試してみたのですがIsDateはスペースを含んでてもTrue返すんですね。
これでFalseが返ってくればLen(CStr(aaa)) = 8 も要らなくなる！と思ったのに残念！
Formatが任意の文字で文字数固定できればIsDateでFalse返せるのになー。
0544デフォルトの名無しさん
NGNGんな小さいことでなやんでないで次に行け
0545デフォルトの名無しさん
NGNGファイルを削除せずに中身をput,get,inputBなどを使っていじる事によって
そのファイルのファイルサイズを減らす事は出来ますか？
それともバイナリファイルを小さくするには必要な部分だけバイト配列などで
一度格納してファイルを削除し、同じファイル名で書き出すんでしょうか？
0546デフォルトの名無しさん
NGNGLabelをクリックしたときも、フォーカスは移動しないにもかかわらず、
Validateイベントが発生してしまいます。
CausesValidateを指定したコントロールのみでイベントを発生させる方法か、
LabelがクリックされたことによるValidateだと見分ける方法はないでしょうか?
タッチパネルでLabelClick時にKeyCodeを送信しているので、
値を入力してる最中にValidateが発生して難儀しております。
0549デフォルトの名無しさん
NGNG入力できないようにStyleをVbComboDrop-DownListにしてるのですが、
フォームが開ききった時にそのコンボボックスのTextが空っぽなのが
気になります。初めからTextに1番目の項目を選択させておくには
どうしたら良いのでしょうか。
0550デフォルトの名無しさん
NGNG0551デフォルトの名無しさん
NGNGftpならあるよ
0552デフォルトの名無しさん
NGNGメインフレームて一口に言ってもたくさん種類があるが．．．
0553デフォルトの名無しさん
NGNGサンクス
6680エミュレータのインポート・エクスポートってFtp処理なの？
0554553
NGNG0555デフォルトの名無しさん
NGNGコンボボックスのListIndexプロパティに表示したい項目のインデックスを代入すれ。
0556デフォルトの名無しさん
NGNGできますた！ありがとう！
0557デフォルトの名無しさん
NGNGCausesValidate プロパティを持つ他のコントロールで代用すれば
つーかそもそも Validate イベントなんかに頼らんほうがいいかと
どうしてもやりたけりゃフックすれば
Validate の直前に Label だけ WM_*BUTTONDOWN がとれるっしょ
0558デフォルトの名無しさん
NGNGタッチパネル部を別フォームで作成する。
0559546
NGNGLostFocus時にチェックするよりは、Validateを使ったほうが
スマートかなあと思いまして。
WM_LBUTTONDOWNがValidateの前に取得できるか試してみます。
>>558
一度別フォームで作ったのですが、TextBoxのLostFocusイベントが
発生してしまったので、Labelにしました。
そしたら今度はValidateが、、、
タッチパネルをソフトウェアキーボード風にしてしまったのが間違いだったか。
ありがとうございます。もう少し試してみます。
0560デフォルトの名無しさん
NGNGフォームにデータを表示させたのですが、
テキストボックスに値を入力するだけで
Updateを呼んでいないのに値が更新されてしまうみたいなんです。
Updateを呼ばないと更新されなくするにはどうすればいいのでしょうか。
0561デフォルトの名無しさん
NGNGMSXML4.DLLを含めたら、セットアップ時に登録できないって
エラーが出てしまったんだが、ほかに何のファイルを登録
すればいいんだろう。ご存知の方、よろしくおねがいします。
0562デフォルトの名無しさん
NGNGVB.NETは今までとずいぶん違うらしいよ。
0563デフォルトの名無しさん
NGNG最近知った言葉なので使ってみたく、自慢したくて仕方が無いようです。
そういう人間に有意な相関として知ったかぶりの厨房が挙げられます。
つまり「がいしゅつ」というという語を使っている人間は
厨房です。
わざわざカッコ付で既出と書いてるのも
いかにも厨房らしくて笑えます。
0564フー
NGNG最近知った言葉なので使ってみたく、他人にそれを知っていることを
自慢したくて仕方が無いようです。
そういう人間に有意な相関として知ったかぶりのアホが挙げられます。
つまり「ちゅうぼう」というという語を使っている人間は
アホです。
わざわざsageないのも
いかにも低能らしくて笑えます。
0565デフォルトの名無しさん
NGNG0566フルーツチンポ
NGNG0567フルーツチンポ
NGNG0568デフォルトの名無しさん
NGNG激しく同意
0569デフォルトの名無しさん
NGNG幅を広げたいのですが、可能でしょうか？
できるようであればご教授願います。
0570デフォルトの名無しさん
NGNG未だに「コンボボックス」という語を使っているのはVB初心者です。
最近知った言葉なので使ってみたく、自慢したくて仕方が無いようです。
そういう人間に有意な相関として知ったかぶりの厨房が挙げられます。
つまり「コンボボックス」というという語を使っている人間は
厨房です。
いかにも厨房らしくて笑えます。
0571デフォルトの名無しさん
NGNG面白くない。
0572デフォルトの名無しさん
NGNGwParam にピクセルで幅を指定します
下のサンプルは 500 になってます
Private Const CB_SETDROPPEDWIDTH = &H160
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Form_Load()
SendMessage Combo1.hWnd, CB_SETDROPPEDWIDTH, 500, ByVal 0
End Sub
0573VB厨
NGNGじゃーなんて言うんですヵ？先生
0574デフォルトの名無しさん
NGNGありがとうございます。ここで引っかかっていたので大変助かりました。
0575デフォルトの名無しさん
NGNG0576デフォルトの名無しさん
NGNGそのクエリをVBから実行させることはできるのでしょうか？
たとえばクエリ名を指定するだけなど、
のクエリ名をopenstringにしても実行されず
”PROCEDURE クエリ名”を使うのかなとおもたけどちがったので、
あればその方法を教えてください
0577デフォルトの名無しさん
NGNGのクエリ名をopenstring －＞ クエリ名をopenstring
0578デフォルトの名無しさん
NGNG0579576
NGNGopenするときに以下のどれかを指定してrecordsorceにクエリ名を入れると実行されないでしょうか
MSDE引用
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
定数 説明
adCmdText プロバイダが Source をコマンド文字列による定義として評価することを指定します。
adCmdTable ADO が Source に名前を付けられたテーブルからすべての行を返す SQL クエリを生成することを指定します。
adCmdTableDirect プロバイダが Source に名前を付けられたテーブルからすべての行を返すことを指定します。
adCmdStoredProc プロバイダが Source をストアド プロシージャとして評価することを指定します。
adCmdUnknown Source 引数に指定されたコマンド タイプが不明であることを指定ます。
adCmdFile Source 引数に指名されたファイルから永続化 (保存) された Recordset を復元することを指定します。
adAsyncExecute Source 引数を非同期実行することを指定します。
adAsyncFetch Initial Fetch Size プロパティに指定された初期量の残りの行を非同期でフェッチすることを指定します。フェッチされたことがない行が要求された場合は、要求された行が利用可能になるまでは、メイン スレッドはブロックされます。
adAsyncFetchNonBlocking フェッチ中にブロックされたことのないメイン スレッドを指定します。要求された行がフェッチされたことのない場合は、現在の行が自動的にファイルの最後に移動します。
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
0580576
NGNGadcmdstoredprocでrecordsorceをクエリ名にしてみたら、うまくいきました。
0581デフォルトの名無しさん
NGNGWinsockをつかいTCPで接続しあった場合、
倉→SendData "<返信ください>"
鯖←GetData "<返信く"
鯖←GetData "ださい>"
みたいに、データがぶつ切りになって送信(受信）してしまうことはありますか？
ためしにHTTPサーバーで適当なものをGETしてみたら、ぶつ切りでデータが送られてきました。
簡単なサーバーを作りたいんですが、"LOGIN"(例)コマンドがぶつ切りで送られた場合の処理をしてないので、
しなくてはならないのかな、って思い書き込みしました。
0583デフォルトの名無しさん
NGNGWinsockで例えば100バイトの塊を２回SendDataしたとしても
相手側でDataArrivalイベントが２回おきて
100バイトづつ２回GetDataできる訳ではない。
50バイトづつの４回になるかもしれんし、200バイトの１回かもしれん。
タイミングにもよるし、間にどんな機器／回線が入るかわからんから
データの区切りはアプリ側で制御してやらんといかんぞ。
ひとつの塊の終わりは改行にするとか、
送るデータの先頭にバイト数を入れておくとか
受信データはバッファリングしてそういう制御をせにゃあかん。
あとタイムアウトの処理と切断時の処理もきちんとやらんと泣きみるで。
まぁ要するに回線は信用しちゃいけねぇってこった。
なんか偉そうでスマンな。
0584デフォルトの名無しさん
NGNG一括で受信することはありえないっぽいです。
1MBとかのデータを送信した場合、
受信側は1つの変数に1MBの情報をつめなきゃならんぽいので。
>>583 やっぱりそうですか…。
つーことは、例えば倉から鯖にコマンドを送るときは
送られてきたデータに改行が無ければ改行が来るまで待って、
改行が来たら前来た奴とくっ付けて1つのコマンドとして理解する…
というわけですね。
先頭にバイト数の奴は、そのバイト数のデータがぶつ切りで来たら欝なんで、
改行でやってみようとおもいます。
さっそくその処理の方法でも考えます…。
0585デフォルトの名無しさん
NGNGどすればいいの？
0586デフォルトの名無しさん
NGNG0587デフォルトの名無しさん
NGNG標準モジュールで定義するんじゃダメ？
0588ななし
NGNG「定義」を共有したいのか、実体(「インスタンス」という表現でいいのかな？)を
共有したいのか、文面からイマイチ読み取れません。
0589デフォルトの名無しさん
NGNG0590デフォルトの名無しさん
NGNG0591デフォルトの名無しさん
NGNG0592デフォルトの名無しさん
NGNG0593デフォルトの名無しさん
NGNG0594んわんん
NGNGこりゃ、ぼやぼやできませんね・・・
0595デフォルトの名無しさん
NGNGあるかないかはどうやって判断すればいいでしょうか
たとえば doc であればWordが関連づけられている、
xxx には何も関連づけられていない などのように。
0596デフォルトの名無しさん
NGNG( ﾟДﾟ)ﾎﾟｶｰﾝ
0597デフォルトの名無しさん
NGNGレジストリHKEY_CLASSES_ROOT内にあるかないか
0598デフォルトの名無しさん
NGNGFindExecutable
0599デフォルトの名無しさん
NGNGサンクス！
FindExecutable APIを使うのがスマートなやりかた
みたいですね。
0600デフォルトの名無しさん
NGNGstr = 1,2,3,4
配列=関数(str , ",")
結果↓
配列1=1
配列2=2
配列3=3
配列4=4
となるような関数あった気がするんですが、どなたかおしえていただけないでしょうか？
0601デフォルトの名無しさん
NGNGSplit関数？その方法ならArray関数でもいいと思うが。
600げとおめ。
0602デフォルトの名無しさん
NGNGはう
そうでした。
split関数でした。
ふむむ
いざ使いたいと思ってもこの関数は忘れてしまうと、メモってたファイルを検索することもできなかった。f(^_^)ぽりぽり
どうもありがとうございました。
0603デフォルトの名無しさん
NGNGいろいろ検索した結果
<html>
<head>
<!-- ブラウザオブジェクトを宣言する -->
<OBJECT ID="thebrowser" WIDTH=0 HEIGHT=0
CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2">
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
'--- 印刷ルーチン
On Error Resume Next
Sub EnlivenPrint
On Error Resume Next
thebrowser.ExecWB 6, 2
End sub
-->
</SCRIPT>
</head>
<body>
<FORM>
<INPUT TYPE="BUTTON" VALUE="印刷" ONCLICK="EnlivenPrint()">
</body>
</html>
の様な形で実現できそう（たしか動作報告もあった）なのですが、
.ExecWBの引数に関わらず印刷ダイアログが出てしまいます。
ttp://msdn.microsoft.com/library/default.asp?url=/library/en-us/com/oen_a2z_5k38.asp
によれば、.ExecWBメソッドはolecmdexecoptの値として
OLECMDEXECOPT_DODEFAULT = 0,
OLECMDEXECOPT_PROMPTUSER = 1,
OLECMDEXECOPT_DONTPROMPTUSER = 2,
OLECMDEXECOPT_SHOWHELP = 3
を取れるようになっていて、実際ＶＢでフォーム上のWebBrowserコントロールに対し
Private Sub Command1_Click
WebBrowser1.ExecWB 6, 2
（もしくは WebBrowser1.ExecWB olecmdid_print, olecmdexecopt_dontpromptuser ）
End Sub
とすると印刷ダイアログを出さずに印刷を実行できます。
この.ExecWBメソッドの振る舞いの違いに頭を悩ませているのですが
何か解決方法はありますでしょうか？。
0604デフォルトの名無しさん
NGNG0605デフォルトの名無しさん
NGNGｎｎ
| ||| 新型ブラクラ誕生のﾖｶｰﾝ
（;ﾟДﾟ)
（●●ﾄﾞｷﾄﾞｷ
⊂| ））
.∪∪
0606デフォルトの名無しさん
NGNG0607デフォルトの名無しさん
NGNG(((((((( ；ﾟДﾟ)))))))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙｶﾞﾀｶﾞﾀﾌﾞﾙｶﾞﾀｶﾞｸｶﾞｸｶﾞｸｶﾞｸｶﾞｸ
0608603 sage
NGNGやりたいことはスタンドアロンのＰＣとタッチパネル使って
ＷＥＢベースの情報端末を作りたい、と。
ＰＣになれてないじっちゃん、ばっちゃんに印刷ダイアログ触らせたくない
だけなんだけどな。
0609603
NGNGブラクラされてどうすんだよ（泣）。ブラクラ扱いを覚悟してたって事で。
0610教えてですみません
NGNGc1 = Int(a / 2) 'aを２で割った整数値
b2 = c1 Mod 2 'aを２で割った整数値を更に２で割った余り
c2 = Int(c1 / 2) 'aを２で割った整数値を更に２で割った整数値
b3 = c2 Mod 2 '以下同様
c3 = Int(c2 / 2)
b4 = c3 Mod 2
c4 = Int(c3 / 2)
b5 = c4 Mod 2
c5 = Int(c4 / 2)
b6 = c5 Mod 2
c6 = Int(c5 / 2)
b7 = c6 Mod 2
c7 = Int(c6 / 2)
b8 = c7 Mod 2
c8 = Int(c7 / 2)
上記の処理をですね。。
0611教えてですみません
NGNGc1 = Int(a / 2) 'aを２で割った整数値
For p = 1 To 7
b(p + 1) = c(p) Mod 2 'aを２で割った整数値を更に２で割った余り
c(p + 1) = Int(c(p) / 2) '以下同様
Next p
ってやってもうまくいかないんですが・・どこがおかしいんでしょう・・
VBは昨日から触り始めたすＰ－初心者なんですが・・
0612デフォルトの名無しさん
NGNGc(0)に初期値を入れてないとか。。。
5000円、2000円を除いた金種計算あたりかな？
0613612
NGNGInt(c(p) / 2)は
(c(p) - b(p+1) ) \ 2でもいいな。
0614教えてですみません
NGNG何とかうまくいきました～！
0615教えて・・
NGNGVBからＣで作ったDLLに、二次元配列を参照渡しで渡すことって可能ですか？
下のようにすると、違った数値が返ってきてしまうんです。
****VB側****
Declare Function SearchChar Lib "HOGEHOGE.dll" (ByRef lngTABLE As Long, _
ByVal lngREF As Long) As Long
Dim lngTABLE(10, 2) As Long
Dim i As Long
Dim lngREF As Long
lngREF = 4
For i = 0 To 9
lngTABLE(i, 0) = i
lngTABLE(i, 1) = 10
Next
MsgBox lngTABLE(lngREF, 1) '←10と表示される
MsgBox SearchChar(lngTABLE(0, 0), lngREF) '←違う数値が返ってくる
****DLL側****
HOGEHOGE_API int _stdcall SearchChar(int lngTABLE[][2],int intREF)
{
int i;
i = lngTABLE[intREF][1];
return i;
}
知っている方いたら教えてください。
0616ListViewコントロールのソートについて
NGNGコントロール付属の機能でソートはできるようになったのですが、
数値項目も文字列としてソートされてしまいます。
数値としてソートさせるにはどうしたらよいのでしょうか？
これをソートすると
20
100
5
以下のようにソートされてしまう
100
20
5
できれば以下のようにソートさせたい
5
20
100
0617デフォルトの名無しさん
NGNGテキストボックスにAccessのデータを連結させて表示させ、
そのテキストボックスの値を書き換えた後、Updateさせずに、
データをMoveで動かすと、”操作はキャンセルされました”
とエラーが出てしまうのですが、
エラーが出ないようにするにはどうすればよいのでしょうか。
0618デフォルトの名無しさん
NGNGOn Error Resume Next
0619デフォルトの名無しさん
NGNGたぶん、数値ではソートできんので、前0で埋めて桁を揃えた文字列の隠し列を
作ってそれでソートする。
0620デフォルトの名無しさん
NGNG配列のインデックスの順番がたぶん違う。
0621603
NGNGできてみればなんて事ない理由でしたが、プログラム経験とかなかったもんで。
とりあえずマイクロソフトのことはきらいになったけどな（笑）。
ブラクラ扱いされたことだし、ちょっといじくり廻したら（自分みたいな低能でも）
解決できる程度のことなんで、解決方法は書かないよ。
0622ListViewコントロールのソートについて
NGNGなるほど・・・やはりそうですかー
エクスプローラとかはファイルサイズとかでソートしてるんで
できないかなぁと思ったんですが甘かったですね＾＾；
どうもありがとうございました～。
0623ＶＢ君
NGNG本気で悩んでいるので出来れば助けてください。
FormAからFormAのサブフォーム(FormA_S)を呼びだしたいんだけど、
FormAにどうやったら「君のサブフォームはFormA_Sだよ」と
教えてあげられるのですか？
また、
変数 = CurrentDB()
でカレントＤＢを変数に入れてるんだけど、カレントＤＢは
どこできまっているのですか？
0624デフォルトの名無しさん
NGNGスレ違い
0625デフォルトの名無しさん
NGNGAPIとか使えば出来る。調べるのがめんどくさいから検索してくれ。
0626デフォルトの名無しさん
NGNG意味がわかりません。
0627デフォルトの名無しさん
NGNGそれ出来るコンポーネント、昔作りましたが、あげましょうか？
Delだけど
0628デフォルトの名無しさん
NGNG616じゃないけどほしい。
VBで使えるコンポーネントですよね？delで開発した。
いままでフレキシブルデータグリッドコントロール使ってたけど、
format関数使うのもいいかとおもうけど
0629デフォルトの名無しさん
NGNGそれくらいどうして作れないの？
と言う皮肉かと。
0630デフォルトの名無しさん
NGNGsoudattanoka
0631デフォルトの名無しさん
NGNG日の丸掲揚などが学校などで義務付けられた時、反対派の方が圧倒的に多かっ
たし、卒業式か何かを受けない人も多くいました。
アジアの国は、中東をみても解るように引きずってしまうものだと思います。
泥沼化しないためにも関係国が歩み寄らないといけないと思います。
個人だって先祖の恨みみたいなものありますし。。。
何が真実で何が嘘なのか完全にはわからない。
マスコミはまったく信用できないですしね。
韓国などが隔たった歴史教育を行ってるのも知ってますよ。
日本でも最近になって歴史を美化した教科書がでましたし。。。
0632デフォルトの名無しさん
NGNGで、それと滅び行くVBとなんの関係が？
0633デフォルトの名無しさん
NGNGAppearanceを0-ﾌﾗｯﾄに設定しても3Dで表示されるのです。
0634鳩料理大好き
NGNGドライブの準備ができているかどうかを調べるには、Drive オブジェクトの IsReady プロパティ
0635633
NGNGええっ！？
0636鳩料理大好き
NGNGスレ間違えました。
0637デフォルトの名無しさん
NGNG0638デフォルトの名無しさん
NGNG0639デフォルトの名無しさん
NGNG0640デフォルトの名無しさん
NGNG0641633
NGNG0642デフォルトの名無しさん
NGNG0643デフォルトの名無しさん
NGNG環境：Win2000
VB 6.0
こんな感じです。
0644デフォルトの名無しさん
NGNG0645デフォルトの名無しさん
NGNGありがとう
0646デフォルトの名無しさん
NGNG0648デフォルトの名無しさん
NGNGDeclare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
入れて
Do Until ShowCursor(False) < 0
Loop
>644のOSはWin3.2？
0649デフォルトの名無しさん
NGNGﾜﾗﾀ
0650デフォルトの名無しさん
NGNGまずパソコン本体の後ろに刺さってると思うので抜いてください。
そして強酸の中にほおりこんでみてください。
マウスが消えます。
0651デフォルトの名無しさん
NGNGそれはつまんない
0652デフォルトの名無しさん
NGNG0653デフォルトの名無しさん
NGNGまじめな顔と古典的のギャップがすばらしい。
0654デフォルトの名無しさん
NGNGですよね。
0655デフォルトの名無しさん
NGNGつまんねーネタが続いてるのでマジレスすると、
何も描いてないアイコンを用意して、それをマウスポインタに
割り当てるのが一番手っ取り早くて安全。
API使わなくていいし。
0656デフォルトの名無しさん
NGNGクリックとかは出来ちゃうよね？それでいいのかどうか。
何にせよ>>643の聞き方は稚拙。遊ばれてもしょうがない。
0657デフォルトの名無しさん
NGNGむしろおめでたい
0658デフォルトの名無しさん
NGNG0659デフォルトの名無しさん
NGNG0660デフォルトの名無しさん
NGNG家で作った、Accessのフォームを会社で開こうとするとエラーが出て開けないのです。
家では問題無く開けるのですが。
ADOで接続していて、Connection.Openの時に、
「プロバイダが見つかりません。正しくインストールされていない可能性があります」
というエラーが出ています。
環境はAccess97を完全インストールでインストールし、
Microsoft ActiveX Data Objects 2.0 Libraryを参照設定に入れてます。
おわかりの方、おながいします。
0661デフォルトの名無しさん
NGNGProvider=Microsoft.Jet.OLEDB.4.0 -> 3.51
0662デフォルトの名無しさん
NGNG激しく3.51にしています。
Provider=Microsoft.Jet.OLEDB.3.51;
0663デフォルトの名無しさん
NGNGんじゃ 4.0 だとどうなんの？
0664デフォルトの名無しさん
NGNGマジレスすると、
日本国内では韓国の通貨ウォンの両替、再換金が出来る場所はほとんどありません。
0665デフォルトの名無しさん
NGNGありがとう
0666デフォルトの名無しさん
NGNG不便なんですね。
0667デフォルトの名無しさん
NGNGでもそうすると、牛乳を麦茶で割るとコーヒーになるぞ！
0668達人
NGNGいや正しい麦茶の作り方はこうだ。
１．.まず水出しは絶対止めろ、お湯だしが基本だ
２．水も出来れば市販の天然水を使え
３．水道水を使う場合はよく沸騰させカルキを飛ばしておく事
４．その際ヤカンの蓋は取っておかないとカルキは飛ばないので注意しろ
５．水の量も多すぎては当然薄くなるのでキチンとチェックしろ
６．濃くしたいからと言ってパックを長時間いれておくと苦味が強くなるぞ
７．煮出す時間は量や自分の好みもあるのでここは馴れしかない、何回も試すことが重要だ
これだけでもかなり味が変わってくるが、更に美味い麦茶を求めるんだったら麦自体にも
こだわるといいぞ、ただこの時は高いのを選ぶと言うわけではなく安くても自分の口に合う
ものを探すのが重要だ
以上、単純なように見える麦茶道も実はかなり深いぞ
0669デフォルトの名無しさん
NGNG4.0だと通りました。
なんだ、これ。
スレ汚し申し訳ないっす。
>>664
ほほう、興味深い。
0670デフォルトの名無しさん
NGNG下記のプログラム(変なコードですが試行錯誤の途中なんです)を実行して
コマンド1をクリックしたところ、テキストボックスには
「1900/01/07 19:27:52」
と出てきました。ほかに「qq」を使っているところもなく、
プログラム自体を下記だけにして実行しても同じ結果になりました。
osはwin2000、SPは当てていません。
よろしければ原因をお教え願えないでしょうか。
Private Sub Command1_Click()
Dim qq As String
qq = Len(Time)
Text1.Text = Time + Str(qq)
End Sub
0671デフォルトの名無しさん
NGNGなにをしたいん？
0672デフォルトの名無しさん
NGNG何故Date型にDate型のサイズをを追加しとるのだ？
わけ分からん。
0673デフォルトの名無しさん
NGNGぎゃくあせんぶる
0674デフォルトの名無しさん
NGNG今回は目的とかなくて、色々やってみただけなんです。
ファイルの保存とか一からやりなおそうと思いまして。
で、今の時間の文字数を文字列として付け加えて、とか
気が向くままに作ってみたらこうなったんです。
それで見たこともない動作をされたので質問に来た、
というわけです。
なんか全体的にわかりにくくてごめんなさい。
0675デフォルトの名無しさん
NGNGText1.Text = Time + 1
でコマンド１をクリック→テキストに「1899年12月31日」と表示された。
謎。
0676デフォルトの名無しさん
NGNG0677デフォルトの名無しさん
NGNGTimeの戻り値の型のことをよく調べるんだな。
0678デフォルトの名無しさん
NGNG（ ´Д｀） ＜ ＶＢ 命！
／ ＼ ＼＿＿＿＿＿
／ノl ,ﾍ ＼
⊂／ | ＼ ＼⊃
| /⌒> _)
｜ .| く_っ
＿＿. ｜ |
＼ ￣⊂ノ￣￣￣￣ ＼
||＼ ＼
||＼||￣￣￣￣￣￣￣||￣
|| ||￣￣￣￣￣￣￣||
.|| ||
0679デフォルトの名無しさん
NGNG∧,,∧ ∬ ／
ミ,,ﾟДﾟ彡っｃ□ ＜ ま、ヘルプ見ろや。
＿と~,, ~,,,ﾉ_. ＼
ﾐ,,,,/~), │ ━┳━ ￣￣￣￣￣
￣￣￣ .じ'Ｊ￣￣| ┃
￣￣￣￣￣￣￣ ┻
0680670
NGNG「&」と「+」間違えてました。まじですんません。
勘違い(゜Δ゜：)ｺﾜｰ
逝ってきます…
0681デフォルトの名無しさん
NGNG何でそういう結果が出てくるかは調べたのか？
調べれば謎でもなんでもない事がわかるはずだ。
てかデータ型ぐらい理解してからプログラム作りなよ。まじで。
0682デフォルトの名無しさん
NGNG0683デフォルトの名無しさん
NGNG宣言してんじゃん。Variantじゃないじゃん。もしかして理由わからないの？
0684デフォルトの名無しさん
NGNG全部Variantで何が悪い
0685デフォルトの名無しさん
NGNGあ、宣言してたね。見落としてた
0686デフォルトの名無しさん
NGNG型無いとクラス型のオブジェクト指向が死ぬほどややこしくなるぞ。 by PHPユーザ
0687デフォルトの名無しさん
NGNGVariantを自在に使いこなしてこそ真のVB使い。PHPなんかと一緒にするな
0688デフォルトの名無しさん
NGNGまぁ、同意。
どんどん他の言語への敷居が高くなっていくな。
0689デフォルトの名無しさん
NGNGPHP使いが型がどうこうなんて語るなや.
0690デフォルトの名無しさん
NGNG訂正。
型無いとクラス型のオブジェクト指向が死ぬほどややこしくなるぞ。 by CとC++とC#とDelphiとJavaとPerlとPHPのユーザ
0691デフォルトの名無しさん
NGNG一応同意。だが
Variant型ばかり使うのは使いこなしているとはいっえなーい。
0692デフォルトの名無しさん
NGNG概ね同意。>>684はどうかと思うが
0694デフォルトの名無しさん
NGNG全部Variantで何が悪い
アホか
全部Variantで何が悪い
アホか
全部Variantで何が悪い
アホか
全部Variantで何が悪い
アホか
全部Variantで何が悪い
0695デフォルトの名無しさん
NGNGVBは仲間だ by COBOLer
0696デフォルトの名無しさん
NGNGPHPの変数はVariant型そのものじゃねーか。
0697デフォルトの名無しさん
NGNGSub aaa( prm1 As Long )
End Sub
Sub bbb( prm1 As Long , prm2 As Long )
End Sub
aaa (1)
aaa 1
bbb( 1,1) 'これだけが構文エラーになる、なんで？？？
bbb 1, 1
0698デフォルトの名無しさん
NGNG0699デフォルトの名無しさん
NGNGプロシージャを呼び出すとき、キーワード Call は省略できます。
キーワード Call を使って、引数が必要なプロシージャを呼び出す場合は、
引数リスト (引数 argumentlist) をかっこで囲む必要があります。
キーワード Call を省略するときは、引数リストを囲むかっこも省略しなければなりません。
Call 構文で組み込み関数またはユーザー定義型関数を呼び出す場合、
その関数の戻り値を取得することはできません。
配列全体を引数として渡す場合は、配列名の後ろに空のかっこを付けてください。
0700デフォルトの名無しさん
NGNG0701697
NGNGん～、理解は出来たけど・・・
すっきりしない！
早くＶＢの仕事終らしたい。
0702デフォルトの名無しさん
NGNG0703デフォルトの名無しさん
NGNGVBSのRegExpを無理やり使う。
0704デフォルトの名無しさん
NGNG処理毎にclsとかやってるんだけど
ちかちかしちゃって困ります。
どうしたらいいでふか？
0705デフォルトの名無しさん
NGNGout &h31,0
これでVRAM表示が消えてグラフィックのアクセスが高速になるので、
この間にcls
で、消したところで、
out &h31,8
でVRAM表示の復活。
0706デフォルトの名無しさん
NGNGどうかご教授願います。
VBのリッチテキストBoxでマウスの右メニュー
(元に戻す､切り取り､コピー､貼り付け・・)
は出せないのでしょうか。
テキストBoxは可能なのですが・・。
どうかよろしくお願いします。
0707デフォルトの名無しさん
NGNGダブルバッファリング
0708デフォルトの名無しさん
NGNG喜怒哀楽の様々な感情で、大声で Ahhhhh！
0709デフォルトの名無しさん
NGNG同じVB使いとして情けないよ。MSDN読めｳﾞｧｶ。
0710デフォルトの名無しさん
NGNG可能でしたらご教授願います。
0711
NGNGしてるんだけどそれだと何かと不便でして
テキストボックスに文字を書いてEnterを押すと実行するようにしたいんだけど
どの関数使えばいいの？
0712デフォルトの名無しさん
NGNGインストールしようとすると
「Path or File Not Found」って出て、OKを押すと
「ｾｯﾄｱｯﾌﾟするﾌｧｲﾙ'C:\××××\Package\\@○○○.exe'が見つかりません。」
って出て、インストールできないんですけどどうすれば良いですか？
OSはWinXPHomeです。
家にあるWin98のマシンではちゃんとインストールできました。
0713デフォルトの名無しさん
NGNG日本だから。
0714デフォルトの名無しさん
NGNGユーザー名が全角日本語だから。
対策方法も真っ黒ソフトのKB調べれば出てるよ。
0715デフォルトの名無しさん
NGNGPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
'ここに処理を記述
End Select
End Sub
あとFormのプロパティKeyPreviewをTrueにするんだっけ？
0716デフォルトの名無しさん
NGNGコマンドボタンのDefaultプロパティをTrueにするだけでOK。
0718デフォルトの名無しさん
NGNGKBってなんですか。スミマセン
0719デフォルトの名無しさん
NGNGknowledge base
それより>>717でそのものズバリの答えがもらえてるね まさにKBの。
0720712
NGNGありがとうございます
0721デフォルトの名無しさん
NGNG0722デフォルトの名無しさん
NGNGフォーカスを移したいのですが、以下の様にすると、
漢字変換の際の「決定のEnter」を取得してしまって困ってます。
どうにかならんでしょうか。
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{Tab}"
End Sub
0723デフォルトの名無しさん
NGNGそれ以前に、SendKeysでTAB移動すると
Win9x系ではしょっちゅうハングるからやめたほうがいい
keybd_event API使うのが吉。
0724デフォルトの名無しさん
NGNG0725デフォルトの名無しさん
NGNG'既にナンバリングしたファイルがある場合
FN_NumEND = InStrRev(str_List(cnt), ")", -1, vbBinaryCompare)
FN_Num = CInt(Mid(str_List(cnt), FN_NumST + 1, (FN_NumEND - 1) - FN_NumST)) + 1
FSO.CopyFile FN_Path & str_List(cnt), FN_Path & Mid(str_List(cnt), 1, FN_NumST) & FN_Num & ").xls"
FSO.DeleteFile FN_Path & str_List(cnt)
str_List(cnt) = Mid(str_List(cnt), 1, FN_NumST) & FN_Num & ").xls"
Else
'初めてナンバリングファイルを作る場合
FSO.CopyFile FN_Path & str_List(cnt), FN_Path & Left(str_List(cnt), Len(str_List(cnt)) - 4) & "(2).xls"
FSO.DeleteFile FN_Path & str_List(cnt)
str_List(cnt) = Left(str_List(cnt), Len(str_List(cnt)) - 4) & "(2).xls"
End If
0726デフォルトの名無しさん
NGNG「この会社辞めようと思ったソースコード」はこちら
http://pc.2ch.net/test/read.cgi/prog/1021560641/l50
0727とにかくガンバ
NGNGこれで何すんの？
0728722
NGNGども。SendKeyではどうして98はハングするのでしょうか。
APIって使ったことないですが、これを期に勉強してみます。
>>724
できますた。ありがとうございます！
こんな事でハマってたのが馬鹿みたいです…。トホホ。
0729デフォルトの名無しさん
NGNGどうしてと言われたら、SendKeysのバグ、としか言いようがない
知らないとはまるので要注意だよ
0731デフォルトの名無しさん
NGNG0732デフォルトの名無しさん
NGNG実戦経験が低い奴のセリフだな。
0733デフォルトの名無しさん
NGNGいや、それ以前にそんなインターフェースはWindowsで動くソフトとして間違ってると思うけどな。
間違っててもクライアントからそうしろって言われてるんだからしょうがないだろってか。
0734デフォルトの名無しさん
NGNGそのコントロールが配列で、IndexとTabIndexがきれいに揃ってる時には有効だけど
そうでない場合にはかなーり面倒なことになると思われる。
>>732
理由を書こうよ。
>>733
その認識はおかしいと思う。ユーザーの操作性が良くなるんだから間違っちゃいないでしょ。
Enter押下時や文字数がある数に達した時フォーカスを移すのは基幹系ではよく行なわれている。
セットアップ時のシリアルNo入力とかもそうなってるよね。
0735デフォルトの名無しさん
NGNG0736デフォルトの名無しさん
NGNGいやエンターでフォーカス移動はおかしいだろ。
俺も仕方なくすることあるけど、気持ち悪い。
普通tabキーでするもんだ。
0737デフォルトの名無しさん
NGNG確かにWindows標準ではない。でもまるっきり否定するのはおかしい。
例えば金額を次々に入力するプログラムで、Enterでフォーカス移動すれば
片手で入力できる。理にかなってると思わない？
どちらが優れていて多くの人に支持されるか、一目瞭然だと思うけど。
0738デフォルトの名無しさん
NGNGそれだとコントロールのフォーカスの移動する順番までコードで
管理しないといけなくなるから大変さ。
>>736
>いやエンターでフォーカス移動はおかしいだろ。
おかしいおかしくないの問題とは別かと。
例えば、
携帯電話の数字ボタンの配置逆順にしますとか
言われたら不便でかなわんな。NTTがそれが標準だといいきったらどうするで。
J-Phoneがうちは従いません。従来どおりでいきますと。
そういうことさ。
慣れりゃ、数字ボタンが逆順だろうが誰も問題ないが、慣れるまでが大変だ。
慣れさせるのがいいか、機械を合わせるのがいいか、
どっちがいいの悪いのという問題とは違う。
0739デフォルトの名無しさん
NGNG0740へろっぴゅ
NGNGこのメールアドレスの部分をクリックするとウェブ上のアドレスを
クリックした時みたいにメッセージの作成などができるように
するにはどうすればよいのでしょうか？
0741デフォルトの名無しさん
NGNG????_clink()
とかのメソッドはどういうふうに、動的に実装したらいんだべか？
0742デフォルトの名無しさん
NGNGWithEvents
0743デフォルトの名無しさん
NGNG始めてWindowsを触ったときTABでフォーカス移動するのを素直に納得できたか？
TABを入力できるコントロールでフォーカス移動するときめんどいし。
俺的には、テンキーやカーソルの所にフォーカス移動キーがほしい。
つーか、tab shift-tabと同じ働きのキーをつけるだけなんだから
マルチメディアキーなんかつけずにフォーカス移動キーをつけてくれ。
0744デフォルトの名無しさん
NGNG超、適当だけど
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Call ShellExecute(Me.hwnd, "open", "mailto:[email protected]", "", "", 1)
End Sub
0745デフォルトの名無しさん
NGNGでもWindowsはインターフェースを統一化させ、
初めて触れるアプリでも直感的操作ができる事を目指したOSでしょ？
だからインターフェースガイドラインなんてのもあるわけで。
Tabキーでフォーカス移動ってのは当たり前。
エンターキーで移動は確かに使いやすいかもしれないけど、当たり前ではない。
他のアプリと統一化させる事は重要だと思うよ。
0746デフォルトの名無しさん
NGNG0747じゃ、俺は対抗して。
NGNG0748デフォルトの名無しさん
NGNG使いにくいのを当たり前と思うのは良くないよ。
UI操作を統一させるのは同意。
ただフォーカス移動としてtabを使用したのは間違いに近いと思う。
とはいってもEnterを含め他に使えるキーがないのも事実。
だからキーボードに新たにキーを追加するのがいいと思うのだが。
これはUI操作を統一させることの障害にはならないだろう。
0749デフォルトの名無しさん
NGNG僕は
If (bx - ax)> 0 Then siita = Atn((by - ay) / (bx - ax))
If (bx - ax)< 0 Then siita = Atn((by - ay) / (bx - ax)) + 3.14159
とかやってるんですが
ほかに効率のいい方法知りませんか？
0750デフォルトの名無しさん
NGNG0751741
NGNG表示の優先順位はどやって設定したらいいでしょう？
>>742
まさに「それ！」
ありがとうぉぅ～
0752デフォルトの名無しさん
NGNG自分で研究しようよ。一番奥にもってきたい順で表示。
ところでなに作るの？掟破り？
0753デフォルトの名無しさん
NGNGatnって書いてあるじゃん
0754デフォルトの名無しさん
NGNGsiita = Atn((by - ay) / (bx - ax))
If (bx - ax)< 0 Then siita = siita + 3.14159
0755デフォルトの名無しさん
NGNG厨房ですいません。
0756デフォルトの名無しさん
NGNGまずはヘルプ読む！
次！
0757755
NGNGソフトそのものがコピーだからヘルプはありません
0758741
NGNG>自分で研究しようよ。一番奥にもってきたい順で表示。
コントロールオブジェクトを、追加、削除を繰り返すので、
順番では対応できないんですよ。
自分なりに調べてはいるんですが、今のとこ解決方法が見つからず、
質問させてもらったんすけど、どうでしょう？
>ところでなに作るの？掟破り？
B2B向けの情報管理ツールですけど。
0759デフォルトの名無しさん
NGNG>他のアプリと統一化させる事は重要だと思うよ。
ある意味、そのせいでEnterキーでフォーカス移動しなくちゃならなくなる罠。
＃そういう要求がでるところは、他アプリも全部Enterキー操作だから。
おれは、なるべくTabキーを薦めはするが、
最終的に客の要望にあうように作る。
コストとWindows標準でないことと操作性との天秤で客が決めることだしな。
0760デフォルトの名無しさん
NGNGネタはいらん。
0761デフォルトの名無しさん
NGNG先に言え。情報小出しはよろしくない。
0762デフォルトの名無しさん
NGNG> コストとWindows標準でないことと操作性との天秤で客が決めることだしな。
同意。だがWindows標準でないことのコストを知らないというか無関心な奴が多すぎ。
0からユーザインタフェース作るよりWindows標準ユーザインタフェースを
踏まえて(Windowsを使う以上逃れられん)作るほうがコスト高いんだぞ。
Windows標準ユーザインタフェースを熟知せにゃならんし。
0763デフォルトの名無しさん
NGNGこの2chの書き込みでも、名前メール本文とtabで移るぜ。
enterではない。
enterでフォーカス移動するブラウザってあるのかな？
やっぱり標準はtabでenterはイレギュラーだろ。
でも>>759の言うように、仕事で作るんであれば客の要望は絶対だから、
そんな我が儘通せないけどな。
0764755
NGNGそんなこといわずおしえてくらはい
0765デフォルトの名無しさん
NGNGうるさい
0766デフォルトの名無しさん
NGNGイレギュラーなのは承知のこと。
そのイレギュラーなことの問題点、解決策を考えるのは
イレギュラーで終わらすより、よっぽど意味がある。
0767デフォルトの名無しさん
NGNG0768デフォルトの名無しさん
NGNGWebなんてほんとの最近じゃん。
Win上での話しならそりゃ汎用アプリだから当たり前だと思うが。
UNIXユーザならTabキーとCtrlキー入れ替えてる罠。
そんなことより、Enterでデフォルトボタンが働いてポストされたり、
Escでキャンセルが働いてリセットされるのが最悪だぞ。
0769デフォルトの名無しさん
NGNG基本的には勧めないし、客にも説明するけど、他との兼ね合い等で
問題なければ一応実現はさせるけどな。
0770デフォルトの名無しさん
NGNGわざわざDLLなんて使わなくても、簡単に書けるのに。
0771デフォルトの名無しさん
NGNG別にWebに限定したわけでなく、例の一つとしてあげただけだろう。
0772デフォルトの名無しさん
NGNG書く時ってどうやってるの？
0773734=737
NGNGそれはそれでWindows標準ということでよろしい。
インターフェースの統一は守られてるじゃん。なにを言ってんだか。
で、その他に操作性を考慮してEnterでフォーカス移動の機能をつける。
そうすればユーザーはTabでもEnterでも好きな方を使える。それの何が悪いのか。
ブラウザは例の一つとしてあげただけと言うがEnterでフォーカス移動も例の一つじゃん。
ブラウザはEnterでリンク先に飛ぶ。あるプログラムはEnterで次のテキストボックスに飛ぶ。
それぞれ使いやすいようにそうしてるわけでしょ。
何も全てのプログラムにEnterでフォーカス移動の機能をつけろと言ってるわけじゃない。
0774デフォルトの名無しさん
NGNG下の方にOKボタンとキャンセルボタンがある場合、
エンターはデフォルトボタンに設定されてるOKボタンを押すのと同じ動きをするのが
標準ではないのかな。
Wordの設定画面もVisual Basicの設定画面も、
テキストボックスにフォーカスがある状態でエンター押せば、
OKボタンを押したのと同じで確定されダイアログが閉じる。
それ標準。
そうやってユーザーが覚えてるのに、
テキストボックスでエンター押したら確定されずに
次のテキストボックスへフォーカスが移ったってのは、
標準から外れたインターフェースになっちゃわないか？
タブで移動ができればいいだけでなく、エンターの動きだって考慮しないとだめだろう。
0775デフォルトの名無しさん
NGNGしかも逆パターンも発生するしな。
enterでフォーカス移動を覚えたユーザーが、
Windows標準であるインターフェースに触ったとき、
フォーカス移動しようと思ってテキストボックスでenter押したら、
OKボタンが押されちゃった～とか。
>>773はそこらへんの考え方が欠落してる。
0776デフォルトの名無しさん
NGNGクラス使え。
0777デフォルトの名無しさん
NGNGparent as long
left as long
right as long
value as variant
end type
0778デフォルトの名無しさん
NGNGダイアログではenterを押せばOKボタンを押したことになるがダイアログ以外ではどうかな？
AccessアプリもExcelもenterでフォーカス移動する。
>>775
それはたいして問題にならない。enterでフォーカス移動を要求する所は
大抵そのアプリ専用としてPCを使う。Windowsなどと意識しないで。
ゲームでもtabでフォーカス移動を使用しないのは普通だしな。
ただゲームとは違い通常のGUIコントロールを使用するので
Windows標準と矛盾しないように考慮しなければいけないがな。
0779デフォルトの名無しさん
NGNG言ってることはもっともだ。でもそれだとまずい、そうじゃない方がいいってものもある。
例えば全項目入力必須のプログラムなら全項目埋まった時に初めてデフォルトTrueにした方がいいだろう。
でもそれで終わるのではなく、入力がされてないテキストボックスがあればEnterで自動的にそこに飛ぶようにすれば
操作性は格段に向上するとは思わない？
それとユーザーの大多数はWindowsの標準操作なんてものは知らないし興味も持って無い。
Ctrl+SやメッセージボックスをEnterで閉じれる事を知らないユーザーが多数いるのを知ってる？
確かに初めて使う時は標準操作のほうがとっつきやすい。標準操作を知ってた場合に限ってだけど。
でも良く使うソフトは操作なんてすぐ覚える。その時標準操作のみって事が効率の足かせになる事はないかな。
標準を考慮する事は大切。だけどそれが絶対、それしか許さないと考えるのはどうだろうか。
世間一般に出すソフトは標準入力の方がいいと思うけど、限られた所で頻繁に使われるものは
標準以外の操作も考慮するのもいいと思う。
俺は基本的には標準以外の操作はつけないけどね。ユーザーに標準操作を覚えて欲しいし、めんどくさいし。
でも操作性を考慮したものを触ると、親切だな、使いやすいな、って思うよ。
それと聞きたいんだが、自分個人で使うものも標準操作絶対で作るの？ 長文スマソ＞ALL
0780デフォルトの名無しさん
NGNG余計な機能の実現に苦悩する >>722 もそれを肯定する連中モナー
0781デフォルトの名無しさん
NGNG0782デフォルトの名無しさん
NGNG0783デフォルトの名無しさん
NGNG0784デフォルトの名無しさん
NGNG0785デフォルトの名無しさん
NGNGsub command1_click()
command1.enabled = false
いろんな処理
command1.enabled = ture
end sub
とやっても実際、ボタンコントロールが使える状態に戻ってないことがあるんですが私だけかな？
こんなときはcommand1.enabled = tureを連続で２行書くとうまくいくんですが。
doeventsをはさんでみてもなおったりなおらなかったりする。
sub command1_click()
command1.enabled = false
いろんな処理
command1.enabled = ture
command1.enabled = ture
end sub
0786デフォルトの名無しさん
NGNGキミ、tureって何よ？
0787デフォルトの名無しさん
NGNG0788デフォルトの名無しさん
NGNGつーか=入力した時点で候補がでるだろ。
0789デフォルトの名無しさん
NGNG0790デフォルトの名無しさん
NGNG0791デフォルトの名無しさん
NGNG0792785
NGNGですよ。
タイプ早いからtrueがtureになっただけだよ。
あとはぜんぶこぴぺ。
みんなそんなにかんたんにつられないでください
0793デフォルトの名無しさん
NGNG寒っ
0794デフォルトの名無しさん
NGNGはい次の方ー
0795デフォルトの名無しさん
NGNGVB2まではtureで通るよ
これくらい言っとけ>792
0796デフォルトの名無しさん
NGNG0797758
NGNG表示の優先順位を変更する方法探してるんだけど
ん～、もうダメポ。
そもそも、そんな事出来ない？
ヒントでもいんで、情報あったらよろしくぅ
0798デフォルトの名無しさん
NGNG表示の優先順位がなんのことかよく分からんがZOrderメソッドじゃだめか？
0799785
NGNG0800デフォルトの名無しさん
NGNG心配しなくても5分後にはみんな忘れてるんだから。
0802デフォルトの名無しさん
NGNG釣れた(w
0804デフォルトの名無しさん
NGNG釣れた釣れた(w
0805797
NGNGれすどうも。
オブジェクトがFormなら、それでＯＫなんだけど、
Labelとか、TextBoxとかだと、そのメソッドが無い
もれも、見っけたとき「おぉ、これは使えるか？！」と思ったけど、
だめやった。
0806デフォルトの名無しさん
NGNGわかったから、大人しくしててくれ、な。
0808デフォルトの名無しさん
NGNG自分の実況？
0809デフォルトの名無しさん
NGNG0811デフォルトの名無しさん
NGNGもう一度よくたしかめろ。
0812本物の785
NGNGtureはtrueのtypoだとして一回じゃ元に戻らないことってありませんか？
0814デフォルトの名無しさん
NGNGプログラマーになりたい。なんて思っているのですが、
数字、計算、数学、グラフなどが苦手だし嫌いです。
適性がないとだめですか。
0815デフォルトの名無しさん
NGNG俺の所ではならないが。
ロジック的におかしい所がないか調べてみては。
0816デフォルトの名無しさん
NGNG大丈夫、VBしか使えない人はプログラマじゃありません。
0817デフォルトの名無しさん
NGNG答えになってない。お前プログラマに向いてないんじゃない。
0819デフォルトの名無しさん
NGNG0821デフォルトの名無しさん
NGNGだから、しゃべんなって。
0822デフォルトの名無しさん
NGNG名前からプロパティでZ位置を取得・設定するのかと思った。
0823デフォルトの名無しさん
NGNGこれをインストールしたらVBが使えるんでしょうか？
これはいわゆる「評価版」ってやつですか？
0824デフォルトの名無しさん
NGNG一応マジレス・・・・
それはバグを修正するためのもの。Visual Studio6.0がインストールされていないと使えない。
0826823
NGNG0830デフォルトの名無しさん
NGNG激しく同意。特に>>829とか必死で笑える。
0831デフォルトの名無しさん
NGNGVBの参考書(?)にはついているものがあるみたいだけど。
0833デフォルトの名無しさん
NGNG同意。>>832とかほんと見ててかわいそうになってくるよ。
0834デフォルトの名無しさん
NGNG涙の禿同
0835デフォルトの名無しさん
NGNG買ってからそのセリフは正直どーかと。
0836デフォルトの名無しさん
NGNGねぇねぇ、ちょうど一年ぐらい前になんかやらかさなかった？
物凄く似てるんだけど（ｗ
0837デフォルトの名無しさん
NGNGhttp://corn.2ch.net/entrance/kako/994/994927164.html
0838デフォルトの名無しさん
NGNG0839デフォルトの名無しさん
NGNGﾜﾗﾀ
0840デフォルトの名無しさん
NGNG0841デフォルトの名無しさん
NGNG改行いれてから出直せ
0842デフォルトの名無しさん
NGNG0843デフォルトの名無しさん
NGNG質問
です
(^O^)/
変数
Aに
"?,?,?,?"と
入れたいん
ですが、
A="?,?,?,?"では
"?"が
きちんと
代入
出来ませ
ぬ～
(T_T)
どーした
もんか
教えて
やって
下さい
m(__)m
0844デフォルトの名無しさん
NGNG改行は3回までにしてから出直せ
0846デフォルトの名無しさん
NGNG質問
です
(^O^)/変数Aに"?,?,?,?"と入れたいんですが、 A="?,?,?,?" では"?"がきちんと代入出来ませぬ～(T_T) どーしたもんか教えてやって下さいm(__)m
0847デフォルトの名無しさん
NGNGお前女か？
だったら、漏れが優しくおしえてやる
へへへ
0849デフォルトの名無しさん
NGNG0850デフォルトの名無しさん
NGNGまず、どういう方法で変数Ａの中身を確認したのか、書け！
0851デフォルトの名無しさん
NGNG*/
#if 0
これでもいいけど。
#endif
0852デフォルトの名無しさん
NGNG0853デフォルトの名無しさん
NGNG女だから
はやく優しく教えてやれ
0854デフォルトの名無しさん
NGNG'あるよ。
#if aa = 0 then
' これでもいいけど。
#end if
ん？
0855デフォルトの名無しさん
NGNG0856デフォルトの名無しさん
NGNG0857デフォルトの名無しさん
NGNG上のように48～57の間の時、みたいに範囲を指定することって
できないのでしょうか。一つずつIf Then ElseIfしていくのは
超面倒なんですけど。
0858デフォルトの名無しさん
NGNG？ 単にAND使えばいいだけでは？
0859デフォルトの名無しさん
NGNGCase使え
0860デフォルトの名無しさん
NGNGIf 48 <= KeyAsci And KeyAscii <= 57 Then
0861デフォルトの名無しさん
NGNG0862デフォルトの名無しさん
NGNGSelect Case KeyCode
Case 48 To 57
End Select
だな。
キー制御が複数ある場合はSelect文使った方が
見やすいし、内容によっては速くなるよ。
>>861 頭イイ！
0863857
NGNG>>861さんのは、アフォなので理解できませんでした…。
分かりやすいので>>862さんのを使いたいと思います。
本当にありがとうございました。
0864デフォルトの名無しさん
NGNG0865デフォルトの名無しさん
NGNG感動した！それ使わせてもらうよ！
0866デフォルトの名無しさん
NGNGやめとけ。
0867デフォルトの名無しさん
NGNGきょうび、トリッキーなコードはいいコードとは言わないよ
よほどクリティカルな個所に使う場合を除いて。
0868857
NGNGSelect Case KeyAscii
Case 48 To 57
このCase文を否定形にしたいのですが、やり方が分からないです。
Case Not 48 To 57
としても駄目でした…。
0869デフォルトの名無しさん
NGNGcase else
0870デフォルトの名無しさん
NGNGIf 48 <= KeyAsci And KeyAscii <= 57 Then
を関数にしろ。
0871デフォルトの名無しさん
NGNGMSのダウンロードページを探したのですが、よくわかりませんでした。
0872デフォルトの名無しさん
NGNG0873デフォルトの名無しさん
NGNG関数化するにしても
Select Caseのがいいよ。
0874デフォルトの名無しさん
NGNG・低レベルな話題なので誰でも話題に入れる。
・しかしこういう基本テクニックすら知らないVBユーザ多いから。
0875デフォルトの名無しさん
NGNG>>870が言いたいのはこういう関数だと思うよ。
Public Function IsNumericKey(iKeyAscii AS Integer) As Boolean
If (&h30 <= iKeyAsci And iKeyAscii <= &h39) Then
IsNumericrKey = True
Else
IsNumericKey = False
End If
End Function
Select Caseはテーブルに展開されるから速いってのは
本当だろうか?
0876デフォルトの名無しさん
NGNGついでに(ByVal iKeyAscii AS Integer)にしておけ。
> Select Caseはテーブルに展開されるから速いってのは本当だろうか
ジャンプテーブルに展開されるのは確かめた。
でも今回のようにCase 48 To 57じゃたぶんダメ。
Caseの後が数値で不等号とかがない時だけだと思う。
C/C++でジャンプテーブルに展開されるときの条件と同じと考えていいんじゃないかな。
0877857
NGNG初心者スレって言葉に甘えてしまって…
Ifが良いのかSelectCaseが良いのか分かりませんが、
関数化して使い回せるようにしてみます。
ありがとうでした。
0878873
NGNGいや、それは理解してるが・・・Selectでいんでないの？という話。
Public Function IsNumericKey(iKeyAscii AS Integer) As Boolean
Select Case iKeyAscii
Case &h30 To &h39
IsNumericrKey = True
Case Else
IsNumericKey = False
End Select
End Function
>Select Caseはテーブルに展開されるから速いってのは
>本当だろうか?
微々たるもんだから、速度で判断するのはどうかと。
↓速度実験してるページ。
http://homepage2.nifty.com/yk2yk2/mn/tips/index.htm
0879デフォルトの名無しさん
NGNGいやByValにすると変数をコピーする時間がもったいないから
ByRefでいいのさ。きっと。
0880デフォルトの名無しさん
NGNGそのページは正確じゃないな。たしかにあの通りだとIfが速いが
比較の個数を増やすとSelect Caseが速くなる。
Sub Main()
Dim i As Long, s As Single, tmp As Long
s = Timer
For i = 0 To 50000000
If tmp = 1 Then
tmp = tmp + 1
ElseIf tmp = 2 Then
tmp = tmp + 1
ElseIf tmp = 3 Then
tmp = tmp + 1
ElseIf tmp = 4 Then
tmp = tmp + 1
ElseIf tmp = 5 Then
tmp = tmp + 1
ElseIf tmp = 6 Then
tmp = tmp + 1
ElseIf tmp = 7 Then
tmp = tmp + 1
ElseIf tmp = 8 Then
tmp = tmp + 1
ElseIf tmp = 9 Then
tmp = 0
Else
tmp = 1
End If
' Select Case tmp
' Case 1
' tmp = tmp + 1
' Case 2
' tmp = tmp + 1
' Case 3
' tmp = tmp + 1
' Case 4
' tmp = tmp + 1
' Case 5
' tmp = tmp + 1
' Case 6
' tmp = tmp + 1
' Case 7
' tmp = tmp + 1
' Case 8
' tmp = tmp + 1
' Case 9
' tmp = 0
' Case Else
' tmp = 1
' End Select
Next i
MsgBox Timer - s
End Sub
0881857
NGNG先程の数字以外の入力防止コードを実行し、普通に数字以外の
入力が出来なくなったのですが、
数字→それ以外と連続押しした際にまれに入力できてしまう
ことがあるようです。例えば「4R」とポポン!とほぼ同時押しした際、
「4R」と入力出来てしまいました。
どうやら、KeyPressイベントが起きていないようです。
しかし、WindowsのIP入力する欄で同様の操作を行っても、
「R」は入力されません。
これを防止する術はあるのでしょうか。
つか、この操作が出来るのって、もしかして僕の端末だけですか？
0882デフォルトの名無しさん
NGNGCTRL+Vで貼り付けてもいい？ SHIFT+INSERTで貼り付けてもいい？ マウスで貼り付けてもいい？
0883デフォルトの名無しさん
NGNGKeyUpかKeyDownにしてみれば?
0884862
NGNGSelect文が、内容によっては速くなるというのは、例えば
if i = 1 or i = 3 or i = 5 or i = 7 or i = 11 then
select case i
case 1,3,5,7,11
という分岐があってiが1だったとします。この場合
select文はi = 1を判定した時点で判定が終了しますが
if文はi = 1,i = 3,i = 5,i = 7,i = 11全ての判定を行うからです。
**************************************************
524 ：デフォルトの名無しさん ：02/07/30 21:17
Ifの条件にAnd入れるくらいならIf二つ使え
**************************************************
と言ってるのもおそらくこの理由からじゃないでしょうか。
今回の質問は48 To 57だけですが、キー制御時は結構↑こういう状況多いので。
キー制御時ぐらいでは微々たる差ですがループ時には結構効果が出るのでは。
0885857
NGNGいや、ペーストは別途、防止しています。
そうじゃなくて、>>881に書いたような現象を防げるかということです。
KeyPressをクリアしてしまうような。
（できれば、どなたか同じように実験していただけるとありがたいのですが…）
>>883
KeyUp、KeyDownもクリアしてしまうようです。
イベント自体起こりません。
0886デフォルトの名無しさん
NGNGならまずコード出そうよ。
0887デフォルトの名無しさん
NGNGきっとChangeイベントは発生するはず。
それでどうすればいいかは知らん。
0888デフォルトの名無しさん
NGNGVBでミリセカンド単位の時間を計算するのに、何か良い方法あるかな。
例えば、2002080912315977っていう(yyyymmddhhmmss**)Stringを元に、
差を計算する場合…、Dateだと秒までしか扱えないし…。
0889857
NGNGすみません…。
テキストボックスのKeyPressイベントで
>>878さんのコードを呼んでいただくだけです。
で、テキストボックス上でポポン!とほぼ同時押しで
「4」→「R」と押して下さい。
>>887
どうもです。何か考えてみます。
0890
NGNG0892デフォルトの名無しさん
NGNGQueryPerformanceCounter
0893デフォルトの名無しさん
NGNG見えないとこで使うなら許可
0894デフォルトの名無しさん
NGNG0896888
NGNGあーっと、精度の良い実行速度測定法ではなくて、単純に
ふたつのミリセコンドを含む時間を演算するのに適したデータ型は何か？
ということを聞きたかったのです。解りづらかったですね。
(計算対象の時間は文字列として既にある状態からの計算)
でも、QueryPerformanceCounterで戻り値に使われている型を調べればヒント
になるかもしれないですね、ちょっと調べてみます。
0897デフォルトの名無しさん
NGNG基本的に日付や時刻の差を求めるときは、数値で行います。
VBのDate型も1899/12/30 00:00:00からの経過時間を
日数を整数とした浮動小数点で保持しているはずです。
ミリ秒を含む文字型で比較する場合は、
ミリ秒を含まない文字列を取り出して、DateDiffしたものに1000を乗じ、
ミリ秒だけの差をそれに足してやればいいのでは?
0898デフォルトの名無しさん
NGNGどっかに無いですか？
「Ｃプログラマーの為のＶＢの部屋」みたいな。
0900デフォルトの名無しさん
NGNGはぁ～鬱。
0901デフォルトの名無しさん
NGNG>>840
変数の宣言ってしてる？ってーかしってる？
private sub form_load()
dim A as string ←変数の宣言
A=?,?,?,?
end sub
Private Sub Command1_Click()
text1.text=A
End Sub
ってやればコマンドボタン押すとテキストボックスに
「?,?,?,?」って出てくるけど。
ちなみに俺が始めて作ったプログラム。どうでもいいか。
0902デフォルトの名無しさん
NGNGあのころが一番楽しかったかも試練。
俺もほとんど同じコードから始めたよ。
0903デフォルトの名無しさん
NGNGそういうページを俺が作ってる。でも最近停滞中。
気が向いたら出来てるかもしれん。
0905デフォルトの名無しさん
NGNGお前ｳﾞｧｶ?
他の言語でも同じだろ。
0906通りすがり
NGNGお前らある意味神だ
0907デフォルトの名無しさん
NGNG今時RADも知らん奴はプログラマ辞めたら。
0908デフォルトの名無しさん
NGNGそれだと、テキストボックスには何も表示されないと言ってみる。
0909デフォルトの名無しさん
NGNGどーゆー文脈でRADが出てくるんだ？？
0910デフォルトの名無しさん
NGNG>>901のバグに気づかない奴も糞。
0911デフォルトの名無しさん
NGNG0912通りすがり
NGNG（ ´_ゝ｀） √| ＜ なんだ、やっぱりクズ共の吹き溜まりかよ
/ |＼/ ノ ＼
＿＿ / ム /￣＼__ ＼＿＿＿＿＿＿＿
＼ ( 丿 ＼ /＼ ）
||＼￣ ￣＼ ￣)＼
||＼||￣￣￣￣￣￣￣￣||
|| ||￣￣￣￣￣￣￣￣||
期待して損したぜ
0913デフォルトの名無しさん
NGNG0914デフォルトの名無しさん
NGNGお前がクズだろうが。
0915デフォルトの名無しさん
NGNG「通りすぎていただきたい」だろ
0916デフォルトの名無しさん
NGNG確かに縋られちゃ困るな
0917デフォルトの名無しさん
NGNG0918デフォルトの名無しさん
NGNGちんこ？
0919デフォルトの名無しさん
NGNG0920デフォルトの名無しさん
NGNG0921デフォルトの名無しさん
NGNG0923デフォルトの名無しさん
NGNG0924デフォルトの名無しさん
NGNGそう見ると楽しいね
0925デフォルトの名無しさん
NGNG1. コードが書いてある窓をマウスを使わずに最大化して表示する方法
2. ツールボックス等をマウスを使わずに閉じる方法
を教えてください。
0926デフォルトの名無しさん
NGNGとてもめんどくさい式になります。
どうにかしてください。
0927デフォルトの名無しさん
NGNGそのめんどくさい式を出せ
0928926
NGNGsiita=atn(y/x)
if x<0 then siita=siita+3.14159
if siita<0 then siita=siita+3.14159*2
0929デフォルトの名無しさん
NGNG0930デフォルトの名無しさん
NGNG特に積分しても問題ないと判断しました。
0931デフォルトの名無しさん
NGNGVB には atan2 とかないし
それが一番カンタンなのでは
関数にすれば呼び出し側は１行ですむ
ぜんぜんめんどくさくないと思うが
0932デフォルトの名無しさん
NGNG1. [Alt]+[-] , [X]
2. [Shift]+[F10], [H] または [App], [H]
0934デフォルトの名無しさん
NGNGお願いします。
0935デフォルトの名無しさん
NGNG0936デフォルトの名無しさん
NGNGPrivate Sub Command1_Click()
Msgbox "Hello world"
End Sub
こんな感じのプログラムのことですか？
0937デフォルトの名無しさん
NGNG著作権無視してポケモンゲーム作ってみますた
0938デフォルトの名無しさん
NGNGODBCであらかじめ設定しとくか、MDBをダイレクトに指定しよう。
0939デフォルトの名無しさん
NGNGウィルスかブラクラっぽい。インフォシークはブラクラが多い気がする
0940デフォルトの名無しさん
NGNGﾜﾛﾀ
0941デフォルトの名無しさん
NGNGニューソクにもコピペあったよ、怖すぎる
0942デフォルトの名無しさん
NGNG（ ´_ゝ｀） √| ＜ まあここは厨がかなり多いからな
/ |＼/ ノ ＼
＿＿ / ム /￣＼__ ＼＿＿＿＿＿＿＿
＼ ( 丿 ＼ /＼ ）
||＼￣ ￣＼ ￣)＼
||＼||￣￣￣￣￣￣￣￣||
|| ||￣￣￣￣￣￣￣￣||
期待して損したぜ
0944デフォルトの名無しさん
NGNG0945デフォルトの名無しさん
NGNG素直に先頭ポインタ指定してfwrite
0946デフォルトの名無しさん
NGNGクイックフォーマットする方法はないでしょうか？
0947888
NGNG1000を乗じ…ってのが良くわかりませんでしたが、
なんとかなりそうです。
0948デフォルトの名無しさん
NGNGMAPISession、MAPIMessageコントロールを使用して
添付ファイル付きのメールを送信する方法がわかりません
又、受信側の添付ファイルの取り出し方も同様です
過去ログにも一応目を通したのですが、それらしい記述は見つけることが出来ませんでした
何かアドバイスなどありましたらお願いします
0949デフォルトの名無しさん
NGNGRFC読めや。
これだからVB厨は・・・。
次はBASE64コントロールはどこにありますか？だろうな。
0950デフォルトの名無しさん
NGNGお前単に叩きたいだけだろ。よかったな初心者が出てきて(ﾌﾟ
0951946
NGNGかなり高度なようなので、他の方法を考えたいと思います。
0952デフォルトの名無しさん
NGNGformat /q
0953デフォルトの名無しさん
NGNG今レスしたところだが高度では無いぞ
0954946
NGNG「VBからダイアログ出さずに」だと難しいと書いてありましたが、
そうでもないんですか？
0955デフォルトの名無しさん
NGNG946じゃないけど、formatコマンドだと確かに
ダイアログは出ないけど、結局キーインは求められるのでは？
サイレンスフォーマットしたいってのが質問の意図のように思われ。
0956デフォルトの名無しさん
NGNG申し訳ない。よく考えずにレスしてもうた。
echo |format a: /q
とかやってもラベル入力求められちゃうな。ごめん
0957デフォルトの名無しさん
NGNGr = r + (Not r And 1) の方が早いと知った夏の日
0958デフォルトの名無しさん
NGNG0959デフォルトの名無しさん
NGNGごめんその方が単純でした。俺何やってんだろ…逝ってくる
0960デフォルトの名無しさん
NGNG元のやつも普通、
If r Mod 2 = 0 Then r = r + 1
と書かない？
0961960
NGNGそうでないと958も960も957の1行目の互換とはなりえない。
0962デフォルトの名無しさん
NGNGrは整数。しかもMod使えないくらい大きな数。
0963デフォルトの名無しさん
NGNGイニシャライザーについてだけど、
Dim NumOfWord As Long = 100
とか、
Dim NumOfWord( 3 ) As Long = {1,2,3}
みたいな事したいんだけど、ｲｲ方法おしえて。
0964デフォルトの名無しさん
NGNGわかった、その話題もういいや。
0965デフォルトの名無しさん
NGNG上のは
Const NumOfWord As Long = 100
でできる。下のは知らん
0967デフォルトの名無しさん
NGNG漏れは、いつもエディータはWZを使ってるので、統合環境は苦痛だったのだが、
この技を身に付けてから、快適だ！
[ALT]+[F] [R]
[ALT]+[F] [1]
伝授してやる、使ってみろ。
0968デフォルトの名無しさん
NGNG0969デフォルトの名無しさん
NGNGなんで？
0970デフォルトの名無しさん
NGNG0971デフォルトの名無しさん
NGNG宣言直後に代入文を書く以外の方法は無かったと思われ。
言語仕様っつー事であきらめて。
0973デフォルトの名無しさん
NGNG0974デフォルトの名無しさん
NGNGﾚｺｰﾄﾞｾｯﾄを取得する段階で本を見ながらSQLというのを書いています。
このSQLについて教えて下さい。
データベースの各レコードに「コード」を振っていて、
「指定したコードの次のコード」のレコードを取ってきたいのですが、
WHEREの所に何と書けば良いか分かりません。
例えば、コードを25と指定して、その次のコードの物(順当に行けば26)を
取ってきたい訳ですが、レコードを削除すると、26が欠番になる可能性が
あるので、+1と指定することができません。
これは何かやりようがあるのでしょうか。
お願いします。
0975デフォルトの名無しさん
NGNG↑これで。
0976デフォルトの名無しさん
NGNGVB.NET質問スレは別にあるんだから、ここは基本的には
VB6以前のの質問と思っていいのではないかな？
もちろん、環境くわしく書くに越したことないけど。
0977デフォルトの名無しさん
NGNGコードを昇順に並べて全件取得。
んで、25番の次にあるデータを取得すればよろし。
WHEREはいらない。
0979デフォルトの名無しさん
NGNGどうもありがとです。
レコードセットとSQLの使い方が今一つ分かっていませんでした。
勉強します。
>>975の
(*´д`*)ｱﾊｧ… VB初心者質問スレ Part13
↑これ賛成。
0980
NGNGと
ScaleHeight , ScaleWidth
の違いは？
0981デフォルトの名無しさん
NGNG裏技教えてやるよ｡
＜F1キーでヘルプが出る＞
0982デフォルトの名無しさん
NGNGSQL文の質問ならデータベーススレに行った方がいいよ。
専門スレの方が質が高い、って>>977-978見て思った。
0983デフォルトの名無しさん
NGNGSelectionMode=1(flexSelectionByRow)
に設定しているんですが、このときに
選択している（複数の）行はどのようにしたら
わかるのでしょうか？
0984デフォルトの名無しさん
NGNGﾏﾁｸﾀﾋﾞﾚﾀ～
☆ ﾁﾝ 〃 Λ＿Λ ／￣￣￣￣￣￣￣￣￣￣￣￣￣
ヽ ＿＿_＼（＼・∀・） ＜ 新スレまだ～？
＼＿／⊂ ⊂＿ ) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
／￣￣￣￣￣￣ ／|
|￣￣￣￣￣￣￣| |
0985デフォルトの名無しさん
NGNG0986デフォルトの名無しさん
NGNG0987デフォルトの名無しさん
NGNG0988デフォルメの名無しさん
NGNG0989デフォルトの名無しさん
NGNGまもなくここは 乂1000取り合戦場乂 となります。
＼∧＿ﾍ ／￣￣￣￣￣￣￣￣￣￣￣￣
,,､,､,,, / ＼〇ノゝ∩ ＜ 1000取り合戦、いくぞｺﾞﾙｧ！！ ,,､,､,,,
/三√ ﾟДﾟ) / ＼＿＿＿＿＿＿＿＿＿＿＿＿ ,,､,､,,,
/三/| ﾟＵﾟ|＼ ,,､,､,,, ,,､,､,,,
,,､,､,,, Ｕ （:::::::::::） ,,､,､,,, ＼オーーーーーーーッ！！／
//三/|三|＼ ∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
∪ ∪ （ ） （ ） （ ） ）
,,､,､,,, ,,､,､,,, ∧＿∧∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
,,､,､,,, （ ） （ ） （ ） （ ）
0990デフォルトの名無しさん
NGNG09911000
NGNG0992デフォルトの名無しさん
NGNG∩） (´´ (´⌒(´
∧∧ノ つ ｽﾞｻﾞｰｰｰｰｰｯ(´⌒(´
⊂（ﾟДﾟ⊂ ノ ∧∧≡≡）ｽﾞｻﾞｰｰｯ(´⌒;;;≡≡
∧∧（ﾟДﾟ⊂⌒｀つ∧∧≡(´⌒;;;≡≡≡
∩） ⊂（ﾟДﾟ⊂⌒｀つ≡⊂（ﾟДﾟ⊂⌒∧∧≡≡）(´⌒;;;≡≡
∧∧ノ つ ｽﾞｻﾞｰｰｰｰｯ∧∧(´⌒(´ ⊂（ﾟДﾟ⊂⌒｀つ≡(´´ (´⌒(´
⊂（ﾟДﾟ⊂ ノ ∧∧≡≡）⊂（ﾟДﾟ⊂⌒｀つｽﾞｻﾞｰｰｯ(´⌒;;;≡≡
∧∧（ﾟДﾟ⊂⌒｀つ∧∧≡(´⌒;;;≡≡≡
⊂（ﾟДﾟ⊂⌒｀つ≡⊂（ﾟДﾟ⊂⌒｀つ≡(´⌒;;;≡≡≡
￣(´⌒(⌒;;∩） (´´ ∧∧(´⌒）ｽﾞｻﾞｰｰｰｰｯ
∧∧ノ つ ⊂（ﾟДﾟ⊂⌒｀つｽﾞｻﾞｰｰｰｰｰｯ(´⌒(´
⊂（ﾟДﾟ⊂ ノ ∧∧≡≡）ｽﾞｻﾞｰｰｯ(´⌒;;;≡≡
∧∧（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
￣￣ (´⌒(´⌒;; ｽﾞｻﾞｰｰｰｰｯ
0993デフォルトの名無しさん
NGNG0994デフォルトの名無しさん
NGNG0995デフォルトの名無しさん
NGNGﾏﾁｸﾀﾋﾞﾚﾀ～
☆ ﾁﾝ 〃 Λ＿Λ ／￣￣￣￣￣￣￣￣￣￣￣￣￣
ヽ ＿＿_＼（＼・∀・） ＜ チンスレまだ～？
＼＿／⊂ ⊂＿ ) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
／￣￣￣￣￣￣ ／|
|￣￣￣￣￣￣￣| |
0996デフォルトの名無しさん
NGNG( ﾟдﾟ) ;y=ｰ( ﾟдﾟ)･∵. ﾀｰﾝ
.| y |.＼／ | y |
0997デフォルトの名無しさん
NGNG∧＿∧ ／￣￣￣￣￣
（ ´_ゝ`）＜ 1000ゲット
（ ） ＼＿＿＿＿＿
｜ ｜ |
（_＿）＿)
0998デフォルトの名無しさん
NGNG0999デフォルトの名無しさん
NGNG1000デフォルトの名無しさん
NGNG| /:::::::::::::::::l 1000 や
∩ /::::::::::::::::::::| ,､ 番 ！
-―-､ |⌒ヽ/::::::::::::::::::::::| _／|ノ ゲ
/´Ｙ （´ヽ ,､ l: : : ｉ::::::::::::::::::::::::|-―'´: :丿 ッ
,､ _し' l lヽJ／|ノ ＼: |∧／l／|ノﾚ : : : :／ ト
Ｙ: : ｀ｰ｀ｰ-―'´一': : | /: : : : : : : : : : ::i-‐'′ や
＼: : : : : : : : : : : : ／ /: : : : : : : : : : : | |
Ｙ: : : : : : : : :r'´ /: : : : : : : : : : : :|
/: : : : : : : : : :| /: : : : : : : : : : : : |
/:: : : : : : : : : ::| / : : : : : : : : : : : : |
/: : : : : : : : : : : | /: ::＿: : : : : : : : : :|
｀７７ｰ--┬r一' ￣/ /￣｀ｰ-┬r-'
l'´） ├| l'´） |~|
し' (ﾆ⊃ し' (ﾆ⊃
＿_
/〃 ┼‐┼〃＿＿
/＼ ノ __
__ , -――-、 /＼ﾉ
ヽ/＼l::::::::::::::::::::＼ /: : /
,..-―-､／） |: : :|::::::::::::::::::::::／: : /
／⌒Ｙ （_ノ /） |: : :|:::::::::::::::::::::|: : : /
￣l￣l､ ） ／｀〉 ヽ:: :|::::::::::::::::::::l: : :/
l: : :｀ー--‐'‐'´: :/ ＼|∧ハ/l／: ::〈
＼: : : : : : : : : :く |: : : : : : : : : : ｀ー-┐ ,.､
l: : : : : : : : : :｀ー―┐ ,､ |: : : : : : : : : : : : : : |二lニﾉ
ヽ.: : : : : : : : : : : : : :|ニﾉ |: : : : : : : : : : : : : : |
ヽ: : : : : : : : : : : : :| ヽ: : : : : : : : : : : ／
＼: : : : : : : : :／ ＼ : : : : : : ／
￣￣￣￣ ノ| ￣￣￣ ノ）
ノしノ し'（ ノ)__ノ （ノ(
'――――-'′ '-――一-'′
1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。