くだすれVB6.0以前（超初心者向け）
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001デフォルトの名無しさん
2006/12/08(金) 19:36:45他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。
VB使いが優しくコメントを返しますが、
お礼はVBの布教はしなくてよいので、初心者の救済をお願いします。
0002デフォルトの名無しさん
2006/12/08(金) 19:53:510003デフォルトの名無しさん
2006/12/08(金) 19:56:47ここは重複スレです
http://pc8.2ch.net/test/read.cgi/tech/1161517193/
↑のスレに移動して下さい
0004デフォルトの名無しさん
2006/12/08(金) 21:18:09ElseIf以降の内容が
ログ左右桁揃え = " " & b
と全部同じなんだけど、誤記？それとも、仕様？
>>ttp://pc8.2ch.net/test/read.cgi/tech/1161517193/546
Dim Fso As Object
Dim FsoTS As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FsoTS = Fso.CreateTextFile(App.Path & "\" & Text1.Text, True)
FsoTS.Close
Set FsoTS = Nothing
Set Fso = Nothing
0005デフォルトの名無しさん
2006/12/11(月) 13:06:38GetObject()だと最初のものしか取れない。
0006デフォルトの名無しさん
2006/12/11(月) 14:55:02最初のオブジェクトを取得後、やりたい事を終えて終了させた
後にもう一度GetObjectやるとかしかおもいつかないなぁ。
それじゃぁだめなの？
0007酔いちくれ ◆J0rwikii8c
2006/12/11(月) 23:42:40複数起動の場合は、難しいね。
普通にはできないと思う。
0008デフォルトの名無しさん
2006/12/12(火) 00:48:27キチガイのふりをしているつもりの本物のキチガイが必ず自分を隔離するような
スレを自分で立てるのは法則か何かだろうか？w
そして程なく、スレが思っているほど繁盛しないことに気づいて放棄することになるんだなw
0009デフォルトの名無しさん
2006/12/12(火) 01:17:0500105
2006/12/12(火) 02:42:47見よう見まねで、出来るかも、と、やってみましたが、
手順
1.OffCntrDisp という名前で新しい MFC ActiveX ControlWizard アプリケーションを作成します。
2.以下のメンバ変数を COleControl 派生クラスに追加します。
のステップ2で早、躓きました。追加先のCOleControl 派生クラスはどこ？
これをVBに焼き直したり、もっと簡単にできません？
0011酔いちくれ ◆J0rwikii8c
2006/12/12(火) 09:46:45MFCというか、C++じゃん。
OffCntrDispCtl.hというヘッダファイルに
class COffCntrDispCtrl : public COleControl
として宣言してあるけど、COMのような実装をVBでやるのは絶対無理。
VBとエクセルで何がしたいのか、教えてくれたほうが解決案が模索できそう。
>>8
オレはお前の事嫌いじゃないぜ？
0012デフォルトの名無しさん
2006/12/12(火) 23:17:2200135
2006/12/14(木) 09:40:40なんとかコンパイルできました。ありがと。
やりたいことは、最初に言ったように、
|Shell.Windows()でIEを一覧できるように、Excel.Applicationを一覧できません？
なんです。
>>12
調べてみましたが、関係がよく分りません。
0014デフォルトの名無しさん
2006/12/21(木) 20:35:06クライアントで予期せぬエラー (0x8003001e)
が発生してしまいます。どのような原因が考えられますでしょうか？
http://support.microsoft.com/kb/198381/ja
0015酔いちくれ ◆J0rwikii8c
2006/12/21(木) 20:44:14oracleならブロブ型のデータとかじゃまいか？
001614
2006/12/22(金) 08:53:01ここのｻﾝﾌﾟﾙのまねをしたらOKでした。
あとADOで例外エラー時にrollbackしたいのですが
トランザクションが開始されているかどうかの
ステータスはどこを見ればよいでしょうか？
0017酔いちくれ ◆J0rwikii8c
2006/12/22(金) 10:02:44新しいADOならあるかもしれないけど、しらない。
MSのサンプル資料なんかでもよく見かけるけど、単純にトランザクションを
はるタイミングで変数にフラグをセットしてる。
自分でDBクラスつくって、IsTransとか内部にプロパティを作ってはどうか。
Begin時にTrueでCommit、Rollback時にFalseで。
0019デフォルトの名無しさん
2006/12/24(日) 12:09:26【メニューバー】 → 【デバック】 → 【コンパイル】という順でＯＫ
なのですか？何か一瞬なので本当にコンパイルされたかどうか分からないので。
コンパイルをすると、***.vbr？とかいうファイルは更新されるのですが、
***.exeは更新時間が変わりません。exeも更新するにはどうしたら良いのでしょうか？
0020デフォルトの名無しさん
2006/12/24(日) 14:43:11【メニューバー】→【ファイル】→【～.exeの作成】
VBはVCみたいに警告とかないし、リンクもないし、すぐにコンパイル終わる。
0021デフォルトの名無しさん
2006/12/24(日) 15:41:15リンクはある
みたいな。
薀蓄垂れるんなら知ってからにしような。
002220
2006/12/24(日) 16:56:12あ、そうなの。
それって、参照設定のことをいってる？
VBにヘッダファイルないし、includeないし、
コンパイル時にリンクの更新なんてやってるの？
0023デフォルトの名無しさん
2006/12/24(日) 17:06:07一旦オブジェクトファイル作ってリンクしてるんですよ
002420
2006/12/24(日) 17:33:03無知でｽﾏｿ。
オブジェクトファイルはわかる。
exeを作る際に、ソースを実行体にまとめてるんだろうけど
ちょっと誤解してた。
VBでつくったexeだけじゃランタイムないと実行できないから、
Cとコンパイル時のリンクのレベルが違うだけで、VBだってリンクするね。
ランタイムありきでリンクしてるから、コンパイルが速いという事でFA？
0025デフォルトの名無しさん
2006/12/24(日) 17:48:03Cのコンパイルを基準にするのなら
ソースコード解析するのにやたら手間取るのがCで、VBは構文が単純だから手間取らない
程度だと思う
VB6の構文って曖昧さが無いんだよね
0026debu
2006/12/26(火) 11:34:45sql文を代入していく処理で、250文字以上が格納できません。
試しに
Dim s As String
s = "1234567890～"
上記のように、string型の変数 s に300文字を入れてみたのですが、
ウオッチ式でみるとやはり250文字しか入っていません。
これはどうしたことでしょう？？？ どなたか教えてください！
0027デフォルトの名無しさん
2006/12/26(火) 11:46:25ウォッチ式に表示できないだけで、ちゃんと格納されてる。
イミディエイトに
?s
と打てば、ある程度はわかるがそこも表示制限があるから
一番いいのは、ログみたいにテキストに出力すれば、本当に
格納されているデータがわかる。
0028debu
2006/12/26(火) 12:22:53大変助かりました。
0029デフォルトの名無しさん
2006/12/27(水) 16:44:57Dim cnt As Integer;
0030デフォルトの名無しさん
2006/12/27(水) 16:47:48VBは改行符いらない。
セミコロン「；」がじゃま。
どうしても改行符いれたいときは
コロン「：」にする。
0031デフォルトの名無しさん
2006/12/27(水) 16:50:15Cは";"で、BASIC系は昔ッからchr$(13)またはchr$(11)+chr$(13)だです
0032デフォルトの名無しさん
2006/12/27(水) 22:56:32セミコロンでしたか。ありがとうございます。
003314
2006/12/28(木) 20:28:58横バーを出すにはどうしたらよいでしょうか？
0034デフォルトの名無しさん
2006/12/29(金) 10:37:43ツリービューでノードのドラッグ＆ドロップをしている事までは
読み取れた。
その後の横バーが何かわからん。
参考までにDragOverイベントがドラッグ中に発生してるからそこで
なにかしらの処理ができるんじゃないの？
0036デフォルトの名無しさん
2006/12/29(金) 11:34:21オレ、エスパーかもしれん。わかった。
ノードの順番を入れ替えようとした場合にどこに割り込ませるか
ノードの下にバーを表示したいんだな。
簡単に済ませるなら、DragOverイベントで
Set TreeView1.DropHighlight = TreeView1.HitTest(x, y)
として、選択状態にでもさせる。
もしくはあらかじめ画面にイメージコントロールを
用意しておいて、同イベントでノードの下にでも表示させる。
もっと本格的にやりたいなら、それこそツリービューをサブクラス化して
メッセージ：CDDS_ITEMPOSTPAINTのときにカスタム描画する。
0038酔い 【大吉】 ちくれ 【1229円】 ◆J0rwikii8c
2007/01/01(月) 10:32:32あけおめ。
0039デフォルトの名無しさん
2007/01/16(火) 05:35:500040デフォルトの名無しさん
2007/01/16(火) 08:43:59コーディングしなきゃいけない
コードを既に書いてるならうｐ
うｐできないなら再現可能なコードにしてうｐ
0041デフォルトの名無しさん
2007/01/18(木) 13:30:420042デフォルトの名無しさん
2007/01/28(日) 10:24:18http://pc10.2ch.net/test/read.cgi/tech/1161517193/
↑の次スレってここ？
0043デフォルトの名無しさん
2007/01/28(日) 11:01:26http://pc10.2ch.net/test/read.cgi/tech/1169949451/
0045デフォルトの名無しさん
2007/03/05(月) 01:02:19Newで作成した配列などは、破棄するにはどうすればよいのでしょうか？
いわゆる、ググッてみたんですが、なかなかわかりません。
よろしくお願いします。
0046デフォルトの名無しさん
2007/03/05(月) 07:51:34vb6はnewで配列を作れません
環境をお確かめの上、正しいスレにご投稿くださいますよう申し上げます
0047デフォルトの名無しさん
2007/03/05(月) 08:00:20お前のスキルでのたまってるんじゃねぇよ。
0048デフォルトの名無しさん
2007/03/05(月) 09:21:22知りませんでした。
MediaDetを利用するサンプルを見ていたら、
Dim Det As New MediaDet
とあったので、使った後に破棄するのはどうするのか？と思い書き込みました。
0049デフォルトの名無しさん
2007/03/05(月) 09:30:03vb6では参照カウンタ方式によるGCが働いているので、明示的に破棄する必要はありません(できません)
仮にそのMediaDetオブジェクトが(オブジェクト自身ではない)何かしらのデータの破棄を要求しているのなら、
専用のメソッドが存在するはずです。
0050デフォルトの名無しさん
2007/03/05(月) 09:58:12そうですか。
Function内で使用したいと思っていたので、何度もNewで定義していったときに
どんどんメモリを食っていくのでは？と思っていました。
ありがとうございました。
0051デフォルトの名無しさん
2007/03/05(月) 10:46:46先生、いかにVBでも明示的に破棄できないと困ります＞＜
0052デフォルトの名無しさん
2007/03/05(月) 10:48:36VBの内部はCOMによって実装されている部分が大半だから、CoCreateInstance()付近からAPI探していけ
0053デフォルトの名無しさん
2007/03/05(月) 10:51:15COMわかんね('A`
0054デフォルトの名無しさん
2007/03/05(月) 12:11:38あるバイナリファイルがあり、その先頭４バイトには数値が入っています。
この４バイトをプログラムから上書きしたいと考えています。
そこで以下のようなコードを書きました。
Open ".\hoge.bin" For Binary As #1
Write #1, value
Close #1
これを実行しますと、Writeのところでエラーが出てしまいます。
おそらく、初歩的な間違いのような予感がするのですが、
どのようにすれば良いがご存知であれば教えて頂けないでしょうか。
よろしくお願いします。
0055デフォルトの名無しさん
2007/03/05(月) 12:13:33> 上書きしたいと考えています。
何を？
何でもいいなら
open ".\hoge.bin" for binary as 1
put #1, 1, clng(rnd)
close 1
でおｋ
0057デフォルトの名無しさん
2007/03/05(月) 13:30:30VBの参照カウンタ型GCは、.NETのGCみたく参照が無くなっていつか消えるとかいうもの違って、
参照が消えた瞬間に消される。もちろん他に参照がコピーされていない前提であるが、例えば
Sub hoge
dim xx as OBJ
Set xx = New Obj
：
End Sub でスパッと消える
さらに、途中でNothingや他の参照をぶち込んでもその時点でスパッと消える
0058デフォルトの名無しさん
2007/03/05(月) 13:35:46そのあとNothingぶちこんだらカウンタが消えていくと思ってたが・・・
実際の所どうなんだ・・・？
>>57でFA?
0059デフォルトの名無しさん
2007/03/05(月) 13:37:43FA
プロセス越しの場合もＦＡ
0060デフォルトの名無しさん
2007/03/05(月) 14:15:10ありがとうございます
つまり、参照先のアドレスが変わるタイミングで消えるという事ですね
NOTHINGを指定する事とはVB的なぬるぽですね
つまり明示的に破棄できませんといった人はウソつきですか？
わかりません＞＜
0061デフォルトの名無しさん
2007/03/05(月) 14:32:30日本語でおｋ
0062デフォルトの名無しさん
2007/03/05(月) 17:11:24コレは酷いｗ
0063デフォルトの名無しさん
2007/03/05(月) 17:18:0862さん、すみません
どのあたりが酷いのでしょうか
よければ、私にもわかるように教えてください＞＜
0064デフォルトの名無しさん
2007/03/05(月) 17:30:59参照先のアドレスが変わるタイミングで消えるという事
何故この解釈になった？
0065デフォルトの名無しさん
2007/03/05(月) 17:32:24自分で確かめろカス
0066デフォルトの名無しさん
2007/03/05(月) 17:39:35ありがとうございます
>途中でNothingや他の参照をぶち込んでもその時点でスパッと消える
と書いてありました
参照型の変数には「物」がはいっているはけではなくて、メモリにある「物」をさす
アドレスが入っていると思います。
他の参照をぶち込むというのは、参照先を変えるという事では
ないのでしょうか。
>64-65さん、教えてください＞＜
0067デフォルトの名無しさん
2007/03/05(月) 17:42:17いいから自分の書いた文章読み直して出直して来いカス
0068デフォルトの名無しさん
2007/03/05(月) 17:58:55>>67
0069デフォルトの名無しさん
2007/03/05(月) 18:06:10そうですね＾＾
0070デフォルトの名無しさん
2007/03/05(月) 18:43:15MouseDownイベントについてなのですが、
フォーム上に存在するコンポーネントを無視して、フォームのどこを
クリックしてもMouseDownイベントを拾いたいと思っています。
Form_MouseDownイベントは、フォームのMouseDownイベントは拾えます
が、ボタンやラベルの上でクリックすると、フォームのMouseDownイベ
ントを拾うことができません。
どなたかご存知でしょうか？
ご存知であれば教えて頂きたいと思います。
よろしくお願いします。
0071デフォルトの名無しさん
2007/03/05(月) 19:07:58全てのコントロールのMouseDownイベントを拾ってゴリ押しすれば何とかなるんじゃない？
もしくはサブクラス化
それかフック
Spy++でも使ってみるよろし
007270
2007/03/05(月) 19:14:27やっぱりその手しかないですか…。
ウィンドウのほとんどをＡＰＩコントロールが占めており、そのＡＰＩコントロールの
ハンドルがＤＬＬに渡されていてＤＬＬ側で制御されているため、イベントを付けられ
ないんですよね…。
もうちょっと調べてみます。
ありがとうございます！
0073デフォルトの名無しさん
2007/03/06(火) 13:12:29試してないのでなんともいえないけど
VBControlExtender
を使えばいけそうな気もするが・・・
0074デフォルトの名無しさん
2007/03/06(火) 14:13:44VB超初心者です。プログラムの経験はCOBOLで17年ほどあります。
会社にNT4.0 VB6SP3で作られたシステムがあります
普通はフォームもモジュールも同一フォルダーに作成するみたいなんですが、
このシステムはフォームと標準モジュール（クラスも）別フォルダーになっています。
それで、仕様書等が無いために、ソースから追っかけてみていますが、VB自体
よくわかっていないので、悩んでいます。
メニュー画面はランチャーのような階層状のメニュープログラムがあります
そこでは、FORM_LOAD()は走っていますが、メニューの中の別プログラムに
移った場合、呼ばれるプログラムにはFORM_LOAD()自体ありません。
このようなプログラムの解析をする場合呼ばれたプログラムの動きを追っかけて
行きたいのですが、どうすればよいのでしょうか？
ちなみに、ファンクションキーのイベントなんかは書かれているようです。
どなたかご教授下さい
0075デフォルトの名無しさん
2007/03/06(火) 14:39:54>フォームと標準モジュール（クラスも）別フォルダー
これはvbpファイルで参照しているので、別フォルダーでも気にしなくておｋです。
>メニューの中の別プログラムに
はっきりとは判らないのですが、もしかしたら、Mainがあるプロジェクトから
DLLないしActiveXのexeのプロジェクトに遷移しているかもしれませんね。
遷移先の別プログラム(DLL もしくはActiveXＥｘｅ)もVBで書かれている場合、
そのプロジェクトをVSで立ち上げて一番最初に[実行]-[開始]をし、実行状態にします。
その後呼び元をF8キーでステップ実行していくと、別プロジェクトがDLL等の場合は
そのままステップ実行できます。
またブレークポイントを張ってそこで処理を止めることもできます。
はずしていたら、すみません。
0076デフォルトの名無しさん
2007/03/06(火) 14:54:51ありがとうございます。別のところにbasファイルがあって、そこにFORM_LOAD()
がありました。F8で追っかけてみたら、ありました。
これ、クラスとフォームは別々に開発してもＯＫなんですか？
なんども申し訳ありません。
よろしくお願いします。
0077デフォルトの名無しさん
2007/03/06(火) 15:53:52別々というのが、ファイルを保存している先が別々という
意味では、問題ないです。
ただ、そのクラスとフォームがどのように依存しているのかは
流石にわからないので、勝手に片方の関数を変えたりすると
もう片方に影響が出るかもしれないですね。
0078デフォルトの名無しさん
2007/03/06(火) 16:51:36つ最高にド低脳な発言してください in ム板(XV)
http://pc11.2ch.net/test/read.cgi/tech/1164376614/
0079デフォルトの名無しさん
2007/03/06(火) 17:06:52お前のようなカスの出てくるところじゃないんだよ。
0080デフォルトの名無しさん
2007/03/07(水) 18:08:38のですが、どのようなメソッドを使えばいいのか教えてください。
また、手動でCheckBoxのチェックを操作できないようにするには、
どの属性をどのように設定すればいいのかも教えてください。
以上、よろしくおながいします。
0081デフォルトの名無しさん
2007/03/07(水) 18:14:35> CheckBoxのチェックを入れたり、入れなかったりしたい
Valueプロパティを調べろ
（ちなみに、チェックを入れるのと、チェックを外すの、な）
> チェックを操作できないようにする
Enableプロパティを調べろ
"無効な色"になるのがイヤなら、縁無しのピクチャボックスにつっこんでピクチャボックスのEnableプロパティを変えてみろ
（もしくはClickイベントで強引にユーザ入力を、無かったかのように見せかける）
008280
2007/03/07(水) 23:40:46>> > チェックを操作できないようにする
>> Enableプロパティを調べろ
>> "無効な色"になるのがイヤなら、縁無しのピクチャボックスにつっこんでピクチャボックスのEnableプロパティを変えてみろ
>> （もしくはClickイベントで強引にユーザ入力を、無かったかのように見せかける）
ありがとうございます。その方法が無難なようです。
ところが
>> > CheckBoxのチェックを入れたり、入れなかったりしたい
>> Valueプロパティを調べろ
こちらのほうはValueプロパティというのは無いようですが…
私ももうちょい調べてみようと思います。
0083デフォルトの名無しさん
2007/03/07(水) 23:43:57もしかしてVB.NETか？
それならCheckedプロパティ
（VB.NETほとんど触って無いから、もっといい方法があるかもしれん）
008480
2007/03/07(水) 23:52:31ありがとうございます。VB.NETです。
そして最大の私の勘違いはメソッドの使い方でした。
てっきり
CheckBox1.Checked(True)
のような記述をするもんだと思い込んでましたが
CheckBox1.Checked = True
のような記述をするんですね！！
Cのプログラマが、にわかVBしてたもんで疑いもしませんでした。
これで今日は落ち着いて寝られます。
どうもありがとうございました。
0085デフォルトの名無しさん
2007/03/08(木) 12:57:18プロパティだぜ・・・・
突っ込んでよかったのかな･･？
0086デフォルトの名無しさん
2007/03/08(木) 13:19:37てっきりメソッドだと思った、と勘違いしてたんじゃないの？
0087デフォルトの名無しさん
2007/03/08(木) 14:53:22javaスクリプトでいう『document.ondblclick = sample;』
をvbスクリプトで同じことってできますか？
0088デフォルトの名無しさん
2007/03/08(木) 15:15:24できます。
参考までにIEだとこんなカンジでしょうか。
Set ie=CreateObject("InternetExplorer.Application")
Set ie.Document.body.ondblclick=sample
0089デフォルトの名無しさん
2007/03/08(木) 15:22:050090デフォルトの名無しさん
2007/03/08(木) 15:23:39本当だ！できました。
確かに"sample"では不十分な書き方でした。
それなのに丁寧に教えて下さってありがとうございました。＆ごめんなさい
0091デフォルトの名無しさん
2007/03/08(木) 23:30:41formに設定した画像を動かすにはどうすればいいのでしょうか
form事態ではなく画像だけ動かしたいのです
0092デフォルトの名無しさん
2007/03/08(木) 23:56:13なにぶんひどい素人なもので、空気的にできればこちらのスレで知恵をお貸し願えないものかと思っています。
IE上の以下のスクリプトを埋め込んだページから
"sample.xls"というエクセルファイルの"test1"というマクロを動かそうとしていますが、
うまくいきませんでした。
<SCRIPT LANGUAGE = "VBScript">
<!--
Sub CallXlMacro
Dim xlapp
Set xlApp = GetObject(, "Excel.Application")
Call xlApp.Run("sample.xls!test1")
Set xlapp = Nothing
End Sub
-->
</SCRIPT>
とりあえずCallXLMacroプロシージャを以下のようにしてみたところ、動作しましたので
プロシージャが呼び出されていることは確認できました。
Sub CallXlMacro
Msgbox "test"
End Sub
また、「Dim xlapp」～「Set xlapp = Nothing」までを「test.vbs」として保存し、直接実行してみたところ、
test1マクロは呼び出されて動きました。（スクリプト使用時は、sample.xlsは必ず開いた状態で使用する前提でいます）
私の知識ではこれ以上進めなかったのですが、
問題はどの辺りにあるのかご教授願えませんでしょうか。
ちなみにtest1マクロそのものは、「Msgbox "testOK"」だけのものです。
よろしくお願いいたします。
0093デフォルトの名無しさん
2007/03/08(木) 23:58:230095デフォルトの名無しさん
2007/03/09(金) 00:43:22本当にくだらないと思っている事を人任せにするのか？（#＾ω＾ おっ？
それ以前にプログラムの話したいならコード晒せ
無ければコードかけるくらい詳細に調べて書け
あと>>1な
0096デフォルトの名無しさん
2007/03/09(金) 00:50:25Private pct As PictureBox
Private Sub Form_Load()
Dim i As Long
Set pct = Me.Controls.Add("VB.PictureBox", "pct")
With pct
Call .Move(0, 0, 32 * Screen.TwipsPerPixelX, 32 * Screen.TwipsPerPixelY)
.BackColor = 0
.ScaleMode = ScaleModeConstants.vbPixels
.AutoRedraw = True
End With
For i = 1 To 100
pct.PSet (Rnd * 32, Rnd * 32), Rnd * &HFFFFFF
Next
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Me.PaintPicture(pct.Image, X, Y)
End Sub
# formに、設定した画像を動かすにはどうすればいいのでしょうか
# form事態ではなく画像だけ動かしたいのです
こんなソースコードだけど、動いてるか？
009791
2007/03/09(金) 18:04:22例えば
ボタンが押されたときにイメージを動かすのなら
Private Sub Command1_Click()
Image1.Move (Image1.Left), (Image1.Top + 100)
End Sub
でできるのですが、
フォームに背景として表示されている画像の動かし方が知りたいのですが、どんなに調べても見つけれなくて困っています
0098デフォルトの名無しさん
2007/03/09(金) 18:14:51発想の転換で、フォームよりでかいイメージをフォームに貼り付けといて
それを背景とし、そのピクチャを動かすとかじゃ実現できないかな？
0099デフォルトの名無しさん
2007/03/09(金) 20:43:00PaintPicture使いなさい
0100デフォルトの名無しさん
2007/03/09(金) 21:53:23> 背景として表示されている
Formが自発的に背景として表示してるわけじゃないだろ？
もう少し具体的に状況を説明した上で議論なり質問なりしてくださいな
0102デフォルトの名無しさん
2007/03/11(日) 19:57:32フォーカスをあやつる方法がわからないので教えてください
0103デフォルトの名無しさん
2007/03/11(日) 20:08:51フォーカスやイベント等はVBやるときにいつもネックになるね。
フォームのコードイベント内でセットフォーカスメソッドを使えばいいけど
コントロールが表示される前にはフォーカスの指定ができないので
先にフォームをShowするか、あらかじめtab順序を設定するか、かな。
'先にShowする場合。
Private Sub Form_Load()
Me.Show
Me.Text1.SetFocus
End Sub
0104デフォルトの名無しさん
2007/03/11(日) 20:09:26・TabIndexを一番若くしておくとか
・無駄に一つだけタイマーを配置して、次のようにしてみるとか
Option Explicit
Private WithEvents Tmr As Timer
Private WithEvents Btn1 As CommandButton
Private WithEvents Btn2 As CommandButton
Private Sub Form_Load()
Set Tmr = Me.Controls.Add("VB.Timer", "Tmr")
Set Btn1 = Me.Controls.Add("VB.CommandButton", "Btn1")
Set Btn2 = Me.Controls.Add("VB.CommandButton", "Btn2")
With Tmr: .Interval = 1: .Enabled = True: End With
With Btn1: .Move 0, 0, 1000, 1000: .Caption = "Button1": .Visible = True: End With
With Btn2: .Move 0, 1000, 1000, 1000: .Caption = "Button2": .Visible = True: End With
End Sub
Private Sub Tmr_Timer()
Tmr.Enabled = False
'Call Btn1.SetFocus 'Button1にフォーカス
Call Btn2.SetFocus 'Button2にフォーカス
End Sub
0106103
2007/03/11(日) 20:54:17tab順はお互い「やっぱりな」と思うよね。でもタイマーは意外だった。
悪い意味じゃなくて、ちょっと興味があった。
いつもはイベントドリブンのように使ってるの？それとも、思いつき？
0107デフォルトの名無しさん
2007/03/11(日) 20:59:31イベントとは呼び出し手続き上で、ワンショットなイベントを作りたいときによくやっている
イベントプロシージャの再帰呼び出しが怖いときなんか特に
0109デフォルトの名無しさん
2007/03/11(日) 21:07:02>>107
> イベントとは呼び出し手続き上で、
# 別の呼び出し手続き上で、
>>108
すまんね
0110デフォルトの名無しさん
2007/03/12(月) 09:17:26なんかいいサンプルないですか？
0111デフォルトの名無しさん
2007/03/12(月) 10:09:02でググったらそれらしいのがポツポツあるけど
0112デフォルトの名無しさん
2007/03/12(月) 11:00:56ＶＢ６です。スプレッドを使っています
スプレッドの行固定したいのと、行をダブルクリックしたときのイベントのとりかた教えてください
イベントとったあと、ダイアログも表示さしたいのですが。よろしくお願いします
0113デフォルトの名無しさん
2007/03/12(月) 22:21:31エクセルコンポーネントで読み込む
0114デフォルトの名無しさん
2007/03/12(月) 22:22:36ｍｊｄ？
0115デフォルトの名無しさん
2007/03/12(月) 22:55:14グレープシティのやつね。
手元に環境がないからわからないけど、インストールした
ディレクトリにサンプルソースが付いてなかったっけ？
0116デフォルトの名無しさん
2007/03/15(木) 20:07:35の* 256ってどういう意味なんですか？
0117デフォルトの名無しさん
2007/03/15(木) 20:44:44仮に
Dim Num As String * 1
とした場合はNumには1バイト以上文字が代入できません。
0118デフォルトの名無しさん
2007/03/15(木) 21:04:57文字長○
0119デフォルトの名無しさん
2007/03/15(木) 21:22:33え？バイトの意味解ってる？
8ビット分の記憶容量という意味だけど。
文字長って意味解ってる？？
0120デフォルトの名無しさん
2007/03/15(木) 21:28:17MsgBox LenB(Num)
0122デフォルトの名無しさん
2007/03/15(木) 21:35:51なんでお前のようなバカが一丁前に答えようとするかね？
VBでバイトが知りたきゃ、こうだろ・・・・。
Dim Num As String * 256
MsgBox LenB(StrConv(Num, vbFromUnicode))
0123デフォルトの名無しさん
2007/03/15(木) 21:43:29それは格納されている文字の容量であって
VBが確保した変数の容量ではない
0124デフォルトの名無しさん
2007/03/15(木) 22:00:30Unicodeって言葉知っている？
そしてそれ (UTF-16)が32ビットVBに採用されていることを知っている？
0125デフォルトの名無しさん
2007/03/15(木) 22:01:220126デフォルトの名無しさん
2007/03/15(木) 22:09:52ひらがなって２バイトだよね？*1にも"あ"が入るんだけど
0127デフォルトの名無しさん
2007/03/15(木) 22:23:11調べ方教えてくれてありがとう。
0128デフォルトの名無しさん
2007/03/15(木) 22:25:12だから、vbFromなんだろ。Ｆ、Ｒ、Ｏ、Ｍ。
>>126
VBがメモリを食いつぶさないように気をつかってるんだろ。
お前のような奴のために。
0129デフォルトの名無しさん
2007/03/15(木) 22:45:27バカめ。
Dim Num AS string * 1
'1を返す。
MsgBox LenB(StrConv(Num, vbFromUnicode))
Num = "あ"
'2を返す。
MsgBox LenB(StrConv(Num, vbFromUnicode))
VBがお前のようなバカのために
メモリを食いつぶさないように気をつかってるの。
なんでお前のようなバカが一丁前に答えようとするかね？
0130デフォルトの名無しさん
2007/03/15(木) 22:58:09この意味がさっぱり分からん。
Sting*1が収納する文字によって8bitだったり16bitだったり
するとでも言いたいのだろうか？
0131デフォルトの名無しさん
2007/03/15(木) 23:07:470132デフォルトの名無しさん
2007/03/15(木) 23:17:53*１は１文字制限っていう決め事を言ってるだけなんだから
ってことか？どんどんわからなくなるｗ
0133デフォルトの名無しさん
2007/03/15(木) 23:20:450134デフォルトの名無しさん
2007/03/16(金) 00:02:59は格納バイトを示すんではなく
格納文字数を示してるんだろ
0135デフォルトの名無しさん
2007/03/16(金) 00:17:54発端となったのは>>116。
String * 256の意味を聞いている以上、それにStrConvで変換を施した上でどうなるかは関係ない（別問題）。
256文字分の固定長文字列を意味すると答えれば十分かつそれ以上の意味は無い。
中にどんな文字列が格納されていようと固定長なのだから、
116のNumはString * 256だから常に256 * 2で512バイトのメモリを使う。
それを示すために120はLenB(Num)を持ち出したのだろう。
>>128でFromと書いているが、LenB(StrConv(Num, vbFromUnicode))では、
中身をマルチバイト文字列（日本語環境のWindowsではShift_JISことCP932）に変換する。
これでは本来のNumの大きさが見えない。単にNumの内容をマルチバイト文字列で表したときのバイト数に過ぎなくなる。
0136デフォルトの名無しさん
2007/03/16(金) 00:28:20まあ朽木は彫るべからず糞土の牆は塗るべからずって言うしな
耳の穴も口の穴も開いてるだけの木偶の坊には上出来の回答だよ
よくがんばった
0137デフォルトの名無しさん
2007/03/16(金) 01:05:02半角数字の１も文字の"あ"も１６ビットなの？
0138デフォルトの名無しさん
2007/03/16(金) 01:06:33そうだ
0139デフォルトの名無しさん
2007/03/16(金) 01:17:17文字は文字だ
文字コードを格納しているんじゃない、文字を格納しているんだ
昔を引きずるのもいいけど、ちゃんと前提条件示してからにしろよ
0140デフォルトの名無しさん
2007/03/16(金) 01:17:210141デフォルトの名無しさん
2007/03/16(金) 01:18:150142デフォルトの名無しさん
2007/03/16(金) 01:21:07それは正にStrConvでvbFromUnicodeをやった状態。
NT系のメモ帳は保存時に文字コードを選べるぞ。
Unicodeを選べばみんな1文字2バイト（とも限らないが）。
0143デフォルトの名無しさん
2007/03/16(金) 01:23:49少し眠ってもいいですよ＾＾；；；；；；
0144デフォルトの名無しさん
2007/03/16(金) 01:28:310145デフォルトの名無しさん
2007/03/16(金) 01:29:210146デフォルトの名無しさん
2007/03/16(金) 01:33:33若干スレ違いとは思いますが、質問させてください。
ページを読み込んだ後、2秒後に"testOK"を表示させる為に
Dim lngWait
TestSetTime()
Sub TestSetTime()
If lngWait < 2000 then
setTimeout "TestSetTime()", 1000
lngWait = lngWait + 1000
Else
Msgbox "testOK"
End if
End Sub
以上のようなスクリプトを書いて保存し
CreateElement("script")でつくったスクリプトタグの
srcに指定し、appendChildで挿入したところ、
ページ表示後、2秒後に"testOK"のメッセージを出すことができました。
次に、これを直接スクリプトタグに書いたページを読み込んだところ
1度目の 「lngWait = lngWait + 1000」までは動くのですが
TestSetTime()が再帰呼び出しされず、"testOK"が表示されません。
私の乏しい知識では理由がわからないのですが、
おわかりになる方、是非ご教授下さい。よろしくお願いします。
0147デフォルトの名無しさん
2007/03/16(金) 01:34:06Dim aaaa as String * 2
と宣言した場合
aaaa = "1234"
と格納した場合、メモリ上には
" 1 2 3 4"
バイナリじゃ
20 31 20 32 20 33 20 34
と格納されるんじゃないの？
0148147
2007/03/16(金) 01:35:00じゃなくて
00 31 00 32 00 33 00 34
かな
0149デフォルトの名無しさん
2007/03/16(金) 01:37:030150デフォルトの名無しさん
2007/03/16(金) 01:38:440151デフォルトの名無しさん
2007/03/16(金) 01:40:22内部表現を問題にするなら”本当の仕様書”を引っ張り上げないといけないから面倒
てか俺は知らない
で、俺の知ってる観測方法は byte() に代入か、StrPtr()で”文字列のポインタ”を拾ってそこからメモリを見る位だ
この適当な観測から>>148は腐ってることが分かった
0152デフォルトの名無しさん
2007/03/16(金) 01:42:13とりあえずコピペで状況再現できるの作ってみて？
0153デフォルトの名無しさん
2007/03/16(金) 01:45:40こいつがこのスレで一番レベルが高そうだな
0154デフォルトの名無しさん
2007/03/16(金) 02:56:23すまん、* 2 じゃなく * 4 だった
>>150
そうなるはず
>>151
実際検証して結果を出してから腐ってるかどうか判別したほうがいいんじゃない？
憶測だけで腐ってるか判断するんだね
0155デフォルトの名無しさん
2007/03/16(金) 03:54:090156デフォルトの名無しさん
2007/03/16(金) 10:49:53乙
>>155
なんでしょう？
0157デフォルトの名無しさん
2007/03/16(金) 11:25:18検証してやったよ。 APIのlstrlenを使って。
Dim s As String * 3,ss As String * 3
MsgBox lstrlen(s) :MsgBox lstrlen(ss)
この時点で変数sが初期化されていないので結果は0。
つまり、宣言時は何も確保されていない。
次に変数を初期化してバイト数を計測
s = vbNullString: ss = vbNullString
MsgBox lstrlen(s): MsgBox lstrlen(ss)
結果は共に3バイトを返す。よって、あの宣言は3バイトという意味。
最後に片方にVB規定のユニコードで全角と半角で3文字代入
s = "あいう": ss = "123"
MsgBox lstrlen(s): MsgBox lstrlen(ss)
結果はsが6バイト。ssが3バイト。
VBは変数に代入時に無言でコンバート処理を行うか、メモリ領域を拡張しているか
しているんじゃないの。
>>155
16進数と明示的に宣言している。
0158デフォルトの名無しさん
2007/03/16(金) 11:38:03お前DLL呼び出すときに byval string が変換されるの知ってるか？
0159デフォルトの名無しさん
2007/03/16(金) 11:41:47前者はCやJavaなどの１６進数表現による整数リテラル
後者はVBやBASICなどのそれ
0160デフォルトの名無しさん
2007/03/16(金) 11:54:39valでもrefでもanyでも宣言していいから、説明しろ。
0161デフォルトの名無しさん
2007/03/16(金) 12:00:500162デフォルトの名無しさん
2007/03/16(金) 12:03:270163デフォルトの名無しさん
2007/03/16(金) 12:08:410164デフォルトの名無しさん
2007/03/16(金) 12:19:18Shift-JISで漢字交じりの固定長レコードを読み書きするのにえらく苦労した記憶があるな。
0165デフォルトの名無しさん
2007/03/16(金) 13:01:46文字を扱うAPIはUnicode版 (W)とマルチバイト版 (A)がある。
VBが無言でコンバートするのはDeclareで宣言した関数を呼び出すとき。
String型の引数・戻り値をマルチバイト文字列へ変換してから関数を呼び、その後再びUnicode文字列へ戻している。
それもあって普通はAliasを使ってA版のAPIを使うが、String以外なら変換はされないので
たとえばこうすると直接マルチバイト文字列へ変換せずにAPIへ文字列を渡せる。
Declare Function lstrlenA Lib "kernel32" (ByVal s As String) As Long
Declare Function lstrlenW Lib "kernel32" (ByVal s As Long) As Long
Sub Test()
Dim s As String
s = "あいうえおABC"
MsgBox lstrlenA(s) & " " & lstrlenW(StrPtr(s))
End Sub
しかし、そもそもlstrlenはメモリの大きさではなく、Cの文字列の長さを返す関数。
Cだと文字列の長さとは、ヌル文字の手前までの要素数。
（VBの文字列も実はヌル文字が後ろに付いている）
上のコードでs = "あA" & Chr$(0) & "いB"などととすれば違いがわかると思う。
0166デフォルトの名無しさん
2007/03/16(金) 13:04:08APIを使ってStringの中身をByte配列を写し取ってみればわかる。
Declare Sub MoveMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Sub Test()
Dim s As String * 1
Dim b(1) As Byte
s = vbNullString
Call MoveMemory(b(0), s, 2)
MsgBox Hex$(b(0)) & " " & Hex$(b(1))
End Sub
0167デフォルトの名無しさん
2007/03/16(金) 13:16:15すまんな、Stringに付いて触れているのがこれくらいしか見付からなかった。
http://support.microsoft.com/kb/187912/en-us
MORE INFORMATIONのところをよく読め。URLのen-usをjaすれば日本語機械翻訳になる。
0168デフォルトの名無しさん
2007/03/16(金) 13:22:34イメージの前面に表示され、イメージが隠れてしまいます。
イメージのvisibleをFalse、Trueにしたりイメージを移動させると
イメージは表示されるのですが、イメージがあった箇所のピクチャーボックスに表示した部分が欠けてしまいます
イメージが隠れないようにピクチャーボックスに表示させたいのですが、どうすればいいいでしょうか
0169デフォルトの名無しさん
2007/03/16(金) 15:08:45疑問点があるので逆質問
・ピクチャーボックスの中にイメージを配置とは？
・ピクチャーボックスに何か表示させるとは？
・イメージが隠れてしまうとは、背景食が見える状態？それ以外？
日本語で状況説明が難しいなら、再現できる環境とソースコードうｐして
0170デフォルトの名無しさん
2007/03/16(金) 15:47:50イメージとピクチャーボックスを別々にフォーム上に配置すると
イメージとピクチャーボックスが重なった部分でイメージがピクチャーボックスの下に隠れてしまうので
イメージを切り取ってピクチャーボックス上で貼り付けました
・ピクチャーボックスに何か表示させるとは？
今はクリックしたときに線を描画したり塗りつぶした四角を描画したりしているのですが
それでイメージが隠れてしまいます
・イメージが隠れてしまうとは、背景食が見える状態？それ以外？
描画した線などで線の部分のイメージが見えなくなるという意味です
描画した線
イメージ
ピクチャーボックスの背景
上からこういう感じです
0171デフォルトの名無しさん
2007/03/16(金) 20:50:33レベルが高すぎて逆に迷惑
このスレは円周率も四捨五入して教えるところ
0172デフォルトの名無しさん
2007/03/16(金) 20:57:45言ってる内容はわからなくてもプログラミングがなんだか楽しくなってくる効果はある、かな？ｗ
0173デフォルトの名無しさん
2007/03/16(金) 22:10:59今度、プログラムのあるディレクトリに「tips」というディレクトリを作ってし、そこに
ｈｔｍｌ文書を入れ、プログラムから呼び出したいと思っていて、そのようなインスト
ールプログラムを作成するのに試行錯誤しています。
ディストリビューション ウィザードで、プログラムと同じディレクトリに、別のディレ
クトリを作って、その中にｈｔｍｌ文書を納めるようなインストールプログラムはでき
るのでしょうか。
ただ単に「add」でｈｔｍｌ文書を加えると、ディレクトリができないし…・。
すみません。どなたか、アドバイスをお願いできますか。
0174デフォルトの名無しさん
2007/03/17(土) 01:35:59[email protected],$(AppPath)\tips,,,3/16/07 3:17:37 AM,845,0.0.0.0
のようにAppPath)の後ろにディレクトリ名を入れると出来ることがわかりました。
0175デフォルトの名無しさん
2007/03/17(土) 22:25:19'何が間違ってるのでしょうか？
Dim inet1 As New Inet
---------------------------
Microsoft Visual Basic
---------------------------
ｺﾝﾊﾟｲﾙ ｴﾗｰ:
New ｷｰﾜｰﾄﾞの使用法が不正です。
---------------------------
OK ヘルプ
---------------------------
'VB6SP6です
0176デフォルトの名無しさん
2007/03/17(土) 22:34:15参照設定した？
0177デフォルトの名無しさん
2007/03/17(土) 22:44:31コンポーネントに追加していましたが
MSINET.OCXを参照設定するように変更したところエラーがでなくなりました
ありがとうございます
0178デフォルトの名無しさん
2007/03/18(日) 02:45:41でも、しっかりした説明のおかげで不毛な罵り愛が終了しました。
GJだと思います。
0179デフォルトの名無しさん
2007/03/18(日) 11:52:42Text1.ReadOnly = Trueとしてもうまくいきません
0180デフォルトの名無しさん
2007/03/18(日) 11:56:07つ http://pc11.2ch.net/test/read.cgi/tech/1173061176/
0182デフォルトの名無しさん
2007/03/18(日) 12:02:12・.NETにしか見えない
・「うまくいかない」ってだけ言うな
ユーザからの書き換えを不能にするのは Locked プロパティ
プログラム上から書き換えを不能にするのは、ロジックでカバー
0183デフォルトの名無しさん
2007/03/18(日) 12:10:18書き換え不能になるのを確認できました
間違えてVB.NETの資料をみていたので頓珍漢なことを言ってしまいました
0184デフォルトの名無しさん
2007/03/18(日) 22:09:57コマンドプロンプトでのプログラミングについて、
最近興味わいたのだが、いい板しってるかい？
0185デフォルトの名無しさん
2007/03/18(日) 22:29:01DOSでプログラミングはスレ違いだから要注意な。
あそこは16bitの本物のDOS用。せいぜいDOS互換ボックスまでだ。
0186デフォルトの名無しさん
2007/03/19(月) 22:23:23CreatePipeの使い方が調べてもよくわかりません。
よいサンプルがあるページありませんでしょうか？
0187デフォルトの名無しさん
2007/03/19(月) 23:36:59ざっくりと機能とかは知ってても使ったことがないや(；´∀｀)
0188デフォルトの名無しさん
2007/03/20(火) 00:06:35これくらいしかひっかかってこないな
0189デフォルトの名無しさん
2007/03/20(火) 20:43:290190186
2007/03/20(火) 23:58:44なんとか思った通りに処理できました
ありがとうございました
0191デフォルトの名無しさん
2007/03/22(木) 13:33:21VB6.0なのですが、あるボタンのクリックイベントで、別のボタンのクリックイベントも
発生させたいのですが、どのようにしたら良いでしょうか？
C++BuilderのClick()メソッドみたいやつです。
よろしくおながいします。
0192デフォルトの名無しさん
2007/03/22(木) 14:29:17たとえばCommand1というボタンがあるとしたら、呼びたい箇所で
Call Command1_Click
とやればおｋ。
0193デフォルトの名無しさん
2007/03/22(木) 14:44:09ありがとうございます。
0194デフォルトの名無しさん
2007/03/22(木) 21:07:010195デフォルトの名無しさん
2007/03/22(木) 23:02:46プログラ素人です
目標は精密機械（ex．デジカメなど）のプログラムを
理解できるレベルになりたいです
また、プログラミングの知識も
上辺だけでなく基礎がしっかりとしたものを得たいです
PC環境はwindowsヴィスタです
どの言語から学んでいくべきですかね？
よろしくお願いします
0196デフォルトの名無しさん
2007/03/22(木) 23:04:06ごばっくです
0197デフォルトの名無しさん
2007/03/23(金) 00:18:11いやいや、ここはかっこつけて
Command1.Value = True
とやるもんですよ。
0198デフォルトの名無しさん
2007/03/23(金) 00:38:440199デフォルトの名無しさん
2007/03/23(金) 02:24:09ファイルが見つかりません。'C:\WINDOWS\system32\ieframe.dll\1'
とエラーがでるのですがどうしてですか？
0200199
2007/03/23(金) 03:51:510201デフォルトの名無しさん
2007/03/23(金) 12:41:21最大化の状態で表示させたいのですが・・
まったくもって検討がつきません。
どなたか、わかりませんか？
0202デフォルトの名無しさん
2007/03/23(金) 15:25:420203デフォルトの名無しさん
2007/03/23(金) 21:43:30マキシマーイズｗｗｗｗ
0204デフォルトの名無しさん
2007/03/24(土) 14:59:37プログラムを丸ごと違うフォルダに移動させ起動させたら
スタートアップが必要だとエラーがでて起動できず、
元のあった場所に移動させても同じエラーがでて起動できずフォルダの中身を見たら
FORM1だけ内容が変わっており起動できなくなっていました
FORM1の内容がかなり前の内容に変わっていたのでもしかしたら移動する際に前にバックアップに保存しておいたものの上にFORM1だけは上書きせずに他は上書きしてしまったのかもしれません
この消えてしまったFORM1をなんとか復元することはできないでしょうか？
0205デフォルトの名無しさん
2007/03/24(土) 17:33:15すでにHDDに存在しない場合復元ソフト使うくらいしか…・
というか、バージョン管理ソフト使えってｗｗｗｗ
VSSとかバージョン戻せたりするし
0206デフォルトの名無しさん
2007/03/24(土) 18:17:13管理ソフトとかあるんですねこれから気をつけます
0207205
2007/03/24(土) 21:44:43一か所だけじゃないけどそれで治った時もあった
バックアップとってやってみるのも手だね
0208デフォルトの名無しさん
2007/03/25(日) 21:04:57rename.vbs にmp3ファイルをドロップすると、VBSファイルと同一フォルダ
のファイル数を数えて、ドロップしたファイルの名前を変更してVBSファイルと
同一フォルダにコピーするようなスクリプトを作りたいのですが、なかなか上手くいきません。
上記スクリプトをどのようにすればよいでしょうか？
分かる方いらっしゃいましたら教えてください。
0209208
2007/03/26(月) 00:30:07解決しました。どうも失礼しました。
0210デフォルトの名無しさん
2007/03/26(月) 19:17:470211デフォルトの名無しさん
2007/03/26(月) 19:58:040212デフォルトの名無しさん
2007/03/26(月) 21:28:44今IDEから実行してるのですがどうすれば止まりますか？
ソースを失いたくないです＞＜
0213デフォルトの名無しさん
2007/03/26(月) 21:29:490214デフォルトの名無しさん
2007/03/26(月) 21:32:55本当にありがとうございました
0215デフォルトの名無しさん
2007/03/26(月) 21:38:38おまぃ鬼だなｗｗｗｗ
CTRL+BREAK
これでデバッグのステップ画面になる
>>214
メッセージボックス出てる時に押せば、そのメッセージ閉じたときにステップになる
0216デフォルトの名無しさん
2007/03/26(月) 22:21:410218デフォルトの名無しさん
2007/03/26(月) 22:27:17いい事を聞いた
0219デフォルトの名無しさん
2007/03/26(月) 23:00:260220デフォルトの名無しさん
2007/03/26(月) 23:00:55みんなの役に立てて少しだけうれしいよｗｗｗ
0221デフォルトの名無しさん
2007/03/26(月) 23:08:160222デフォルトの名無しさん
2007/03/26(月) 23:11:20この板は質問しにくいスレが多いから集まるんだろうな
0223デフォルトの名無しさん
2007/03/26(月) 23:14:03あんまそうは思わないが・・・
確かにエスパーは叩かれるが
0224デフォルトの名無しさん
2007/03/27(火) 09:11:16のbreakキーってのが分からんとか言ったら叩かれますか？
0225デフォルトの名無しさん
2007/03/27(火) 09:18:050226デフォルトの名無しさん
2007/03/27(火) 09:46:23キーの右上あたり捜してみ？
プリントスクリーン付近にあるから
PasuseｔかBreakとか書いてるぞ
0227デフォルトの名無しさん
2007/03/27(火) 11:31:00こんなキー使わんからパソコン歴結構あるのに分からんかたヨ…
0228デフォルトの名無しさん
2007/03/27(火) 16:57:28Windows Media Playerをフォームに貼り付けたのですがどうやって指定したファイルを開き動画を再生させるかわかりません。
宜しくお願い致します。
0229デフォルトの名無しさん
2007/03/27(火) 17:32:47使ったことないけど確かSDK公開されてるんじゃなかったけ？
マイクロソフトのMSDNかどっかに
0230デフォルトの名無しさん
2007/03/27(火) 18:00:410231デフォルトの名無しさん
2007/04/12(木) 23:56:29ｘ ＋ ｙ ＝
はできるんですが
ｘ ＋ ｙ ＋ ｚ ＝
（ｘ ＋ ｙ） ＋ ｘ
みたいな感じでかけばいいんですか？
イメージはなんとなくわかるんですが説明お願いします
くだらない質問ですいません
ＶＢ６．０です
0232デフォルトの名無しさん
2007/04/13(金) 00:15:170233デフォルトの名無しさん
2007/04/13(金) 03:03:33ttp://penhagi.com/access/tips/50_dentaku2.htm
0234デフォルトの名無しさん
2007/04/13(金) 20:48:18全くの初心者で何も分かりません。
初心者向けのヒントください。お願いします。
0235デフォルトの名無しさん
2007/04/13(金) 20:59:42歩ける状態で５ｋ円くらいあるなら本屋へ直行
それか教官に聞く
0236デフォルトの名無しさん
2007/04/15(日) 03:03:56これとか参考になるよ。
http://www.mitene.or.jp/~sugisita/vb6_grph.html
0237デフォルトの名無しさん
2007/04/16(月) 16:35:09VB6.0なのですが、
Formのどのコンポーネントにフォーカスがあったとしても、ただ一箇所に
あるキーダウンイベントを取得することできるでしょうか？
どのコンポーネントにフォーカスがあっても
CTRL+Zのイベントを拾いたいのです。
0238デフォルトの名無しさん
2007/04/16(月) 17:00:23隠しメニューつくったら どうだろう 誤ってctrl+Vにｼｮｰﾄｶｯﾄ割振ってしまったことがある
Zも元に戻すがデフォだよね
0239237
2007/04/16(月) 17:09:36メインフォームにKeyPreviewというプロパティがあり、これをtrueにすると
メインフォームのKeyDownでイベントを拾うことができました。
次に、というわけではないのですが、
もし知っていたら教えてほしいのですが、
同様にMouseDownイベントを拾うことはできるでしょうか？
0240デフォルトの名無しさん
2007/04/16(月) 17:12:47やった事ないけど全てのコントロールのイベントに一個そういう処理用のプロシージャ呼ぶようにするとか？
流石にコントロールは出来ないんじゃないかな･･･と VB素人な折れが言ってみる
0241237
2007/04/16(月) 17:22:42ありがとうございます。
コンポーネント全部にイベントを追加するのは厳しいフォーム設計になって
います…。また、今後、私以外が保守するときに余計な特殊仕様みたいにな
ってしまいそうな気もします。
ＶＢ素人が保守してる現状がそもそもどうかと思いますが…。
シンプルになる方法を模索したいと思います。
0242240
2007/04/16(月) 17:23:340243デフォルトの名無しさん
2007/04/16(月) 17:36:080244デフォルトの名無しさん
2007/04/16(月) 18:02:45Xpの調子が悪くなって、Vistaは購入することが決まっているので、
乗り換えようかと思って…。
0245デフォルトの名無しさん
2007/04/17(火) 10:09:14一つクラスを作成し、コントロールの型別にWithEventsで定義させて
そのクラス内でイベントの処理をするとかは、どうでしょうか。
クラスでの宣言はコントロール数分ではなく、使用している型数分で済みます。
0246デフォルトの名無しさん
2007/04/17(火) 10:23:230247デフォルトの名無しさん
2007/04/17(火) 10:29:36型指定されたやつ
$ だと明示的に文字列という宣言
詳しくはMSDNで見て
型宣言文字とかで出てきたと思う
あと、それをつける理由は例えばStringとかMSDNで調べてみて
実際にStringがどういう風になっているかがわかるから
説明ヘタでスマン
0248241
2007/04/17(火) 10:30:53ありがとうございます。
でも私のスキルが…orz
その文章の単語をキーワードにして調べながらやってみたいと思います。
また質問するかも知れませんがそのときはよろしくお願いします…。
0249デフォルトの名無しさん
2007/04/17(火) 10:33:00今、手元にＭＳＤＮがない環境でしたので
質問させていただきました
でも、なんとなくわかりました
ありがとうございました＾＾
0250デフォルトの名無しさん
2007/04/19(木) 18:35:55Private Sub Form_Deactivate()
MsgBox "hoge"
End Sub
や
Private Sub Form_LostFocus()
MsgBox "hoge"
End Sub
ってやっても、hogeが出てくれないですし、アプリケーションの終了の仕方もわかりません。
どうか教えてください。VB６．０です。
0251250
2007/04/19(木) 19:06:14Unload Me
でした。
これをウインドウが非アクティブになったときに実行したいのですが、
Private Sub Form_Deactivate()
Unload Me
End Sub
で、うまくいきません。
0252デフォルトの名無しさん
2007/04/19(木) 19:10:04そのタイミングでLostFocusイベントが発生するが。
それとは違うの？
0253デフォルトの名無しさん
2007/04/19(木) 19:21:31フォームは一つなんです。単体で。
0254デフォルトの名無しさん
2007/04/19(木) 19:26:34それともボタンコントロールも知らんのか？
0255デフォルトの名無しさん
2007/04/19(木) 19:30:180256デフォルトの名無しさん
2007/04/19(木) 19:31:01終了させるには、他のアプリがアクティブになったときや、自作アプリが非アクティブになったときに自動で終了してくれないと
面倒なので。
ツールチップみたいなものです。
0257デフォルトの名無しさん
2007/04/19(木) 19:44:300258デフォルトの名無しさん
2007/04/19(木) 19:50:07１．プログラムが起動したらAPIで現在アクティブなウィンドウハンドルを取得
２．で、そのアクティブなウィンドウハンドルを保持して
そのフォームの中の処理でWindowsで現在アクティブなウィンドウを常にチェック
３．比較して起動時と異なっていたらアンロード
２はフック使ったほうがスマートかもしれんが
なんとなくこんなの思いついてみたというのをかいてみた
0259デフォルトの名無しさん
2007/04/19(木) 19:50:12Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Sub Timer1_Timer()
If Me.hWnd <> GetActiveWindow Then Call Unload(Me)
End Sub
これ以外にも方法はあるんじゃないかと思うが、
俺的にはこれくらいしか分からないや、ごめんよ。許して。
0260259
2007/04/19(木) 19:54:210261デフォルトの名無しさん
2007/04/19(木) 19:57:49俺も思ったｗ
というか、ちょっとサブクラス化してメッセージ受け取ったら出来るような気がしたんで
ちょっと書いてみる
VBあんま使った事ないから出来なくても怒るなよｗ
0262デフォルトの名無しさん
2007/04/19(木) 20:00:06サブクラス化でも可能だけどお勧めしない。
無限ループ(上の例ではタイマー)で都度自分の状態を確認する手法(イベントドリブン)の方が
ＶＢでサブクラス化するより余程いいと思う。
0263デフォルトの名無しさん
2007/04/19(木) 20:00:36思ったとおりの動きが出来ました。
みなさん、ありがとうございました。
0264デフォルトの名無しさん
2007/04/19(木) 20:06:450265デフォルトの名無しさん
2007/04/19(木) 20:13:050266デフォルトの名無しさん
2007/04/19(木) 20:13:36VB6の動きをムリヤリ変えてるようなもんだしね 俺もそう思って>>258かいたんだ
まぁ、そのタイマーとかの監視が嫌だったらって感じだったんだよ
>>263
おめでとｗ
とりあえずフックでも出来たけどやっぱデバッグで止めたらIDE落ちるからめんどくせぇwwww
0267258
2007/04/19(木) 20:21:18あれ、俺がいる･･･？ｗ
0268259
2007/04/19(木) 20:23:44きっとそれはﾄﾞｯﾍﾟﾙだな。
俺のﾄﾞｯﾍﾟﾙはいないみたいだ。安心安心♪
0269デフォルトの名無しさん
2007/04/24(火) 09:35:530270デフォルトの名無しさん
2007/04/24(火) 10:29:50コノあたりかな つ SECURITY_ATTRIBUTES
0271デフォルトの名無しさん
2007/04/24(火) 10:54:140272デフォルトの名無しさん
2007/04/24(火) 11:10:32CreateFileとかCreateDirectoryって、
ファイルやフォルダを作成した上で、
それのセキュリティを同時に設定しようってやつだよね。
それじゃないんだよなぁ。
まぁ要望は「もし出来たら」ってことだから、
「出来ません」って言って終わりにしちゃおっかな。。
単なるオプション機能だしｗ
0273デフォルトの名無しさん
2007/04/24(火) 15:06:51VB6.0なのですが、
Dim picture As Picture
picture = LoadPicture("HOGE.GIF")
とやると画像の読み込みは成功するのですが、
WidthとHeightを見てみると、ピクセル数ではなく何かとんでもない数値が
入っていました。
調べてみると、ここは0.01mm単位でのポイント数になっており、
ScaleX メソッドおよび ScaleY メソッドを使って必要なスケールに変換する
らしいのですが、ちょっと意味が分かりません。
単純にピクセルに変換できる方法などをご存知でしたら教えてもらえないで
しょうか。宜しくお願いします。
0274273
2007/04/24(火) 15:32:50picture_width = ScaleX(picture.Width, 8, 3)
picture_height = ScaleY(picture.Height, 8, 3)
これでピクセル数を算出することができました。
どうもお騒がせしました。
0275デフォルトの名無しさん
2007/04/24(火) 19:33:25NTFSのアクセス権限なら、
SetNamedSecurityInfoのあたりだったとおもう。
もものすごく面倒くさかった記憶しかない。
ファイル共有の権限のほうなら、net shareを叩いて
弄った方が早いと思うけど。
0276デフォルトの名無しさん
2007/04/25(水) 11:31:17ファイル共有の方でござる('A`)
0277デフォルトの名無しさん
2007/04/30(月) 03:41:54ＭＩＤＩファイルを再生することは
できるのでしょうか？
リソースにＭＩＤＩファイルを埋め込むことは
できたのですが、そこからがわかりません。
できれば他のＯＣＸやＤｉｒｅｃｔＸはつかわないで
ＡＰＩなどだけでおこないたいです。
0278デフォルトの名無しさん
2007/04/30(月) 18:44:44ほんと初心者ですみません
0279デフォルトの名無しさん
2007/04/30(月) 18:53:41やったことないけど、
リソースからバイナリデータとして受け取って、一時ファイルに書き出してから再生させてみては？
>>278
もっと説明ちょーだい
0280２７８
2007/04/30(月) 20:41:06長い分をかくときに二行にわけたいだけです
改行です
0281デフォルトの名無しさん
2007/04/30(月) 20:59:37それなら
a = _
1 _
+ _
2
みたいな
名称忘れた
0282２７８
2007/04/30(月) 22:31:42ありがとうございます
0283デフォルトの名無しさん
2007/05/02(水) 17:02:04半角スペースにされるとちと困るので。
0284デフォルトの名無しさん
2007/05/02(水) 17:52:150285デフォルトの名無しさん
2007/05/02(水) 18:22:06ここで設定出来ないなら諦めた方が早くね？
別にタブ文字をオンコードしなきゃいけないってことはないだろーに。
タブ文字の出力はvbTabで出来るからな。
塚、あれか。
VBｴﾃﾞｨﾀって確かUnicodeだよな。
Unicodeでタブ文字表示しようとすると中黒になるんじゃなかったか？
0286デフォルトの名無しさん
2007/05/02(水) 18:41:25同じ部署のやつがタブｺﾋﾟﾍﾟしたらスペースになるってうるさいだけだから放置しとくよ。
thx
0287デフォルトの名無しさん
2007/05/03(木) 15:39:580288デフォルトの名無しさん
2007/05/03(木) 19:22:220289デフォルトの名無しさん
2007/05/03(木) 19:23:190290デフォルトの名無しさん
2007/05/03(木) 19:49:36文法で躓くことはないと思う。
0291デフォルトの名無しさん
2007/05/04(金) 21:16:57今ファイルの移動・削除をするプログラムを書いています。
通常のファイル移動はNameステートメントを使い、削除はSHFileOperationでゴミ箱に捨ててます。
移動の際はログファイルを吐いてUndo可能にしているのですがゴミ箱に捨てたファイルの
Undoのやり方が分かりません。
どのようにコーディングしたら良いのでしょうか？
0292デフォルトの名無しさん
2007/05/04(金) 22:48:18アプリでWindowsのUndo機能をそのまま実装するのは難しいと思います。
ファイルの移動でundo機能のためにログを吐いてるのと同じように、
そのアプリ用にtempフォルダを作成し、ごみ箱に捨てるタイミングで
tempにファイルを移動、その情報をログに保存しておけば、ファイルの
復元を疑似的には実装出来ると思います。
0293デフォルトの名無しさん
2007/05/04(金) 23:40:35ちょっと調べてみましたが、意外に難しいというか、MSからの情報がないというか。
ttp://mtamaki.cocolog-nifty.com/blog/2005/01/post_f992.html
ttp://rararahp.cool.ne.jp/cgi-bin/lng/vc/vclng.cgi?print+200310/03100013.txt
あたりを参考にしてみてはいかがでしょうか。
0294291
2007/05/05(土) 00:09:35>ttp://mtamaki.cocolog-nifty.com/blog/2005/01/post_f992.html
>ttp://rararahp.cool.ne.jp/cgi-bin/lng/vc/vclng.cgi?print+200310/03100013.txt
参考になりました、なりましたけどう～んと唸ってしまいます
ゴミ箱を直接いじれるので仕方ない仕様なのかも
0295293
2007/05/05(土) 00:47:58Win32APIスレの連中ならもう少し真っ当な回答をしてくれるかも。
0296デフォルトの名無しさん
2007/05/05(土) 02:00:37folder.movehere folderitem
で駄目？
0297デフォルトの名無しさん
2007/05/05(土) 08:03:44ありがとうございます。実験はまだですがNameステートメントと違い自前のエラートラップを
減らせそうですね。ゴミ箱からのUndoに役に立つのかどうかはよく読み取れませんでした。
0298デフォルトの名無しさん
2007/05/05(土) 14:18:43やり直しをメニューでやってるのですが、Ctrl+YかCtrl+Shift+Zでやりたいなぁと
思ったのですが、ヘルプや設定を見てもそれっぽいのが無かったので。
0299デフォルトの名無しさん
2007/05/05(土) 15:02:51set folderitem=ゴミファイル
folderitem.invokeverb "元に戻す(&E)"
または>>296
set folder=戻し先
set folderitem=ゴミファイル
folder.movehere folderitem
0300デフォルトの名無しさん
2007/05/05(土) 20:10:40ファイルさえ特定できればその通りなんでしょうけど
http://mtamaki.cocolog-nifty.com/blog/2005/01/post_f992.html
の方法を使う場合XPと2K限定っぽいし、Vista持ってないから
分かりませぬが・・・
http://rararahp.cool.ne.jp/cgi-bin/lng/vc/vclng.cgi?print+200310/03100013.txt
こちらはExplorer同様直前の動作のUndoなわけで
0301デフォルトの名無しさん
2007/05/05(土) 20:17:420302デフォルトの名無しさん
2007/05/05(土) 20:50:00このFileはCloseさせて頂きます
0303デフォルトの名無しさん
2007/05/06(日) 22:14:31あと、日曜プログラマーならwsh/vbscriptがお勧め。
0304デフォルトの名無しさん
2007/05/08(火) 11:37:48新しいPCを購入。OSはXPです。
そこでVisual Studio 6.0 をインストールしようとすると、
「Microsoft Virtual Machine for Javaのインストールを行う画面」
にて再起動を促され、指示に従うと再起動後、また同じ画面になりインストールが進みません。
またこれをインストールしないと次ボタンが有効にならないため、インストールが進みません。
調べたところ、Microsoft Virtual Machine for Javaの提供終了と関係がありそうでしたが、結局インストール方法がみつかりませんでした。
どうすればよろしいでしょうか？
0305デフォルトの名無しさん
2007/05/08(火) 12:12:03インスコ中断して、事前にjavaVMを入れればそこで聞かれなくなるハズ。
0306デフォルトの名無しさん
2007/05/08(火) 13:35:03なるほど。そういえば今までのマシンでは聞かれたことがありませんでした。
最近のＰＣだとサポート終了確定のJavaVMはプレではいってないのはわかるが、
じゃあJavaVMいれてインスコしたあとJavaVMをアンインスコでやってみるよ。
0307デフォルトの名無しさん
2007/05/09(水) 17:30:58VB6.0なのですが、CommandButton の Caption を
「決定(&E)」
とすると、"決定"の横に、アンダーバーのある (E) が出ます。
これ、(A)とか(B)とか1文字のはいいんですが、
(DEL) (INS) (ESC) のように、
DELキーやINSキーやESCキーを同じように出すことは可能でしょうか？
0308デフォルトの名無しさん
2007/05/09(水) 19:13:01できるか知らん
0309デフォルトの名無しさん
2007/05/09(水) 19:40:15DELとかINSとかにアンダーバーを付与させることは不可能だが、
メニューのショートカットキー機能を使えば、
押下されたキーでそのボタンに対応した動作を行うことは多分可能。
0310デフォルトの名無しさん
2007/05/09(水) 19:43:200311デフォルトの名無しさん
2007/05/09(水) 20:00:12漏れが読解力無くてすまないが・・・
altキーとDELキーやINSキーやESCキーを組み合わせた
ショートカットキーを作成したいという意味だったりする？？
0312デフォルトの名無しさん
2007/05/10(木) 09:36:45Alt使ったらホットキーって言わね？
0313307
2007/05/10(木) 09:52:05>>308
(&D&E&L)は駄目でした…
>>309
キーの判定は、Form.KeyPreviewをtrueにした上で、FormのKeyDownイベントを
拾うことで実現できました。
>>311
いえ、組み合わせは考えていません。
DELキーのみや、ESCキーのみなどのように1つだけです。
色々試してみたのですが、無理っぽいですね。
重要でもないですし、諦めようと思います。（各ボタンのToolTipTextに記載する方法にしました）
皆さん回答ありがとうございます。
0314デフォルトの名無しさん
2007/05/10(木) 16:08:03ESCキーとか標準の窓操作に使われてるからそんなのに使用しないほうがいい。
例；メニューを開いた状態でESCキーではメニューが閉じる
0315デフォルトの名無しさん
2007/05/10(木) 16:28:14311が使用したいと思っているのわけではないだろう。
0317デフォルトの名無しさん
2007/05/10(木) 20:27:340318デフォルトの名無しさん
2007/05/10(木) 22:19:26入ってる。 当然バージョンが6.0ならだけどね。
俺も昔はviエディタとにらめっこだったから
Windows系の開発にウトイのはわかるぜよ。
0319デフォルトの名無しさん
2007/05/10(木) 22:38:130320デフォルトの名無しさん
2007/05/10(木) 22:44:350321デフォルトの名無しさん
2007/05/10(木) 22:57:48スタジオ間違ったなと思いつつ・・・
>>318
ありがとうございます
もう０からの独学の状態でして、助かりました
0322デフォルトの名無しさん
2007/05/11(金) 00:52:12「ポンッ」て音がいやなんですけど、音が出ないようにする方法はありますか？
0323デフォルトの名無しさん
2007/05/11(金) 00:56:01あるけど、あんたの期待している答えなら無い。
0324314
2007/05/11(金) 09:55:52VisualStudio6.0はもう販売してないぞ。
VB6.0のみならまだ単体で出ているので大丈夫だ
>>322
スピーカーをビルの屋上から落とす
0326デフォルトの名無しさん
2007/05/12(土) 07:30:57keydownの
if keycode = &hd or keycode = &ha then
keycode = 0
end if
0327デフォルトの名無しさん
2007/05/12(土) 16:13:50(1,1)
(2,4)
(3,2)
(4,8)
の４点を通る３次曲線y=ax^3+bx^2+cx+dの、
定数、a,b,c,dを求めるプログラムを作りたいのですが…。
今までエクセルのソルバーで計算させていたのですが、
VB6.0でこの４点のプロットからa,b,c,dを出すプログラムは、
どうすればいいんでしょうか？
VBでの連立方程式やら二次方程式やらをググってもみたのですが、
さっぱりでして…。
御助言お願いします。
0328デフォルトの名無しさん
2007/05/12(土) 16:52:11アルゴリズム辞典とかで行列の掃き出し法を
ひけばおわる
0329デフォルトの名無しさん
2007/05/13(日) 17:38:55”商品代金”と”支払い金額”を入力し
もし支払い金額textboxが商品代金textbox未満なら釣銭textboxに不足と表示
もし支払い金額textboxが商品代金textboxを超えている場合は釣銭textboxに釣銭の金額を表示し
更に釣銭金額の各紙幣ないし硬貨の個数を各々の項目の隣に別のラベルとして表示せよ
という課題があるのですが
釣銭金額の各紙幣ないし硬貨の個数を各々の項目の隣に別のラベルとして表示ってどうやるんでしょうか？
0330デフォルトの名無しさん
2007/05/13(日) 17:57:18簡略した流れ図にすると、こんな感じでしょうか・・・
0331デフォルトの名無しさん
2007/05/13(日) 18:41:52自販機のアルゴリズムっぽいけど
千円札がない場合は、購入する前に
札がないランプが点いてるだろうから購入すらできない
＝「千円札があるかないか」の分岐は意味ない様な希ガス
全部硬貨で出すのならまた別だろうけど。。。
0332デフォルトの名無しさん
2007/05/13(日) 18:43:54> 釣銭金額の各紙幣ないし硬貨の個数を各々の項目の隣に別のラベルとして表示ってどうやるんでしょうか？
「一万円札」
「五千円札」
…
って描かれている場所の水平方向右に適当な余白を置いて、Labelコントロールを配置する
で、紙幣の枚数または硬貨の個数をそのラベルのCaptionとして設定すればいいのではないかと思われ
0333デフォルトの名無しさん
2007/05/13(日) 18:48:390334デフォルトの名無しさん
2007/05/13(日) 18:51:10Option Explicit
Private Sub Form_Load()
Const a = (10000# + 8500# + 9230# + 100# + 500#) * 1.05
Dim v As Variant
Debug.Print Int(a); "="
For Each v In getMoneys(Int(a))
Debug.Print v(0) & "×" & v(1)
Next
End Sub
Private Function getMoneys(ByVal in_Money As Double) As Collection
Dim v As Variant
Set getMoneys = New Collection
For Each v In Array(10000, 5000, 2000, 1000, 500, 100, 50, 10, 5, 1)
Call getMoneys.Add(Array(v, in_Money \ v))
in_Money = in_Money Mod v
Next
End Function
0335デフォルトの名無しさん
2007/05/13(日) 21:13:38デノミ後の日本を想定してるんだろうかw
おまけに>>329のフォームはどう見てもドトネトのだし
だいいち、宿題は自分でやらなアカンやろ。
できないなら素直に単位落とせよ。
0336デフォルトの名無しさん
2007/05/14(月) 09:52:02しょせん大学生だといってもこんなもんだな
スレタイすら読めないというｗｗｗｗ
0337デフォルトの名無しさん
2007/05/14(月) 10:08:46流れを全く読まずにレスするが。
0338デフォルトの名無しさん
2007/05/14(月) 10:25:22商品にもよるけどお札は一枚しか受け付けない仕様でよくないかい？
多分一万入れてキャンセルした時の仕様だろうなぁ････
とマジレス
0339デフォルトの名無しさん
2007/05/14(月) 12:22:330340デフォルトの名無しさん
2007/05/14(月) 21:37:43数点のx,y座標より、最小２乗法で３次曲線y=ax^3+bx^2+cx+dの係数a,b,c,dを出したいんですが、
ttp://homepage1.nifty.com/gfk/square_ren.htm
を参考に考えてはみたものの、
＞逆マトリックス( A-1 ) の計算
＞逆マトリックス( A-1 ) × ベクトル( b ) の計算
というのが、vbでどう考える（置き換える？）べきなのか、わかりません。
何かいい方法ありますでしょうか？
0341デフォルトの名無しさん
2007/05/14(月) 21:57:24・ベクトルクラスを作る（こっちは構造体でもいいかもしれない）
・行列クラスに自分の逆行列を求めるメソッドやベクトルとの積を求めるメソッドを書く。
0342デフォルトの名無しさん
2007/05/15(火) 15:54:240343デフォルトの名無しさん
2007/05/15(火) 16:00:42じゃなかった？
0344デフォルトの名無しさん
2007/05/15(火) 18:02:32str = "a" & "b"
もしくは
str = Join( Array( "a", "b" ), vbNullString )
0345デフォルトの名無しさん
2007/05/15(火) 18:50:06Win2ｋ-sp4にVB6をインストールできなくて困ってます。
CDを入れてすぐ、「Virtual machine for javaの更新」というチェックが表示されて、
次へ進もうとすると「再起動します」ダイアログ→[OK]ボタンで再起動すると、また最初の「Virtual machine・・・・」
の、繰り返しで先へ進めません。
あれこれ検索してみましたが、それらしい同様の症状を見つけることが出来ませんでした。
何か環境が足りないのでしょうか？Windowsはクリーンインストール状態です。
宜しくお願いします。
0346デフォルトの名無しさん
2007/05/15(火) 18:51:360347デフォルトの名無しさん
2007/05/15(火) 18:55:38ありがとうございます。VBに慣れてないと思いつきづらい様な感じですね。
0348デフォルトの名無しさん
2007/05/15(火) 19:30:39他スレでも見た気がするが…マルチか？
VMｲﾝｽｺ→VBｲﾝｽｺ→VMｱﾝｲﾝｽｺ
こんな流れだったような
0349345
2007/05/15(火) 19:52:07>>346
探してみます。
>>348
いえ、初めての質問です。
その流れで試してみます。
「VMｲﾝｽｺ」というのは、"msjavx86.exe"を単体で実行する、という事でよろしいのでしょうか？
実機が今手元に無いもので、確認とれずすみません。。。
0350デフォルトの名無しさん
2007/05/17(木) 22:18:552.33333333332673E-04
のようになるのを、
0.000233333のようにEで表記しない方法で貼り付ける方法はないでしょうか？
0351デフォルトの名無しさん
2007/05/17(木) 22:20:30っていうか、VB6の初心者スレなんて意味あんのか？
現時点でVB6学び始めてどうするんだよw
0352デフォルトの名無しさん
2007/05/17(木) 22:31:210353デフォルトの名無しさん
2007/05/17(木) 23:04:58xは1～50の領域で表示したいなら、
ChartType=VtChChartType2dLine
for x=1 to 50
y=x^2+x
next
何かけばええの？ｗ
サンプル見ても棒グラフばっかで、チンプンカンプン
0354デフォルトの名無しさん
2007/05/17(木) 23:13:49VB厨は質問者がVBしか経験がないという前提で
書き込むよな。 >351とか正にそうだ。
0355デフォルトの名無しさん
2007/05/17(木) 23:15:57不思議な思考をする奴だな。
こういう非論理的な人間はプログラマ向かないよ。
0356デフォルトの名無しさん
2007/05/17(木) 23:22:33専用ブラのオマイw
キンタマに(ry
0357デフォルトの名無しさん
2007/05/17(木) 23:26:51まぁちょっと叩かれたからって
そう気張るなよ？な？肩の力抜いていこうぜ？
言語なんてしょせん方言だ
0358デフォルトの名無しさん
2007/05/17(木) 23:36:16／::::::::::::::::::::::::::＼～ﾌﾟｰﾝ
/:::::::::::::::::::::::::::::::::::::::＼～ﾌﾟｰﾝ
|:::::::::::::;;;;;;|＿|＿|＿|＿|～ﾌﾟｰﾝ
|;;;;;;;;;;ノ∪ ＼,) ,,／ ヽ～
|::（ 6∪ ー─◎─◎ ）～ >>355
|ノ （∵∴ （ o o）∴）～
| ∪< ∵∵ ３ ∵> ﾑｯｷｰ!
＼ ⌒ ノ＿＿＿＿＿
＼＿＿＿＿_／ | |￣￣＼ ＼
＿＿_／ ＼ | | |￣￣|
|:::::::/ ＼＿＿＿ | ＼| | |＿＿|
|:::::::| ＼＿＿＿＿|つ⊂|＿_|＿＿／ ／
|:::::/ |￣￣￣￣| 〔￣￣〕
0359デフォルトの名無しさん
2007/05/19(土) 21:28:03もしかしてVBでこういう曲線のグラフって、pictureに描画するのが一般的なんですか？
MSchartをイジってたんだけど、中々エクセルでいうところの散布図みたいなのが出来ない。。。
0360デフォルトの名無しさん
2007/05/19(土) 23:15:20日曜プログラマの俺は金が無いので自力で全部書いてる
もしかしたらExcelのコンポーネントで出来るかもしれないけど、取り扱いに気を使いそうだから全くしらない
0361デフォルトの名無しさん
2007/05/20(日) 02:09:17自前(PictureBox)で実現しようとするかな・・・
0362デフォルトの名無しさん
2007/05/20(日) 04:58:570363デフォルトの名無しさん
2007/05/20(日) 21:27:46Dim x As Single, y As Single
With MSChart1
.chartType = VtChChartType2dLine
.ColumnCount = 1
.RowCount = 50
For x = 1 To 50
y = x ^ 2 + x
.Row = x
.Data = y
Next
End With
0364デフォルトの名無しさん
2007/05/22(火) 10:27:35例えば、以下の内容のCSVファイルがあったとします。
ID,TEL
1,0344445555
これを開くと、
cnDB.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};DefaultDir=" & strDir & ""
cnDB.Open
rsDB.Source = "SELECT * FROM テーブル"
rsDB.Open , cnDB, adOpenStatic, adLockPessimistic
結果が、TEL=344445555となり、０が消えてしまいます。
2番目のフィールドを文字列として認識してテーブルを開く方法は無いでしょうか？
0365デフォルトの名無しさん
2007/05/22(火) 10:41:11その方法じゃないとダメならＳＱＬを変えてみてはどうでしょうか～
rsDB.Source = "SELECT ID, STR(TEL) FROM テーブル"
0366デフォルトの名無しさん
2007/05/22(火) 11:01:46ありがとうございます。
やってみましたが、0がスペースに変わっただけで、やはり思い通りには
行きませんでした。
今後、フィールドの位置の変更や、追加削除がある可能性があるので
出来れば、この方法が便利なんですけど、、、
上手くいかないので、他の方法にした方が良さそうですね、、、
0367デフォルトの名無しさん
2007/05/22(火) 20:34:52どうしよう・・・
5分にしたければ60秒を5回繰り返せばいいか！
0368デフォルトの名無しさん
2007/05/22(火) 20:40:531秒を300回繰り返してもいいんだぜ
0369デフォルトの名無しさん
2007/05/22(火) 20:46:43即ﾚｽｻﾝｸｽ!
0370デフォルトの名無しさん
2007/05/23(水) 06:53:200371デフォルトの名無しさん
2007/06/01(金) 16:35:06シングルコアでは100%の負荷が掛かるのだが、
デュアル・クアッドコアの場合は50%・25%前後にしかならないんだ・・・。
これって、マルチスレッド・クアッドスレッドにソースが最適化されてないって事だよね？
どこかにVB6.0でマルチスレッド最適化の方法が載ってるサイトって無いかな？
0372デフォルトの名無しさん
2007/06/01(金) 16:41:45・・・・・・・( ﾟдﾟ)
0373デフォルトの名無しさん
2007/06/01(金) 17:33:380374デフォルトの名無しさん
2007/06/01(金) 17:36:31VB6.0ではマルチスレッド出来ないのか・・・。
教えてくれてありがとうございました。
0375デフォルトの名無しさん
2007/06/01(金) 18:05:48このような輩が使うとデッドロックとかの防御かけずに使いそうで怖いな・・・・
0376デフォルトの名無しさん
2007/06/01(金) 18:21:070377デフォルトの名無しさん
2007/06/01(金) 18:38:260378デフォルトの名無しさん
2007/06/01(金) 18:48:09つkill -9！
kill -9, no more CPU time！
kill -9, process is still running！
0379デフォルトの名無しさん
2007/06/02(土) 09:39:02何とかしてくれ。
0380デフォルトの名無しさん
2007/06/02(土) 10:29:580381デフォルトの名無しさん
2007/06/02(土) 11:27:440382デフォルトの名無しさん
2007/06/02(土) 12:11:550383デフォルトの名無しさん
2007/06/02(土) 13:15:130384デフォルトの名無しさん
2007/06/02(土) 13:24:390385デフォルトの名無しさん
2007/06/02(土) 13:35:090386デフォルトの名無しさん
2007/06/02(土) 20:02:39ググったけどわかんね('A`)
教えてくれ～。
0387デフォルトの名無しさん
2007/06/02(土) 21:02:57VB6のエディタはOSのコンパネ（画面の設定）で設定された色をそのまま使ってるんだろう。
っていうか、こういうOSの使い方も知らん人がコード書けるのかなw
0388デフォルトの名無しさん
2007/06/02(土) 21:25:18けど背景色ぐらいは設定で変えられるようにすべきだと思う（´･ω･`）
0389デフォルトの名無しさん
2007/06/03(日) 00:48:04「オプション」の「エディタの設定」の「コードの表示色」の「背景」
文字色を明るい色に変えて黒背景にも出来るお
0390デフォルトの名無しさん
2007/06/03(日) 08:24:38GJ!
0391デフォルトの名無しさん
2007/06/03(日) 21:07:31>>389お前とは上手い酒が飲めそうだ。
0392デフォルトの名無しさん
2007/06/03(日) 21:08:57俺も同意
目にやさしいしな
0393デフォルトの名無しさん
2007/06/03(日) 21:42:32まぶしいなら画面の輝度を調整すべきだと思うよ。
0394デフォルトの名無しさん
2007/06/03(日) 21:53:380395デフォルトの名無しさん
2007/06/03(日) 22:14:13､ミ川川川彡 ,ｨｒ彡'";;;;;;;;;;;;;;;
ミ 彡 ,.ｨi彡',.=从i､;;;;;;;;;;;;
三 ギ そ 三 ,ｨ/ｲ,r'" .i!ｌi,il i､ﾐ',:;;;;
三. ャ れ 三 ,. -‐==- ､, /!li/'/ l'' l', ',ヾ,ヽ;
三 グ は 三 ,,__-＝ﾆ三三ﾆヾヽl!/,_ ,_i ､,,.ｨ'=-､_ヾヾ
三 で 三,. ‐ﾆ三＝,=＝‐ ''' `‐゛j,ｪﾂ''''ｰ=5ｒ‐ｫ､, ヽ
三. 言 ひ 三 .,,__／ . ,' ﾝ′ ￣
三 っ ょ 三 / ｉ l,
三. て っ 三 ﾉ ..::.:... ,_ i ! `´' J
三 る と 三 iｪｧﾒ`'7rｪ､,ｰ' i }ｴ=､
三 の し 三 ﾉ "' ￣ ! '';;;;;;;
三 か て 三. ｉヽ,_ﾝ J l
三 !? 三 !し=､ ヽ i ,.
彡 ミ ! "'' `'′ ヽ、,,__,,..,_ｨ,..ｒ,',",
彡川川川ミ. l _, , | ` ｰ､≡＝,ﾝ _,,,
ヽ、 _,,,,,ィﾆ三"'" ,,.'ヘ rｰ‐ ''''''"
`, i'''ﾆ'" ,. -‐'" `/
ヽ ! i´ ／
ノレ'ー'! ／ O
0396デフォルトの名無しさん
2007/06/03(日) 22:41:00そんなギャグがどこにある。
黒背景が目に悪い理由は、黒背景だと瞳孔が開きすぎるから。
というか、そんな理屈がわからなくても普通体感的に分かるだろう。
白地に黒と黒地に白でどちらが目がより疲れないか
0397デフォルトの名無しさん
2007/06/04(月) 10:30:51､ミ川川川彡 ,ｨｒ彡'";;;;;;;;;;;;;;;
ミ 彡 ,.ｨi彡',.=从i､;;;;;;;;;;;;
三 ギ そ 三 ,ｨ/ｲ,r'" .i!ｌi,il i､ﾐ',:;;;;
三. ャ れ 三 ,. -‐==- ､, /!li/'/ l'' l', ',ヾ,ヽ;
三 グ も 三 ,,__-＝ﾆ三三ﾆヾヽl!/,_ ,_i ､,,.ｨ'=-､_ヾヾ
三 で 三,. ‐ﾆ三＝,=＝‐ ''' `‐゛j,ｪﾂ''''ｰ=5ｒ‐ｫ､, ヽ
三. 言 ひ 三 .,,__／ . ,' ﾝ′ ￣
三 っ ょ 三 / ｉ l,
三. て っ 三 ﾉ ..::.:... ,_ i ! `´' J
三 る と 三 iｪｧﾒ`'7rｪ､,ｰ' i }ｴ=､
三 の し 三 ﾉ "' ￣ ! '';;;;;;;
三 か て 三. ｉヽ,_ﾝ J l
三 !? 三 !し=､ ヽ i ,.
彡 ミ ! "'' `'′ ヽ、,,__,,..,_ｨ,..ｒ,',",
彡川川川ミ. l _, , | ` ｰ､≡＝,ﾝ _,,,
ヽ、 _,,,,,ィﾆ三"'" ,,.'ヘ rｰ‐ ''''''"
`, i'''ﾆ'" ,. -‐'" `/
ヽ ! i´ ／
ノレ'ー'! ／ O
0398デフォルトの名無しさん
2007/06/05(火) 00:08:03配列に数値を加えていくにはどうすればいいんですか？
0399デフォルトの名無しさん
2007/06/05(火) 00:16:190400デフォルトの名無しさん
2007/06/05(火) 09:03:32dim i as integer
dim hoge() as integer
'///最初に確保
hoge(10)
'///消す。
erase hoge
'///拡張しながら
for i = 0 to 10
redim preserve hoge(i)
next i
0401デフォルトの名無しさん
2007/06/05(火) 09:10:28REDIMってパフォーマンスはどうなんだろ？
realloc繰り返すようなもんだろ。拡張のときに余分に確保してゆくとか必要ないだろうか。
0402400
2007/06/05(火) 09:27:48realloc繰り返すよりは最初に余分に拡張した方がいいね。
0403デフォルトの名無しさん
2007/06/05(火) 11:18:59超悪い
なので先に配列の数がわかるならRedim一回だけにしたほうがいいと・・・
配列の数が増えれば増えるほど速度差が出るしさ
0404デフォルトの名無しさん
2007/06/05(火) 11:28:330405デフォルトの名無しさん
2007/06/05(火) 11:35:280406デフォルトの名無しさん
2007/06/05(火) 15:09:500407デフォルトの名無しさん
2007/06/05(火) 15:43:150408デフォルトの名無しさん
2007/06/05(火) 15:56:470409デフォルトの名無しさん
2007/06/05(火) 18:37:16VB以前の問題だろ･･･
0410デフォルトの名無しさん
2007/06/09(土) 13:35:58例えばform1とform2を開いておき
form2でボタンを押したりするとfrom1のテキストに書き込んだりform1のピクチャの表示を変えたりしたいのですが
0411デフォルトの名無しさん
2007/06/09(土) 15:58:57Form1.Picture1
0412410
2007/06/09(土) 16:41:43やり方がわかりました
0413デフォルトの名無しさん
2007/06/10(日) 22:14:38例えばコマンドがクリックされるたびに
数字が一つ増えていき、ある時間が来たらその時間内に何回
それがクリックされたかを表示される機能を作りたくて
時間を計る昨日は作れたのですが、クリック回数を示す方が全くわからないので
ヒントを頂けると助かります
0414デフォルトの名無しさん
2007/06/10(日) 22:40:01どうしてあちこちで聞くの？
0415413
2007/06/10(日) 22:51:56基礎的過ぎるのでこっちの方がいいのではないかと思って・・・
0416デフォルトの名無しさん
2007/06/10(日) 22:53:13スレ跨いでなかったら答えたんだけどな。
むかついたので教えない。
0417デフォルトの名無しさん
2007/06/10(日) 22:58:19わざと不親切な奴を装ってるんだな
0418デフォルトの名無しさん
2007/06/10(日) 23:02:570419413
2007/06/10(日) 23:41:24教えてください・・・
0420デフォルトの名無しさん
2007/06/10(日) 23:54:12しょうがないな
モジュールレベルでDimしてクリックイベントで足せ
0421デフォルトの名無しさん
2007/06/11(月) 00:19:51どこまで失礼な奴だ！！
0422デフォルトの名無しさん
2007/06/11(月) 06:43:36Label1.Caption = クリック回数
0423デフォルトの名無しさん
2007/06/11(月) 06:52:08a$ = "クリック"
b$ = "回数"
Label1.Caption = a$ & b$
0424デフォルトの名無しさん
2007/06/11(月) 08:38:440425デフォルトの名無しさん
2007/06/11(月) 08:43:16dim intI as Integer
intI = CInt(Label1.Caption)
intI = intI + 1
Label1.Caption = Cstr(intI)
End Sub
おまえにはこの程度のソースでいいだろう
0426デフォルトの名無しさん
2007/06/11(月) 09:11:510427デフォルトの名無しさん
2007/06/12(火) 01:39:11MSComm1.Settings = "a,b,c,d"
でa,b,c,dにはﾃｷｽﾄﾎﾞｯｸｽから任意の値を
入れれるようにしたいんですが・・。
これだとaという変数に"9800"という文字列が入ってても
これは"a"という文字列だということでエラーになってしまいますよね。
何かいい方法あります？
0428デフォルトの名無しさん
2007/06/12(火) 02:36:51方法はちょっと前のレスにもある。
0429デフォルトの名無しさん
2007/06/12(火) 09:12:23>>428の言うとおり2つほど前のレスにもヒントはある
しかし、全然言語･･というよりもPGそのものをまったく知らないでCOMM通信とか（ｒｙ
0430427
2007/06/12(火) 10:00:27MSComm1.Settingsは文字列で指定しなきゃいけないんですよね？
囲まないと構文エラーになるんですか・・。
>>425がヒント・・。
CIntやCstrで文字を変換しろ という事ですか？
でも変換した値は結局変数に代入するのだから
同じ事のように思えるんですが・・。 すみません。
0431デフォルトの名無しさん
2007/06/12(火) 10:04:03うわぁ・・・こいつ絶対使えねぇ････
自分で考えようとしてる不利だけの気がするな
絶対つりだと信じてるが･･･
dim a as string = textbox1.text
dim b as string = textbox2.text
dim c as string = textbox3.text
MSComm1.Settings = a & "," & b & "," & c
お前レベルにはこれで十分だ
0432デフォルトの名無しさん
2007/06/12(火) 11:03:49a$=text1
・
・
MSComm1.Settings = a$ & "," & b$ & "," & c$ & "," & d$
たしかに先はながいなぁ 私も通信は苦労しました。
0434デフォルトの名無しさん
2007/06/12(火) 19:44:52後、カーソルを左端じゃなくて右端に固定したいのですが…
0435デフォルトの名無しさん
2007/06/12(火) 19:50:500436434
2007/06/12(火) 20:55:110437デフォルトの名無しさん
2007/06/12(火) 21:00:52何のためにやりたいのか知らないがそういうプロパティはある
0438デフォルトの名無しさん
2007/06/12(火) 22:04:210439デフォルトの名無しさん
2007/06/12(火) 22:53:32タイマーから
Dim a%
a = GetAsyncKeyState(37)
If Not a = 0 Then ...
と、左を押したらifの処理が行われるとして
キーの左を押している間画像を移動するとしたいのですが
左を放しても画像が移動し一瞬置いてから止まり画像が滑ってしまいます
変数aの中身は毎回破棄されてますしそもそもGetAsyncKeyStateの時点で代入されてるから値を引き継ぐわけがありませんし
タイマーで呼び出された時点でキーを押してなければ0が入るはずで
GetAsyncKeyStateからifまでの間にaの値を変更するような事も行っていないので原因がまったくわかりません
タイマーのインターバルの感覚を長くしたり色々な箇所にsleepを入れてみても駄目でした
理由がわかる方どうか教えてください
0440デフォルトの名無しさん
2007/06/12(火) 23:03:040441デフォルトの名無しさん
2007/06/12(火) 23:11:26まぁどっちにしろ
判定
↓
移動処理
の流れなかぎり多少のレスポンス遅れは出るだろうな
どんだけなのかしらんし、キー離したつもりでもキーストロークによっては一瞬遅れて とかんじるかもしれんし
0442デフォルトの名無しさん
2007/06/12(火) 23:37:25KeyStateの中に値が入っていてそれが消化されてないんだよ。
一回ごとにクリアするなどすればディレイは発生しない。
While
0443デフォルトの名無しさん
2007/06/13(水) 00:06:100444439
2007/06/13(水) 22:08:58参考になります
>>440
ためしにGetAsyncKeyStateの処理のとこだけのプログラムにしてみたら
滑らなくなったため処理が追いついていないのが原因のようですね
>>441
私には
判定
↓
移動処理
の方法しか思いつかないのですは他に方法はあるのでしょうか？
>>442
KeyStateの値をクリアとはどのようにすれば良いのでしょうか？
調べても見つからなかったため良ければ教えてください
0445デフォルトの名無しさん
2007/06/14(木) 05:13:01そこで思考停止かよ
0446デフォルトの名無しさん
2007/06/14(木) 06:14:53＞滑らなくなったため処理が追いついていないのが原因のようですね
なんだそんな間抜けな原因か
0447デフォルトの名無しさん
2007/06/14(木) 10:01:01While GetAsyncKeyState(37) <> 0
i = i + 1
Wend
if i > 1 then msgbox i
ためしにこれをかませてみろ
0448デフォルトの名無しさん
2007/06/14(木) 11:58:51それかますとキーを押しっぱなしでスクロールできないのでは
そもそも消化が原因じゃないわけだし
0449デフォルトの名無しさん
2007/06/14(木) 13:29:28お前はあほだな
0450デフォルトの名無しさん
2007/06/14(木) 13:47:19いやためしと言うのはいいとして
そんな無意味なコードをためしてどうするの？
自分でためしてみた？
0451デフォルトの名無しさん
2007/06/14(木) 13:59:27キーをちょっとでも押しているとすぐにGetAsyncKeyStateのカウントが増えていくことを確認させるテストだ
無論今は試してないが過去になんども試してる
0452デフォルトの名無しさん
2007/06/14(木) 14:01:41キーを押しっぱなしにしていて離した時点で、
GetAsyncKeyState(37) がたとえば 200 とかいう値を返してくる。
そのためこのコードだと、キーを離した後も、あと200回、If文の中の命令をこなすこととなっている
0453デフォルトの名無しさん
2007/06/14(木) 14:06:42今、試せ。
0454デフォルトの名無しさん
2007/06/14(木) 14:39:53質問者が混乱するような言い合いしてたら意味ないだろ
0455デフォルトの名無しさん
2007/06/14(木) 18:29:300456デフォルトの名無しさん
2007/06/14(木) 19:32:550457デフォルトの名無しさん
2007/06/15(金) 11:53:510458デフォルトの名無しさん
2007/06/15(金) 12:13:46久々にその名前を聞いた
つうか、最近廃れてないか？
0459デフォルトの名無しさん
2007/06/16(土) 00:52:38Vbはどこでダウソすればいいんでしょうか？
0460デフォルトの名無しさん
2007/06/16(土) 01:02:120461デフォルトの名無しさん
2007/06/16(土) 01:04:55なんとかスタジオの
どこで何をすればいいのかわかりません＞＜
0462デフォルトの名無しさん
2007/06/16(土) 01:32:56わからないのならあなたには必要無いって事でしょう
0463デフォルトの名無しさん
2007/06/16(土) 02:11:560464デフォルトの名無しさん
2007/06/16(土) 02:44:320465デフォルトの名無しさん
2007/06/16(土) 03:52:330466デフォルトの名無しさん
2007/06/17(日) 21:54:11どこが、間違ってるのでしょうか。
Function find1(検索 As Range) As Variant
Dim objRange As Range
Dim target As Variant
target = 検索.Value
Set objRange = Columns("E").Find(target)
find1 = objRange.Value
End Function
0467デフォルトの名無しさん
2007/06/17(日) 22:21:42それから変数に全角文字使ってるが冗談だよな？
0468デフォルトの名無しさん
2007/06/17(日) 22:28:56エラーは、＃VALUE! です。
変数は全角でも、英数字でも同じエラーがでます。
0469デフォルトの名無しさん
2007/06/18(月) 12:33:30> エラーは、＃VALUE! です。
この「#VALUE!」ってどういう意味なの？
0470デフォルトの名無しさん
2007/06/18(月) 12:38:13まるち
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200706/07060041.txt
0471デフォルトの名無しさん
2007/06/18(月) 20:26:242ｃｈでマルチポストを指摘されるとは。
ネチケット違反ですか？
0472デフォルトの名無しさん
2007/06/18(月) 20:29:42○(゜ε゜)
0473デフォルトの名無しさん
2007/06/18(月) 20:44:160474デフォルトの名無しさん
2007/06/18(月) 22:05:24>469
0475デフォルトの名無しさん
2007/06/18(月) 22:08:460476デフォルトの名無しさん
2007/06/21(木) 15:45:46変数名に漢字なんて大真面目ですぜ？
0477デフォルトの名無しさん
2007/06/21(木) 15:55:040478デフォルトの名無しさん
2007/06/21(木) 17:36:28AccessVBAなんか悲劇。
変数にマルチバイト文字使ったサンプルが大量に載ってる本が堂々と教本として売られてる。
メンテさせられる身になると泣けるぜ・・・
0479デフォルトの名無しさん
2007/06/24(日) 21:05:20>>353と>>363を習ってみたものの、
1本目は書けるんですが、２本目はどう定義したらいいんでしょう？
..raowと.dataを、どう表記したら２本目になるんでしょうか？
0480デフォルトの名無しさん
2007/07/06(金) 00:19:14同じチャートオブジェクトに二つの系列のデータ突っ込めるか確認した？
0481デフォルトの名無しさん
2007/07/15(日) 02:37:14例えば、丸いボタンを押しているようにすることは出来るのでしょうか。？
0482デフォルトの名無しさん
2007/07/15(日) 02:45:17出来るけどVBだけいろいろめんどくさい
おとなしくピクチャボックスでやるというのも1つの手段
0483デフォルトの名無しさん
2007/07/15(日) 15:01:07なるほど。ピクチャボックスですか。
簡単にやってしまうと、丸いボタンの領域を押さなくてもクリックしたことになっちゃいそうですね。
そういうコンポーネントとか売ってないですかね…。
0484デフォルトの名無しさん
2007/07/15(日) 15:58:120485デフォルトの名無しさん
2007/07/15(日) 17:55:230486デフォルトの名無しさん
2007/07/15(日) 18:09:28たぶん、下のところかと
http://pc11.2ch.net/test/read.cgi/tech/1173535400/
でも、（超初心者用）となっているが…
0487デフォルトの名無しさん
2007/07/15(日) 20:30:46Dim a(10) As Integer
Dim i As Integer
a(0) = 32
a(1) = 14
a(2) = 56
a(3) = 15
a(4) = 7
a(5) = 18
a(6) = 102
a(7) = 88
a(8) = 11
a(9) = 57
a(10) = 58
'-------------------
'この間で
'-------------------
For i = 0 To 10
Debug.Print a(i)
Next
End Sub
超初心者質問ですみません。
上のようにa(10)にランダムの数字が格納されていて
これを昇順（若い順）に格納しなおしてから
表示するようなプログラムを作りたいの
ですがどのようなやり方があるでしょうか。。
0488デフォルトの名無しさん
2007/07/15(日) 23:18:41http://pc11.2ch.net/test/read.cgi/tech/1099112351/590
どっちに回答つければいいのかわからねーっつってんだろ
0489デフォルトの名無しさん
2007/07/15(日) 23:50:59一旦、小さい数字から別の配列に入れてa()に代入する。
0490デフォルトの名無しさん
2007/07/16(月) 00:33:05'-------------------
'この間で
Dim t As Integer
Dim j As Long
For i = LBound(a) To UBound(a)
For j = i + 1 To UBound(a)
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
'-------------------
0491デフォルトの名無しさん
2007/07/16(月) 00:37:24おれ２０年以上前にソートのやり方だけをいろいろ書いた本を買ったことがある。今のパソコンは処理が速いからどんなやり方でもおｋ。自分で考えたほうが良い。
0493デフォルトの名無しさん
2007/07/16(月) 01:22:450494デフォルトの名無しさん
2007/07/16(月) 03:10:11のが定石として出ていたこともあった。
0495デフォルトの名無しさん
2007/07/16(月) 03:10:500496デフォルトの名無しさん
2007/07/16(月) 03:16:160497デフォルトの名無しさん
2007/07/16(月) 04:02:57それが定石だとしたらお前は世間で言う
ダメVBプログラマの部類だな
頭使えよ
0498デフォルトの名無しさん
2007/07/16(月) 09:39:23目に見えるからデバッグしやすいんだな、これが。
特に動的に重複した値がやってくるような場合は
SortedをTrueにしたListboxに放り込んでおいて処理してた。
数千件でも速度的に問題なかったよ。
0499デフォルトの名無しさん
2007/07/17(火) 05:43:121000件以上とか構造体のソートだとクイックソート辺りじゃないと。
簡単に向上出来る部分は済ましておくもんだろ。
つか関数化して処理して Function BubbleSort(Arr() as Long) as Long()
0500デフォルトの名無しさん
2007/07/17(火) 07:04:49いまここまで作ったのですが、
テキストボックスに入力したテキストを
OKを押すと同時にファイルに格納するって
いうのはどうやるのですか？
0501デフォルトの名無しさん
2007/07/17(火) 07:08:33（・∀・） ｸﾞｸﾞﾚｶｽ
0502デフォルトの名無しさん
2007/07/17(火) 08:51:17マルチすんな
0503デフォルトの名無しさん
2007/07/22(日) 11:37:43PatBltじゃ対応しないデバイスがあることとかでだめなようなんですが、、、
0504デフォルトの名無しさん
2007/07/22(日) 14:53:38じゃあとりあえずsetpixelかPSet()かLineかFloodFillか使えば良い
0505デフォルトの名無しさん
2007/07/22(日) 19:39:06ありがとうございます。助かりました。
0506デフォルトの名無しさん
2007/07/22(日) 22:27:170507デフォルトの名無しさん
2007/07/23(月) 01:29:330508佐一
2007/07/23(月) 22:27:33フォーム内のボタンを押して、
Shell("MSACCESS.exe △△△",・・・)から
データベースファイル△△△を起動します。
△△△が起動している間は、
・ボタンを押しても△△△を新たに起動させず
・既に開いている△△△が最前面に来るようにするには、
（フォームが最背面、フォアグラウンドになればいい）
どうすればいいのでしょうか？
アプリケーションのハンドルを取得し
setForeground(ハンドル名)
として、アプリのフォームをフォアグラウンドにしようとしましたが
setForegroundの戻り値は、Trueなのに、
ボタンを押しても、既に開かれている△△△が最前面になってくれません。
0509デフォルトの名無しさん
2007/07/23(月) 22:34:260510デフォルトの名無しさん
2007/07/24(火) 09:01:23http://oshiete1.goo.ne.jp/qa3194308.html
0511デフォルトの名無しさん
2007/07/24(火) 09:43:46以前はVisual Stadio 6.0をフルインストールした状態のＰＣで使ってた『自作ソフト.exe』を
今回は容量の少ないシリコンディスク（２ＧＢ）のＦＡタイプＰＣで使用したいのですが、
Visual Stadio 6.0をインストールするほど容量が確保できないので、
そのまま『自作ソフト.exe』を起動したところ、アプリケーションエラーが発生し
ソフトが起動しませんでした。
専門書等を見てみましたが
１）メイン及び、監視タスクのパス(フォルダ)位置が、pathに登録されているか？
２）アプリでOCX等が使われてたりすると、アプリのみでは実行できない場合があるため、
必要なOCXをそのPCに登録する必要がある。
などと書いてありましたがはっきりいってわかりません
ちなみに、私はビルド（リビルド）ぐらいしか出来ないくらいの知識しかないので、
どなたか教えてもらえないでしょうか？
0512デフォルトの名無しさん
2007/07/24(火) 09:48:36インストーラを作れ
0513デフォルトの名無しさん
2007/07/24(火) 09:57:57>ＦＡタイプＰＣ
>アプリケーションエラーが発生し
このOS種類とかエラー内容をかけよ・・・
>>512の言うとおり
ディトリビューションウィザードでも何でも使ってインスコしたら必要なものは入るはず
0514511
2007/07/24(火) 10:47:00>>512さんのインストーラの作り方や、>>513さんのディトリビューションウィザードなどといった
ものの使い方作り方が出来ません。
しかもこの『自作ソフト.exe』を作った人が会社辞めてしまってるので、このソフトの中身すら
私には理解できない現状です。
（起動したときの使い方ぐらいしかわからないんです…）
ちなみにＯＳはWindows2000 SP4で、
エラー内容は
「エラーが発生したので。『自作ソフト.exe』を終了します。
プログラムをもう一度開始する必要があります。」
という表示が出てきました。
0515デフォルトの名無しさん
2007/07/24(火) 10:50:16http://www.vector.co.jp/vpack/filearea/win/util/runtime/
0516デフォルトの名無しさん
2007/07/24(火) 12:07:44スタート メニュー\プログラム\Microsoft Visual Basic 6.0\Microsoft Visual Basic 6.0 Tools
このあたりにあるはず
0517デフォルトの名無しさん
2007/07/24(火) 12:09:43>>515ので動くとは思うが社外OCXとか使ってた場合はそれだけじゃ動かないので
デストリビューしょんウィザードなんかで依存関係にあるOCX登録してやる必要がある
0518511
2007/07/24(火) 13:46:11これはＶＢじゃなくてＶＣ＋＋ですよね？
板違いみたいなので、ちょっと首くくってきます…
もし、ＶＣ＋＋でも>>515のデータは使えるのでしょうか？
板違いだからどっか行けというのであればここまま消えますね…
0519デフォルトの名無しさん
2007/07/24(火) 14:46:21エラーが出てこまっています。（型が一致しません）
やってるのは
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim intA As Integer
Dim intB As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("aaaaa.xls")
Set xlSheet = xlBook.Sheets(1)
intA = xlSheet.Cells(3,1).value
intB = xlSheet.Cells(5,2).value
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
です。よろしくお願いします。ｍ（＿ ＿）ｍ
0520デフォルトの名無しさん
2007/07/24(火) 16:41:320521デフォルトの名無しさん
2007/07/24(火) 17:15:30Dim intA As Integer
↓
Dim intA
こうするとどう？
0522519
2007/07/24(火) 19:45:55やっとわかりまして、どうやら、Excel２０００だと、セルに数値が入ってても
先頭になんかコントロールコードみたいな１バイト文字がつく文字列で
くることが判明しました。
ですので、先頭の１バイトを捨ててValすることにしました。
本当にありがとうございました。ｍ（＿ ＿）ｍ
0523デフォルトの名無しさん
2007/07/25(水) 09:08:08らめぇ＞＜
0524デフォルトの名無しさん
2007/07/25(水) 09:43:50カンマが入っただけで死にそうだ
0525519
2007/07/25(水) 12:18:38カンマが入ってしにました。。。orz
しかたがないので、Replaceでカンマを削除してから
Valすることにしました。
0526デフォルトの名無しさん
2007/07/25(水) 12:37:28一応いくつかパターン試しておいたほうがいいぞ
あと、意図的に入力したカンマが入るようなことはないのか？
0527519
2007/07/25(水) 16:16:08もう大丈夫です。＾＾
基本的に１セルに１数値なんで。
0528デフォルトの名無しさん
2007/08/09(木) 20:13:15さいたま さい川 たま夫
とうきょう ほげ川 ほげ子
おおさか おお山 さか美
このようなデータを
Do While Not EOF(DataFileBuf)
Line Input #DataFileBuf, LineData
LineData2 = Split(LineData, vbTab)
Print #CsvFileMBuf, """" & LineData & """"
Print #CsvFileMBuf2, """" & LineData2(0) & """"
Loop
#CsvFileMBufは↓のように、うまく処理が行えるのですが、
さいたま さい川 たま夫
とうきょう ほげ川 ほげ子
おおさか おお山 さか美
Split関数をかませた#CsvFileMBuf2の結果は↓のように最初の一件しか
処理してくれません。
さいたま
Split関数をかませても最後までデータを処理してくれるようにするには
どのように書き換えたらよいでしょうか？
0529デフォルトの名無しさん
2007/08/10(金) 07:35:28> Split関数をかませた#CsvFileMBuf2の結果は↓のように最初の一件しか
> 処理してくれません。
”そう書いてるんだから”、ってのは分かってますよね？
というわけで、「処理」とかいう抽象的な表現がコチラ側としてはサッパリ具体的ではないので
それを踏まえて次のように書きます
・Xを処理 → process(X)
・で、そのコード
Do While Not EOF(DataFileBuf)
Line Input #DataFileBuf, LineData
LineData2 = Split(LineData, vbTab)
Print #CsvFileMBuf, """" & LineData & """"
Print #CsvFileMBuf2, """" & process( LineData2 ) & """"
Loop
0530デフォルトの名無しさん
2007/08/10(金) 13:24:41さいたま さい川 たま夫
とうきょう ほげ川 ほげ子
おおさか おお山 さか美
DataFileBuf = FreeFile()
Open ActiveWorkbook.Path & "\" & DataFile For Input As #DataFileBuf
Do Until EOF(DataFileBuf)
Line Input #DataFileBuf, LineData
LineData2 = Split(LineData, vbTab)
Print #CsvFileMBuf, LineData2(0) & " " & LineData2(2) & " " & LineData2(5) & " " & LineData2(6)
Loop
↑のプログラムで、データファイルのEnd of Fileまでループさせるつもりが、
ファイル全体が１つのデータとして扱われてしまう為、１回のループで終わって
しまい、結果は↓のように出力されてしまいました
さいたま たま夫
とうきょう おお山 さか美
改行で１つのデータとして扱い、↑３件のデータが３回ループするように
コーディングしたいのですが、どのように変えたらよいでしょうか？
>>529
お答えありがとうございます。
せっかくお答えいただいたのですが、勘違いしてました。
(Split関数は問題ありませんでした。)
0531デフォルトの名無しさん
2007/08/10(金) 20:17:50わからないタスケテ（涙
●環境
・Windows XP (sp2)
・VB 6.0 (sp6)
・標準EXE でプロジェクト作成
・プロジェクト＞コンポーネント＞Microsoft Common Dialog Control チェック
・プロジェクト＞参照設定＞Microsoft Scripting Runtime チェック
で、Form1 にボタンやコントロールを配置して
いくつかコードを書いてプロジェクト保存＞終了しました。
その後、続きをやろうとプロジェクトを開くと、
----------------------
行 67: ｸﾗｽ MSComDlg.CommonDialog(ｺﾝﾄﾛｰﾙ CommonDialog1) はﾛｰﾄﾞされていません。
行 90: ｸﾗｽ MSForms.CheckBox(ｺﾝﾄﾛｰﾙ CheckBoxHeadIgnore) はﾛｰﾄﾞされていません。
----------------------
ログファイルに上記エラーが出て、
Form1 に適用した内容が全く読み込まれなくて困っています（涙
先輩方タスケテクダサイorz
0532デフォルトの名無しさん
2007/08/11(土) 01:01:23よくわかんないけど、ファイルの中身って、
さいたま[TAB]さい川[TAB]たま夫[改行]
とうきょう[TAB]ほげ川[TAB]ほげ子[改行]
おおさか[TAB]おお山[TAB]さか美[改行]
ってなってんの？まさか
さいたま[TAB]さい川[TAB]たま夫[TAB]
とうきょう[TAB]ほげ川[TAB]ほげ子[TAB]
おおさか[TAB]おお山[TAB]さか美[TAB]
じゃないよね？
>>531
エラーが出てるコントロールはずして、とりあえずセーブ。
もう一回プロジェクトを開いてエラーが出なくなったら、はずしたコントロールを再配置してみては？
0533デフォルトの名無しさん
2007/08/13(月) 11:25:07ご回答ありがとうございます。
ファイルの中身は
さいたま[TAB]さい川[TAB]たま夫[改行]
とうきょう[TAB]ほげ川[TAB]ほげ子[改行]
おおさか[TAB]おお山[TAB]さか美[改行]
ってなってますね。
秀丸で見てもそうなってます。
0534530
2007/08/13(月) 11:53:54ありがとうございます。
が、解決しませんでした。
それどころか全ての場合において発生したので、なんか根本的な所がダメみたい。
（ボタン１個配置のシンプル構成でも）
0535デフォルトの名無しさん
2007/08/13(月) 12:07:21改行コード「LF」をVBで「CR+LF」に置換する方法ってありますか？
>>532
ご回答ありがとうございます。
ファイルの中身は
0536デフォルトの名無しさん
2007/08/13(月) 13:37:28replace(hoge, vbLf, vbCrLf)
0537530
2007/08/13(月) 14:16:19右上のプロジェクトグループ・ツリーをダブルクリックで
Form画面を呼び出せることに気がついて解決。
おさわがせしました。
0538デフォルトの名無しさん
2007/08/14(火) 15:14:10特定条件によって変数に格納する、といった作業をやりたいのですが、
どうやればできますかね？
0539デフォルトの名無しさん
2007/08/14(火) 15:53:16どこから教えればいいんですかね？
とりあえずWebBrowserコントロールは見つけれた？
0540538
2007/08/14(火) 17:22:01WebBrowserコントロールを使えばよさそうだ、という所まではたどり着いたのですが、
どんなメソッドがあるのか、どのメソッドを利用すればいいのか等がさっぱりわかりません。
ネットで調べてみてもいろんなWebBrowserコントロールの情報が混在していてどれがどれやら…orz
0541デフォルトの名無しさん
2007/08/14(火) 17:33:17ＩＥｎｏwebbowserコントロールはHTMLDocumentオブジェクトをプロパティ .document で公開してるから
後はそこから調べるといいかも(DOMツリーなのでかなり広い)
情報あるなら使うコントロールの似たような名前で探して、それをやっていけばいいんじゃないかな
0542538
2007/08/14(火) 20:16:24HTMLDocumentオブジェクトまでは何とかたどり着いたんですが、
そこからがどうにもうまくいかんとです。
Set doc = WebBrowser1.Document
If TypeName(doc) = "HTMLDocument" Then
Form1.Caption = doc.Title
value = doc.body
End If
こんな感じじゃあかんのですかね…？
0543デフォルトの名無しさん
2007/08/14(火) 20:25:300544デフォルトの名無しさん
2007/08/14(火) 23:29:59目標はＤＱです。
とりあえず戦闘画面でも作ってみたい
0545デフォルトの名無しさん
2007/08/14(火) 23:47:12じゃあ先ずはアタマの中にある戦闘シーンを紙とエンピツでプロットしてみることだな
ソレが嫌なら諦めろ、途中で投げ出しても諦めろ、出来たらまた来い
0546デフォルトの名無しさん
2007/08/14(火) 23:53:01違うけどどうしたら同じ場所に違う内容が表示できるかわからない。
ようするに戦闘シーンのたたかう・にげる・じゅもんなんかを表示する
方法がわからないってことです
0547デフォルトの名無しさん
2007/08/14(火) 23:54:51とっても稚拙な方法も思いつかない？
たとえばMSPaint.exeで書いて、それを紙芝居風に表示するとかも？
0548デフォルトの名無しさん
2007/08/14(火) 23:56:18とりあえず時間があるならVBで１から作るんじゃなくて、
出来合いのRPGツクールとかで作ってしまうといいと思うよ
0549デフォルトの名無しさん
2007/08/20(月) 09:11:57ツクールじゃなくて、ゲーム作りたいんなら、まず簡単なじゃんけんゲームからで良し。
どうしてもRPG作りたかったら、
とりあえず自分で戦闘のフローチャート作成してみれ。
0550デフォルトの名無しさん
2007/08/20(月) 10:33:48戦闘終了条件もないクマ
0551デフォルトの名無しさん
2007/08/27(月) 16:04:24すんごい遅レスなんだけど
何かを作りたいと思う、その気持ちは大事だよ
俺も小学生のころ、ベーマガを解析したなぁ
今、ベーマガのようなＰＧ投稿雑誌が無いがとても悲しい
変わりに、ネットが発達してるからゲームをソースごと公開しているサイトでもさがして
ソース解析してみるのがいいかも
0552デフォルトの名無しさん
2007/08/28(火) 12:02:52VB5.0 + ActiveReport1.5で帳票を印刷していました。
環境はＸＰです。
去年ＳＰ２に上げたところ、
エラーログが出るようになりました。
ErrCode ：VB-2950
ErrMessage：予約済みエラー
ＳＰ２では対応できない と考えるべきでしょうか？
それとも
参照箇所を変えることで対応できるのでしょうか？
回答お願いします。
0553デフォルトの名無しさん
2007/08/28(火) 13:23:28こんなとこで聞くよりグレープシティに聞いたほうが早くね？
0554デフォルトの名無しさん
2007/08/28(火) 15:38:35異常終了(MSに報告する、しないの画面)が出るんだけどｗ
１００発１００中ですｗｗ
0555デフォルトの名無しさん
2007/08/28(火) 18:01:030556デフォルトの名無しさん
2007/08/28(火) 19:13:58エラーメッセージは？dllとかのエラーかな？
0557デフォルトの名無しさん
2007/08/29(水) 13:17:02そんなんいくらでも原因がボロボロでてくる情報だ罠
グチじゃないならもっと詳細書くといい
0558デフォルトの名無しさん
2007/08/29(水) 17:13:09レスありがとうございます。
会社で再インストールするように言われて
言われた通りにしたら直りました。
現象も出ないので原因ももう分かりませんｗｗ
0559デフォルトの名無しさん
2007/08/29(水) 21:11:44GOTOを使っちゃダメ、ってのはもはや「信仰」でしかないですよね？
ReturnやBreakを頻発させず、進行がすっきりすると判断される場合は、
躊躇なく使っていいものですよね？
0560デフォルトの名無しさん
2007/08/29(水) 21:16:14結局影の薄い存在となったことには変わりないな。
0561デフォルトの名無しさん
2007/08/29(水) 21:37:37いまどきアホ？って言われるな 精進しなされ
0562デフォルトの名無しさん
2007/08/29(水) 21:47:40例えば、Ifで条件分けをする場合など、その都度インデント入れますよね。
もし、その条件の値が最初から分かってる場合は、プロシージャの最初の方で
条件に合致しない場合を、プロシージャ最後の終了処理に直接飛ばすようにすると、
メインの処理部分は、ひとつインデント無しで書きやすく、見やすくなると思うんです。
条件が多く、WithやFor、Doなども必要な場合は、より効果的だと思うのです。
--------------------
If HOGE = False Then
Goto ENDP
End If
メイン処理
ENDP:
終了処理
--------------------
0563デフォルトの名無しさん
2007/08/29(水) 21:58:34自分の頭で物事判断できない教条主義的な馬鹿は別として。
0564デフォルトの名無しさん
2007/08/30(木) 22:57:31そいういう関数化が必要なのは関数にしてしまうのがいい
昔っからのGOTO禁止もあるけど、VB6がReturn文を陰ながらサポートしてることも忘れないでください
0565デフォルトの名無しさん
2007/08/30(木) 23:03:24GOTO文の本当の怖さは、無条件にジャンプできることじゃない
ジャンプした先で「なぜジャンプしてきたのか？」が曖昧になるからだ
0566デフォルトの名無しさん
2007/08/30(木) 23:29:35そんなもの通常は知る必要はない。
gotoを忌避すべき理由はそんな理由ではなくもっと単純なことだ。
実際に自分でスパゲティコード書いてみれば体感できるよ。
要するにコードを上から下に読めないことが端的に「ヒトにとって」問題なんだよ。
逆に言えば、goto使ってもコードを「上から下に読める」ことが維持されていれば
普通はそんなに可読性は破壊されない。
0567デフォルトの名無しさん
2007/08/30(木) 23:34:51それはgoto固有の問題じゃないよな？
0568デフォルトの名無しさん
2007/08/30(木) 23:39:00何をいってんだろうね
じゃあ逆に聞くが、goto以外で「下から上に戻る」コードを
書く方法を教えてくれよまったくw
ループとか寝ぼけたこと言うなよ
0569デフォルトの名無しさん
2007/08/31(金) 07:36:25Procedure line3
end
Procedure line2
end
Procedure line1
end
Procedure foo
call line1
call line2
call line3
end
みたいな？
0570559
2007/08/31(金) 11:56:57関数にして外に出すよりも、GOTOでそのプロシージャの末尾に置いておく方が、
可読性は破壊されないどころか、向上するのではないかと考えています。
その都度関数を作っていると、引数や戻り値の仕様もそのたびに
考えなくてはならない場合も多く、時間的にもGOTOを選んだ方がいい場合が、
必ずあるように思います。
↓こうなるよりは、>>562の方がよいと思うのですが・・・。
--------------------
If HOGE = False Then
Call 終了処理関数
Exit Sub
End If
メイン処理
Call 終了処理関数
--------------------
Function 終了処理関数()
終了処理
End Function
--------------------
スパゲティと教条主義以外に、GOTOを忌避する理由って、ありますか？
0571デフォルトの名無しさん
2007/08/31(金) 12:15:45そんなコーディングしか思いつかないのならいいんじゃない？
センスがいいとか悪いとか誰にも見せなきゃこまらないっしょ
0572デフォルトの名無しさん
2007/08/31(金) 12:37:06一つの関数しか呼ばれない処理をやたらと関数に括り出したくない、
という発想は必ずしも間違ってないと思う。（ただし、状況的に不適切な場合はあるよ）
ただ、570のような処理は別にgoto使わずに、かつ各場合分けに共通の処理を
関数に括り出さずに書けるだろう。
0573デフォルトの名無しさん
2007/08/31(金) 12:50:44gotoに賛成も反対する気も無いが、気になる
0574デフォルトの名無しさん
2007/08/31(金) 13:31:50こういうことでしょうか？
--------------------
If HOGE = True Then
メイン処理
End If
終了処理
--------------------
メイン処理が長くなり、WithやForなどでさらにインデントが挟まるような場合は、
>>562のような書き方の方が、見通しがいいと思いました。
例えが悪かったですね。
コーディングしている最中に、「ああ、ここでGOTO使えれば早いのになぁ」と
思う場面が出てくることがあるんですが、いざこういう話をするときに思い出せないです。
>>573
GOTO絶対不可な先輩も、On Errorのときだけは使ってますね
0575デフォルトの名無しさん
2007/08/31(金) 13:45:14On Error Gotoは意味合いが違うから除外
0576デフォルトの名無しさん
2007/08/31(金) 13:55:56On Error Goto Label
Error 513
On Error Goto 0
0577デフォルトの名無しさん
2007/08/31(金) 13:58:58gotoの動作としてはまったくかわらんよ
ローカル内で考えると、goto HANDLEがErr.Raiseって感じだし
やっぱり、gotoを絶対使わないという信条の人なら
On Error Resume Nextを使う必要があるんじゃないのかね
0578デフォルトの名無しさん
2007/08/31(金) 13:59:400579デフォルトの名無しさん
2007/08/31(金) 15:04:06は>>569見たいな状況
「上から下に読める」なんてドンだけフローチャートの世代なんだ
>>570(>>559)
>>564がぬるぽ
>>574
>>565がぬるぽみたいだ
「エラーでジャンプ」し尚且つErrオブジェクトで意味も参照できるからいいんじゃないかと
これは If cond Then A Else B 文で「condで A または B にジャンプ」という意味があるのと同じ
したがって >>576 はちょっとナンセンスな切り返しだ
ただVB6の言語仕様が昔ッからのを引きずっているのは確かで、
その状況で「GOTOを禁止する」ことが果たして万全なのかどうかは俺にはわからない
本嫁
0580デフォルトの名無しさん
2007/08/31(金) 15:07:150581デフォルトの名無しさん
2007/08/31(金) 19:04:45だから、教条主義的にgotoを禁止するのは馬鹿げてるけど
大概の処理はgoto無しで、かつgoto使った場合より可読的に書けるよ。
それと、なんか君は「コードを書く時」の目線ばかりを優先しているように見えるけど、
（どうしたらよりコンパクトに書けるか、みたいな）余計なお世話だろうがよくない兆候だよ。
「コードを読む時」目線で考えるべきだ。
つまり、他人にとって、あるいは一年後の自分にとって「読んで理解しやすいかどうか」を
(gotoならgotoの使用の是非の）判断の指針にすべきだ。
>>579
上から下に読み下せないコードはヒトにとって読みにくい、
という経験的事実がフローチャートとどう関係するんだろうねw
構造化プログラミングすら理解してないなら黙ってればいいのに。
ループ、分岐、関数、といった「構造」に抽象化するのは上から下に読み下すためだろう。
ループも分岐も、ループや分岐という概念を知らずそれを「ループ」や「分岐」として
認識できなければ、ただのgotoだ。
というか、日本語書けよ馬鹿。
0582559
2007/08/31(金) 20:25:54を意識しているつもりではいるのですが。
(GOTO嫌いな人にとって感情的に読む気が失せる・・・のは無視します)
「大概の処理をGOTOを使った場合より可読的に書く」
イメージがなかなか沸かないです・・・。
0583デフォルトの名無しさん
2007/09/01(土) 10:53:51飛び元と飛び先のロジックの関係を考慮しなくちゃならなくなるケースを考えてみるとか。
複数の場所から一つのラベルにGotoが貼られているとする。
仕様変更でラベル以降のロジックを修正しなきゃならなくたった場合、呼び元の全ての
ロジックへの影響を考慮しなくちゃいけない、とか。
0584デフォルトの名無しさん
2007/09/01(土) 13:28:47同じことを考慮しなくちゃならないと思うけど
0585デフォルトの名無しさん
2007/09/01(土) 17:41:41まあ本当に構造化プログラミングを理解してる人間なんていないと思うんだが
もしかして、構造化＝ソースの構造化、と間違えてる？
0586デフォルトの名無しさん
2007/09/01(土) 21:56:28実際にプレイする小中学生とかが
ターンとかロールなんて言われても何の意味だかわからんだろ。
やたらと横文字使えばいいってもんじゃねーぜ。
だから、ゲーム作る奴はバカって言われるんだよ。
もう一度言ってあげようか？
バ・カだよ。バ・カ
0587デフォルトの名無しさん
2007/09/01(土) 22:27:16vb関係ないし
日本語でおｋ
ってか人間でおｋ
0588デフォルトの名無しさん
2007/09/01(土) 22:52:040589デフォルトの名無しさん
2007/09/02(日) 05:10:05英単語覚えたな
昔のＡＤＶはコマンドをすべて、自分で考えて打ち込まなければならなかったしかも英語でｗ
もちろん小学生の頭じゃほとんど理解不能でクリアしたのはずっと後だったけど
0590デフォルトの名無しさん
2007/09/03(月) 09:18:24このIEのユーザーエージェントを変更する方法は
ありますでしょうか？
0591デフォルトの名無しさん
2007/09/03(月) 09:34:16navigateの引数にありました。
0592デフォルトの名無しさん
2007/09/03(月) 15:55:25SQL文の区切り（？）に使われている GO がエラーとなってしまいます。
'現在試している方法
Dim hTextStream As TextStream
Dim hFso As New FileSystemObject
Set hTextStream = hFso.OpenTextFile("foo.sql")
Call MyConnect.Execute(hTextStream.ReadAll())
foo.sqlは、EnterprizeManagerで作成したテーブル、ストアドプロシジャの削除、登録のSQL文で、
当然ながら、クエリアナライザでは正常に動作します。
クエリアナライザで実行する場合と同じ結果を、VB6で得られないでしょうか。
0593デフォルトの名無しさん
2007/09/03(月) 17:50:39GOはSQLコマンドじゃないからです。
ここ参照
ttp://technet.microsoft.com/ja-jp/library/ms188037.aspx
0594デフォルトの名無しさん
2007/09/03(月) 18:33:25GOを無視し（というか、//に置き換え）てやってみたら、希望通りの動作になった様です。
GOってのはあっても無くても動作に変わりは無いのですかね？
とりあえず、簡単に試したところ正常に動いているようなので、これでいってみたいと思います。
ありがとうございました。
0595デフォルトの名無しさん
2007/09/04(火) 02:52:37/＼＿＿_／ヽ ヽ
／ ::::::::::::::::＼ つ
. | ,,-‐‐ ‐‐-､ .:::| わ
| ､_(o)_,: _(o)_, :::|ぁぁ
. | ::< .::|あぁ
＼ /( [三] )ヽ ::／ああ
｀ー/-‐‐ヽ‐‐´ ぁあ
0596デフォルトの名無しさん
2007/09/06(木) 23:34:19配列を２つ作って一方がもう片方を参照するには
どうすればいいのでしょうか？
0597デフォルトの名無しさん
2007/09/07(金) 00:06:46VB6の配列は値型です（関数のByRefで渡した場合の仮引数は参照ですが）
どうしても、という場合はクラスでラップするか、関数の仮引数としてByRefで渡してあげてください
0598５９６
2007/09/07(金) 12:37:04試してみます
0599デフォルトの名無しさん
2007/09/07(金) 15:26:15氏ね
屑野郎
0600[Fn]＋[名無しさん]
2007/09/08(土) 11:46:27すみませんが，VISTAに普通にインストール＆使用は可能でしょうか。
動作可能にはなっていますが，特にインストールの必要なファイルなどは
あるのでしょうか？
0601デフォルトの名無しさん
2007/09/08(土) 12:03:05インストーラーのインストール手順に従っておけばおｋです
詳細については
ttp://www.microsoft.com/japan/msdn/vbasic/support/vistasupport.aspx
のHPを見てください
0602デフォルトの名無しさん
2007/09/08(土) 12:36:46http://pc11.2ch.net/test/read.cgi/tech/1189038267/37-38
ENDは使っちゃいけないのでしょうか？
0603[Fn]＋[名無しさん]
2007/09/08(土) 20:29:57ありがとうございます。
インストールしていますが，問題ありのメッセージが２度ほど出てきます。
無視して続行していますが，大丈夫しょうか。
0604デフォルトの名無しさん
2007/09/10(月) 16:19:20ドロップダウンリストのどっちを使うか悩む事ってないですか？
どういう判断基準で、使い分けしてますか？
0605デフォルトの名無しさん
2007/09/10(月) 18:37:30考えるな感じ取れ、だよ。
【ドロップダウン】
○ 省スペース
× 選択肢の「見通し」が悪い。
ラジオボタンはこのちょうど反対。
0606デフォルトの名無しさん
2007/09/11(火) 23:32:20ファイルの送受信(メッセンジャー等に付いている様な)を行うプログラムを作成したいと
考えているのですが、ＶＢ６．０にそのような機能はついているのでしょうか？
また、上に挙げた様な機能がなくともそのようなプログラムを作成する事は可能なのでしょうか？
もし参考になりそうな本等がありましたら教えていただけると幸いです。
0607デフォルトの名無しさん
2007/09/11(火) 23:36:18ついてない。
> そのようなプログラムを作成する事は可能なのでしょうか？
可能。
> もし参考になりそうな本等がありましたら教えていただけると幸いです。
「○日でできるVB6.0」とか「VB6.0入門」とか、そういう系統。
0608デフォルトの名無しさん
2007/09/13(木) 13:50:31数量、単価、金額、消費税、原価率・・・などなどの四則演算を行う場合、
各々のデータ型をどう定義したら良いのでしょう。
VBでSingle/Double
SQLSERVERでfloat/decimal
ネットとかでよく見かけるのは、これらの浮動小数点型なんですが、
これって誤差がつきものですよね？
システム上同じ数字を出す全箇所について、必ず同じ計算ロジックを通すという
コーディング制約を設けて、それを遵守しないと、絶対どこかで誤差が出ますよね？
さらに、VBはDouble(倍精度)、SQLはfloat(単精度)などの定義をしている
例をことさらよく見かけますが、こんなのはアリなんでしょうか？
「金額が関わるところに浮動小数点を使うのはあり得ない」と断言しているサイトも
どこかで見ました。
必ず固定小数点型、VBはCurrency・SQLはmoneyだろう、スピードは落ちると言っても、
最近の機械ならそれこそ誤差の範囲だ・・・という感じの紹介で。
私も、数字に誤差の出ない固定小数点がいいんじゃないかなー、と思っています。
でも、現実はどちらかといえばそうじゃないことの方が多い・・・・
一般的には、どう考えるものなんでしょうか。
0609デフォルトの名無しさん
2007/09/13(木) 14:10:230610608
2007/09/13(木) 14:21:19decimalは概数型じゃないですね。
SQLSERVERでの単精度はreal、倍制度はfloat。
VBはDoubleでSQLはfloatなのは、データ型としては同じだから、
そこは問題ないんですね。
>>609
エクセルのセルに値を渡して、シート関数で計算させて
結果を読むってことでしょうか？
0611デフォルトの名無しさん
2007/09/13(木) 14:48:13Currency/Decimalだって何進法でも起こる誤差を避けることは不可能。
ただ、十進法で有限小数となる値の中には、
二進法へ変換すると無限小数になるので正確に表現できない、
つまり有限桁しか扱えないコンピュータでは、それだけで打切り誤差が発生するものがある。
だから十進法中心に考える人間には、一見すると誤差が付き物に思えるだけ。
もちろん、金融では致命的な弱点となるので、Single/Doubleは脱落。
また十進法の浮動小数点数 (VBのDecimal)はどうかというと、
下手に計算すれば情報落ちが問題になりやすいし、
VB固有の事情としてDecimal型の値はVariantに入れるしかないという
不便さもあって、駄目ではないが要注意。
そんなわけでCurrencyに落ち着く。もちろん整数だけなら整数型がよい。
0612デフォルトの名無しさん
2007/09/13(木) 14:52:17全部浮動小数点でＯＫ
最終的に、小数点以下の金額にならないように
１円まで切り上げるでしょ？
その時に元の金額（整数）を使って金額の誤差がないか
1円の増減がないかを再計算するのさ～
経理、給与計算プログラムの常識だよ～
0613デフォルトの名無しさん
2007/09/13(木) 14:56:320614デフォルトの名無しさん
2007/09/13(木) 15:02:090615デフォルトの名無しさん
2007/09/13(木) 16:38:19軽くぐぐってみました。
一般的な企業の販売仕入や財務、給与などのシステムでは、
まず無理数の計算などは行われないし、丸めだけしかるべき関数を作れば、
やっぱりVB:Currency SQL:moneyで十分対応できますよね？
>>612
> 元の金額（整数）
この整数って、どの段階で出てるものでしょう・・・？
また、これを使って金額の誤差・増減の有無を、・・・再計算？
すみません、よくわかりません・・・
0616デフォルトの名無しさん
2007/09/15(土) 11:51:10これを確実に終了させるにはどうしたらいいのですか？
0617デフォルトの名無しさん
2007/09/16(日) 01:35:49それは変な話だな・・・
自分自身はEndでたいてい残らずに消えるはずですが。
むしろ自分以外のリソースやプロセスが残る可能性がある。
あ、でも>>616はどのプロセスが残ってるのかまでは書いてないのか。
どうなんでしょう？
一般論としては、UnloadやTerminateイベントでリソースの後始末をして
Endを使わないように、ということです。
Endを使わないとそれこそ残る、というならそれは潜在的なバグだ。
0618看護婦
2007/09/16(日) 19:50:07「問題が発生したためＶＢを終了～」
「ｱﾌﾟﾘｴﾗｰ "0x04246c88"の命令が"0x1da1adad"のメモリを参照しました。メモリが"written"になることはできませんでした。」
とのこと。
これって何がダメなんですか？
どなたかお願いします。
0619デフォルトの名無しさん
2007/09/16(日) 19:53:50リンクアドレスの<a href=～>タグのアドレス部分は下記で取得できたのですが、
str=Pattern"<a href=""([^>]*(\.jpg|\.gif|\.png))"" target=""_blank"">(.*)</a>"
単純に、http://abc.defg.net/hijk/lmn.jpg
とかの単純なjpgファイルへのアドレス文字列の正規表現が思いつきません。
教えてください。
0620デフォルトの名無しさん
2007/09/16(日) 22:48:31あとはURLかどうか調べるAPIがあったはずだからそれに任せる。
0621619
2007/09/16(日) 23:28:290622デフォルトの名無しさん
2007/09/17(月) 16:10:45いや～それだけの情報だと
"0x04246c88"の命令が"0x1da1adad"のメモリを参照するのが
ダメなんじゃないかなあ～としか。
F9やF8でダメな行を特定してみましょう。
あとここはささくれだった人が多いので、「エスパーｗ」みたいな
書き込みは華麗にスルーしてください。みんなイライラしています。
0623看護婦
2007/09/17(月) 17:13:39＞＞６６２ お騒がせしてすいませんでした。
0624デフォルトの名無しさん
2007/09/22(土) 07:33:11自分で書いてたのが、loopしまくりで自分でワケわからなくなってしまいました。
なにか簡単な方法がありますかね？
0625デフォルトの名無しさん
2007/09/22(土) 09:16:29> 2007年の第３木曜日
ちょっとおかしいよな．適当に月指定があるもんだとしたぞ．
だめでも，下の関数使える．
しかもついでに，2007/9/18は第３火曜日だ．
Public Function XthWeekDay( _
ByVal Year As Long, _
ByVal Month As Long, _
ByVal x As Long, _
Optional ByVal week_day As VbDayOfWeek = VbDayOfWeek.vbSunday) As Date
XthWeekDay = DateSerial(Year, Month, 1)
While Weekday(XthWeekDay) <> week_day: XthWeekDay = XthWeekDay + 1: Wend
XthWeekDay = XthWeekDay + 7 * (x - 1)
End Function
で， format$(form1.XthWeekDay(2007,9,3,vbTuesday),"yyyymmdd") みたいに．
0626デフォルトの名無しさん
2007/09/23(日) 16:48:16VBAでいうとApplication.Screenupdateみたいなのってありますでしょうか？
sub main()
Label1.caption = "処理を実行中です"
'この時点でフォームに実行中の表示をさせたいんです
call データベースに接続
Label1.caption = "処理が完了しました"
End sub
0627デフォルトの名無しさん
2007/09/23(日) 17:13:44VBAよくしらんけど
0629デフォルトの名無しさん
2007/09/25(火) 18:32:59VB6.0で作られてるのをAccess2000のVBAで作ってみてるんですが互換性はあるんでしょうか。
wiki見る限りVB７から互換性はないとのことだし
できることならそのまま流用、自己解読のためにも互換性の有無を教えていただけるとありがたいです。
0630デフォルトの名無しさん
2007/09/25(火) 18:34:400631デフォルトの名無しさん
2007/09/25(火) 23:26:59VBの言語仕様自体は共通。
ただしフォーム等のオブジェクト構造はほぼ別物。
ほとんどの場合、コピペするだけじゃ動かないと思っておいたほうが良い。
0632629
2007/09/26(水) 17:54:23言語が一緒、ということは片方がわかればもう片方もわかる、というわけでもないか
もう少しソースとにらめっこしてきます。ありがとうございます。
0633デフォルトの名無しさん
2007/09/27(木) 13:16:16Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Text() = "動作中"
Timer1.Interval = ComboBox1.Text
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Button1.Text() = "時間です"
Beep()
Timer1.Enabled = False
End Sub
End Class
という、タイマーのプログラムを作ったのですが、
タイマーの動作中はButton1をクリックできないようにしたいのですが、
どのようにプログラムを変えればよいのでしょうか？
お教えください。よろしくおねがいします。
0634デフォルトの名無しさん
2007/09/27(木) 14:16:30Button1_Clickの時に、
Button1.Enabled = False
で良いのでは？
あと、Timer1_Tickで
Button1.Enabled = true
で戻しとく
0635デフォルトの名無しさん
2007/09/27(木) 14:53:20なるほど、有り難うございます。
ってことは、
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Text() = "動作中"
Timer1.Interval = ComboBox1.Text
Button1.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Button1.Text() = "時間です"
Button1.Enabled = true
Beep()
Timer1.Enabled = False
End Sub
End Class
で、よいのでしょうか・・？
初心者なものですみません・・・。
0636デフォルトの名無しさん
2007/09/27(木) 15:07:45それで動くかわかりません、環境が無いもので。。
しかし、コードを記述する場所はそれでいいんじゃないでしょうか
とりあえず、Button1.Enabled = False は使用不可にする意味ですので、
実現したい場所に記述して下さい。
ちなみに、.NETの質問はこちらに
ttp://pc11.2ch.net/test/read.cgi/tech/1189038267/l50
0637デフォルトの名無しさん
2007/09/27(木) 15:16:32わかりました。ありがとうございました。
スレ違いでしたか・・。すみませんでした。
0638デフォルトの名無しさん
2007/09/28(金) 18:00:27ttp://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200512/05120059.txt
でVB6でpdfのページ数を求めるソースがあるのですが、
５ AcroPDF:AcroPDF1 を Form1 に貼り付ける
この意味が判りません。何をどうすればよいのでしょうか？
ここ以前まではできたと思います
（生成したクラスの名前をClass1からtagWndに変更するなどを含め）。
Adobe Reader 7.0はインストール済み、WindowsXPです。
よろしくおねがいします。
0639638
2007/09/28(金) 18:15:29実行→完全コンパイル後に開始
を行うと、変数「AcroPDF1」がハイライトされ、「コンパイルエラー：変数が定義されていません」
と表示されます
0640デフォルトの名無しさん
2007/09/28(金) 19:28:580641デフォルトの名無しさん
2007/09/28(金) 20:46:440642デフォルトの名無しさん
2007/09/28(金) 23:20:53これ書いたの俺だけど，
とりあえず，
> ４ [プロジェクト]-[コンポーネント]
> -[Adobe Acrobat 7.0 Browser Control Type Library 1.0]
> にチェックを入れる
はちゃんとチェック入れた？
チェック入れているなら，VBのツールボックス(ボタンとかテキストボックスとかピクチャボックスがあるアレ)
にAcroPDFのツールが選択可能になるから，ソレをForm1のデザイナに貼り付ければおｋ
ってか動くかどうか確かめてみた
ttp://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/4989.zip
動くね．(要AcrobatPDF 7)
0643デフォルトの名無しさん
2007/09/29(土) 14:16:43ありがとうございます。書いてあるとおりチェックは入れております。
AcroPDFのツールをForm1のフォームに貼り付けてみました。
ですが、メニューを押してもページ数が表示されるとかそういった事は起こりません。
まず「PDFファイルパスを入力してください」というウィンドウが出るので入力してOKを押します。
するとForm1というタイトルのあるウィンドウが出てきますが、この時「AcroPDFのツール」を
貼り付けた部分は透明になり、その下にある画面が表示されます。そしてメニュー（pGetPageCount）を押すと
ディスクアクセスは起こるようですが何の変化も起こりません。うｐして頂いたzipを解凍してやっても同様です。
「（フリーの）Adobe Reader 7.0が必要」なのではなくて「（製品の）Adobe Acrobat 7」などが必要なのでしょうか？
まあそういった事で駄目なら他の方法を探しますorz
0644デフォルトの名無しさん
2007/09/29(土) 20:02:34表示するプログラム作らないといけないんですが
APIの使い方が分かりません
0645デフォルトの名無しさん
2007/09/30(日) 00:21:420646デフォルトの名無しさん
2007/09/30(日) 02:41:22APIは初心者向けの内容じゃないから他スレで聞いた方がいいですハゲ。
自分自身のプロセス（exe）内だったらForm.ZOrderとかがあります。
他プロセスだったら、使うのはFindWindowとかSetForeGroundWindowだと思います。
あとはググレカス。
あと、最近のWindowsは他プロセスのウィンドウを手前にしようとかしても
点滅するだけで手前に来ないようになってます。よろしく。
0647デフォルトの名無しさん
2007/09/30(日) 07:00:59遅くなった
うーん，確実に俺の環境とは違うなぁ
とりあえず，動作検証用にＳＳ貼り付けるから，こちらで確認できる正常動作を見てくれ：
ttp://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/4993.zip
> 「（フリーの）Adobe Reader 7.0が必要」なのではなくて「（製品の）Adobe Acrobat 7」などが必要なのでしょうか？
そんなことはないぉ
Adobe Reader 7.0(バージョン7.0.7)で確認しているぉ（＾ω＾
あと，Adobe PDF ReaderでActiveXコントロールとして表示されない，をググると…
ttp://www.google.co.jp/search?complete=1&hl=ja&q=Adobe+PDF+Reader+ActiveX%E3%80%80%E8%A1%A8%E7%A4%BA%E3%81%95%E3%82%8C%E3%81%AA%E3%81%84&lr=&aq=null
あとはよーわからん
0648デフォルトの名無しさん
2007/09/30(日) 13:04:220649デフォルトの名無しさん
2007/10/01(月) 08:14:46何度もありがとうございます。原因を探してみます。
矢張り当方が根本的な部分で理解していない可能性もある訳ですしねorz
0650デフォルトの名無しさん
2007/10/03(水) 10:10:43あのう、IEのﾂｰﾙ->ｲﾝﾀｰﾈｯﾄｵﾌﾟｼｮﾝで出てくるような、タブコントロールの
乗ったダイアログで、かつそこでの設定変更をリアルタイム（というかイ
ンタラクティブ）で、元のウィンドウに反映されるようなのをダイアログ
を作りたいのですが、
（つまり、適用を押さなくてもラジオボタンとかを
変えただけで変更が反映されるような）
これはやはり
－フォームで自作する
－ラジオボタンの変更イベントをキャッチしてイベントドリブンで自分で作る
という感じで皆さんやっておられるのでしょうか？
なんかいいアクティブXとか標準のコンポーネントとかありますでしょうか。
なにとぞよろしこ。
0651デフォルトの名無しさん
2007/10/03(水) 10:16:41逆にあったら不便だろ
言わなくても分かってると思うから今後誰か見たときのためにかくけど，自分中心で考えたら世の中まわりゃせんよ．
VB6はそのへんの処理の抽象化があまり出来ない言語だからゴリゴリ作るしかほかない．
何かデザパタ参照するとちょっとは楽できるかもしれんが．
0652650
2007/10/03(水) 11:12:21おせわになりましこ。結構ググりまくって自分の理解ぎりぎりのところで
文章書いているので変な日本語スンマソン。
＞デザパタ
ググッテみたらアプリケーションウィザードでいろいろ作ってみるというのを
ﾊｹｰﾝしてワクテカしながらいろいろ作ってみたけど肝心のツール->オプション
が空で、実行したら「てめえでコードを記述すれ」と言われてｶﾞｶｰﾘｼﾀｰﾖ。
なんか、近いのご存じでっか？
0653デフォルトの名無しさん
2007/10/03(水) 11:55:09デザパタはこちら：
ttp://ja.wikipedia.org/wiki/%E3%83%87%E3%82%B6%E3%82%A4%E3%83%B3%E3%83%91%E3%82%BF%E3%83%BC%E3%83%B3_%28%E3%82%BD%E3%83%95%E3%83%88%E3%82%A6%E3%82%A7%E3%82%A2%29
別に万能の利器でもなんでもない，デザインパターンだから何かツール的な使い方があるわけでもない．
けど考えるとき便利．
今回の件でもっとも難しいのが，やりたいことが余りにも抽象的な位置に属していること．
全てをひっくるめると「何か行動したとき [イベントが発火したとき] に何かしたい [アクションを起こしたい] 」ってことに纏まるわけだが，
これじゃあイベントドリブンそのものを言っているに過ぎない．
こういうものは，結局「何でも使えるけど何にも使えない」物なので，
仮にツールやフレームワークとして提供されていてもほとんど自分で書かなくては成らない．
/*
抽象的な表現からもうちょっと掘り下げて，たとえば「特定のボタンを押したときに，特定のウィンドウに"A"を表示する」
程度だったらちょっとはツールキットとして成立するかもしれん．
*/
まあ，現状の説明で作るってんならゴリゴリ書いていくしか無いだろうね．
0654650
2007/10/03(水) 13:16:51サンクスコ。そんな回答でいいの。
もともと抽象的というか、何から手をつけて良いのかわからない段階だったので、
テンプレになるものが「ある」のか「無い」のかわかればそんでいいの。
誰もが一度は通るべき道を掲示板で聞いて楽しようと思っているのではなくて、
誰もが利用している便利なテンプレがあるのを知らずに何ヶ月も悩むのを避けた
いだけなので、みながゴリゴリ作っている事だと分かれば安心してフルパワーを
つぎ込んだりあっさり諦めたりできる。その割り切りができるのがありがたいの。
しっかし「デザインパターン」ってのも一種の予約語なんだな。サンキュスコ。
世話になったね。
0655デフォルトの名無しさん
2007/10/03(水) 18:48:20なんか変なアドバイスをしてる人がいるけど、別に君が欲しがってる様なUIは
必ずしも変ではないし、またデザインパターンなんて大げさなこと言わなくても
実現できるよ。
大雑把にはこんな方針でやればいい。
■ 設定値は（その設定が属する「存在」を抽象化した）クラスのCHogeの
プロパティとして実装する。
■ Form1（君のいう「元のウィンドウ」）と設定用フォームSettingFormには、
どちらもCHogeの同じインスタンスHogeへの参照を持たせる。
■ Hogeは設定値が変更されたとき、イベントを生成する。Form1はこのイベントを
受信して設定値の表示を更新する。
■ SettingFormのコントロールの値が変更された時、Hogeのプロパティを連動して変更する。
というか、普通このぐらいのことは自分で思いつかなきゃダメダメだな。
そんな程度ならいまさらVB6なんて終わってる言語やってもしょうがないと思う。
0656デフォルトの名無しさん
2007/10/03(水) 22:09:43ってだからそれ自体は普通のイベントの発火とアクションだって．
しかも親子で明示的に参照しあってると循環参照になるから普通はWithEvents使うって．
…って言っても分かってくれないんならもういいや
0657デフォルトの名無しさん
2007/10/03(水) 22:24:34655の文章のどの部分に対して「ってだから」なんだ？
訳が分からんよ
0658デフォルトの名無しさん
2007/10/03(水) 22:34:00>…って言っても分かってくれないんならもういいや
むしろこっちの方がもういいや
0659デフォルトの名無しさん
2007/10/03(水) 22:42:54全部だよ．
>>655の書いてることは，要はイベントの発火とハンドリングをVB6のイベント処理とは別の独自の方法でやるってことだろ？
非標準な方法を使うと色々コストが高くつくし，
何より「イベントの発火の結果何をするかは設定要素次第」なんて言ったら，
もはや「イベントは発火するけどその結果をどう使うかは貴方次第」ってことになって，
>>653で述べた結果になると思うってことだ．
つまり，それは「何でも使えるけど何にも使えない」物になるってこと．
具体的に>>655だと，たとえば
■ SettingFormのコントロールの値が変更された時、Hogeのプロパティを連動して変更する。
の部分が「何にも使えるけど何にも使えない」部分だと思われ．
「Hogeのプロパティを『～のように』連動して変更する」だったらまだ使い物になる．
けれど「Hogeのプロパティを変更する」じゃ，アタマ空っぽの人間に仕事を押し付けてるようなもんだ．
まとめると，もともとの>>650のしたいことは”イベントを処理すること”を工夫するのではなくて，
”イベントによって行う処理”を工夫して纏めることだと思うんだが，
あえてイベント処理自体を自力で実装する>>655はお門違いだと思うってことだ．
>>657へ．
ちゃんと日本語で具体的に書いたぞ．
そっちも具体的に書いてね
0660デフォルトの名無しさん
2007/10/03(水) 22:49:13> またデザインパターンなんて大げさなこと
大げさか。
0661デフォルトの名無しさん
2007/10/03(水) 22:55:21＞要はイベントの発火とハンドリングをVB6のイベント処理とは別の独自の方法でやるってことだろ？
誰もそんなこと書いてないよ。
後の部分については、言っては悪いが日本語になってない。
リカイデキマセン。
まあよく分かってないならあんまり無理しなさんな。
0662デフォルトの名無しさん
2007/10/03(水) 22:58:140663デフォルトの名無しさん
2007/10/03(水) 23:01:44> 誰もそんなこと書いてないよ。
じゃあなんて言いたいの？
理解できない部分があるのはお互い様だろ．
0664デフォルトの名無しさん
2007/10/03(水) 23:05:50むしろ>>655のどこをどう読めば
「イベントの発火とハンドリングをVB6のイベント処理とは別の独自の方法でやる」
なんてユニークな解釈ができるの？
「くだすれ」だから当該言語について初心者なのはまあ許されるかもしれないが（でも
お前さん回答者なんだろw）日本語の読解および表現力に関して初心者なのはどうなのよw
0665デフォルトの名無しさん
2007/10/03(水) 23:09:03>■ 設定値は（その設定が属する「存在」を抽象化した）クラスのCHogeの
>プロパティとして実装する。
の「存在」とか言う部分も相当ユニークだと思うが・・・
まあいいや，解釈がユニークなのは誰しも当たり前だし，
当たり前のこと言ってる奴見るのも飽きるからそろそろ寝る
またな
0666デフォルトの名無しさん
2007/10/03(水) 23:12:02ん？
でも>>655って結局は「イベントを処理する」って言いたいだけじゃないのか？
0667デフォルトの名無しさん
2007/10/03(水) 23:23:33ピクチャボックスに画ごとに色分けて作った｢あ」という画像を表示して、
画順にPSetで塗りつぶしていくってのを作ってみたんですが、
１画塗り終わるのにめっさ時間がかかってしまうんです。
なにか、早くスムーズに、塗りつぶしていく方法ってあるでしょうか？
0668デフォルトの名無しさん
2007/10/03(水) 23:25:480669デフォルトの名無しさん
2007/10/08(月) 19:54:23ActiveXを使ってやろうと思っているのですが、GrapeCity以外で、何かよいものをご存じありませんか?
0670デフォルトの名無しさん
2007/10/08(月) 19:55:58http://www.hi-ho.ne.jp/babaq/
0671デフォルトの名無しさん
2007/10/09(火) 17:27:25VB 2005でデスクトップマスコットを制作しているのですが、
マスコットとメッセージの同期移動がどうしても上手くいきません。
それぞれ個別のフォームで表示させていて、
タイトルバーを非表示にしてある状態で
↓のサイトを参考に同時移動の処理を考えたのですが
どうしても上手くいきません。
ttp://dobon.net/vb/dotnet/form/moveform.html
何か良い案は無いでしょうか？
よろしくお願いします。
0672671
2007/10/09(火) 17:35:35スレ違いでした。
0673デフォルトの名無しさん
2007/10/09(火) 18:33:41情報ありがとうございます。
これから、使用例など見て検討したいと思います。
個人の作者さんというのがちょっとネックか？というところです。
0674デフォルトの名無しさん
2007/10/10(水) 23:26:41VB6で変数を宣言しなきゃバリアントになるというのはどこみても書いて
ありますが、その時のスコープはどうなるんでしょうか？
これも標準モジュールかフォームかクラスモジュールかによって違うんでしょうか？
いや、自分で書くときゃ必ずOption Explicitなんですが、買ってきた本に
書いてあるコードが理解できない。。。
0675デフォルトの名無しさん
2007/10/10(水) 23:36:49基本的に閉じたスコープで宣言したものになるはず
0676デフォルトの名無しさん
2007/10/10(水) 23:38:120677674
2007/10/11(木) 00:05:45回答感謝。ググッテみたところそのものずばりは出てこないけど、
つまり使われているルーチン（プロシージャとかファンクションとか）
と同じになるって事？
（未宣言の変数がパブリックプロシージャで使われていれば、
その変数もパブリックになると？）
0678デフォルトの名無しさん
2007/10/11(木) 00:11:560679デフォルトの名無しさん
2007/10/11(木) 00:13:52自分の居るスコープで宣言したのと同じになるってこと．
というか変数を使う段階がメソッド内部でしかないから，メソッドで宣言したものと同じになる
はずね
0680デフォルトの名無しさん
2007/10/11(木) 00:16:43VB スコープ でググったら、そのものずばりがでてきたけど
0681デフォルトの名無しさん
2007/10/11(木) 00:40:44MSDN
0682デフォルトの名無しさん
2007/10/12(金) 13:21:07MVP
0683デフォルトの名無しさん
2007/10/14(日) 14:06:00このように棒状の図形をドラッグで繋げていって1日のスケジュールを作りたいのですが
つなげたい場所付近でドロップすればぴったり吸い付くように張り付く動作をさせるには
どうしたらいいですか?
0684デフォルトの名無しさん
2007/10/14(日) 14:10:39移動先が次の棒の先端を越えたら、必ずその次の棒の先端と同じ座標に、
今の棒の移動先が固定されるようにすればいいんじゃ？
0685デフォルトの名無しさん
2007/10/15(月) 18:10:23Private Sub Button1_Click(・・・)
Dim k, i
k = 0 ← こっちが前？
For i = 1 To 10
k = k + i
Next
Button1.Text() = k ← こっちが前？
End Sub
0686デフォルトの名無しさん
2007/10/15(月) 18:55:510687デフォルトの名無しさん
2007/10/15(月) 21:37:05>>685のコード懐かしいな。VB6買った当時はまだ高校生で何となく
>>685見たいな１～Nまで足す簡単なプログラム組んで遊んでたな。
0688デフォルトの名無しさん
2007/10/15(月) 22:46:110689デフォルトの名無しさん
2007/10/16(火) 01:49:05ェクトとして文書を取り扱うことができるようにはなっておらず、Wordの操
作がそのままステートメント（命令語）として提供されていたため」と説明
されているのですが、意味が理解できません。どなたか、噛み砕いて説明し
てください。
0690デフォルトの名無しさん
2007/10/16(火) 07:01:12「前方」 と言うと、ファイルの最後の方向を指す。
0691デフォルトの名無しさん
2007/10/16(火) 07:08:20んでこれは forward の直訳なんだけど、あまり好きでないのは確か。
個人的にはあまり前後で表現しない方がいいと思う。
0692デフォルトの名無しさん
2007/10/16(火) 10:49:53じゃあ先ず噛み砕いて説明して欲しい理由を噛み砕いて説明してください
0693デフォルトの名無しさん
2007/10/16(火) 13:46:15質問です。
環境 WinNT4.5 + VB5
"プリンタのスプールを制御して、特定のプリンタでは必ず2枚印刷する"
みたいなモノはVBで作成できますか？
業務用ソフトで、領収証の正副印刷が対応されてなくて、
ドライバに印刷部数設定がないので不便を感じており、フリーソフトを探しましたが
見つからず、VBなら触ったことがあるので、どうにか業務を改善したいのです。
どなたかご教示お願い申し上げます。
乱文すみません
0694デフォルトの名無しさん
2007/10/16(火) 23:04:04ちなみに質問の答えは「無理」。
0695デフォルトの名無しさん
2007/10/16(火) 23:07:160696デフォルトの名無しさん
2007/10/16(火) 23:17:23はいはい。
自慢したいだけの厨房は自分のケツの穴に自分のチンコを突っ込んでオナってろや。
おまいが出来ても意味が無い。
質問主ができなきゃどうしようも無いんだよ。
0697デフォルトの名無しさん
2007/10/16(火) 23:34:050698デフォルトの名無しさん
2007/10/16(火) 23:42:32こないだ免許切り替えに行ったら今でもドットインパクトプリンタだったよ。
で、ドットインパクトプリンタって１枚切り取ると必ずもう１枚無駄が出るから
それを避けるために自分の番が済んだら次の人が済むまで待たされて
次の番の人の分がプリントアウトされたら自分の分のプリントアウトがもらえるという
なんとも悲しくなる運用だったよ。
0699デフォルトの名無しさん
2007/10/17(水) 00:01:14DBComboを貼り付けてみたのですがプロパティの設定で躓いているのかリストが空っぽです
どなたか設定方法を教えてください
0700デフォルトの名無しさん
2007/10/17(水) 02:01:290701693
2007/10/17(水) 10:58:58みなさん レスありがとうございます。
>694さん
メーカーには何度もお願いしていますが、仕様なのでとのことで直してくれません。
やっぱり無理ですか。
>697さん
プリンタのドライバには部数設定がないのです。
ドットインパクトプリンタ EPSON VP880
>698さん
複写紙はコストが掛かるのでNGです(By社長)
VBでは無理のようですね。
みなさん 情報ありがとうございました。
0702デフォルトの名無しさん
2007/10/17(水) 11:04:200703デフォルトの名無しさん
2007/10/17(水) 14:35:540704689
2007/10/17(水) 21:19:08うぅ、すみません、そこまでしっかりとした理由じゃないんです。
ただの好奇心でプログラムの体系を学んでいるんですが、先の箇所が
何を言わんとしているのかイメージできなかったもので・・・。
0705デフォルトの名無しさん
2007/10/23(火) 07:46:45PDFにはいて、アクロバットリーダーをコマンドラインから呼んで印刷したらどう？
印刷したいものをPDFで出力。
↓
バッチファイルでもVBでもいいのでコマンドラインでPDFを２回印刷し
そのご削除するプログラムを起動。
って運用
AcrobatreaderのコマンドラインオプションについてはDeveloperFAQ.pdfってに書いてある
らしい
この運用は今よりましかどうかは微妙だなー。
0706デフォルトの名無しさん
2007/11/03(土) 23:42:45XP EXCEL2000
マクロでIEを起動してSendkeysで入力した後切り替わったページの内容をファイルで吐き出すプログラム作ってるんですけど、３、４回実行した辺りから処理が重くなりまともにキーが送れなくなります。タスクマネージャーで見たところSYSTEMが100%近くまで来てました。
これって何ですか？
0707デフォルトの名無しさん
2007/11/03(土) 23:47:28ここでいいわけねえだろ糞野郎
氏ねボケカス
0708デフォルトの名無しさん
2007/11/04(日) 00:04:12うはっ、早速のレス有難う御座います。
その後、こりゃ駄目だとEXCEL閉じたんですけど状況変わらずでPC再起動してやっと回復したんですけどまた何度か実行すると同じようになります。
似たような経験のある方とかいらっしゃいませんか？
0709デフォルトの名無しさん
2007/11/04(日) 00:34:29さすがにスレ違いの質問はダメだろ。ここはVB6.0以前の場所。
プログラム板に助けてくれそうなスレがちゃんとあっからそっちで質問してみ。
0710デフォルトの名無しさん
2007/11/04(日) 00:34:51SendKeysを確実じゃないかと主運だけ尾d。
0711デフォルトの名無しさん
2007/11/04(日) 01:36:55此処って良スレなんですね、改めて感動しました。
>>710
そうですね。
作り直します。
有り難う御座いました。
0712デフォルトの名無しさん
2007/11/05(月) 03:43:38{enter}のsendkeysは危険だよ
0713706
2007/11/05(月) 06:01:04今やっと直し終わりました。
今度はバッチリ動いてます！
ありがとうございました。
>>711
はい、ENTERも使ってました。
Sendkeysってなんか使いづらいんですね。
0714デフォルトの名無しさん
2007/11/05(月) 16:02:43どうやるんですか？
0715デフォルトの名無しさん
2007/11/05(月) 16:25:35死ね役立たず。
人の足引っ張って楽しいかゴミクズ。
今すぐ死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。ｖ死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。死ね。
0716デフォルトの名無しさん
2007/11/06(火) 18:56:09楽しそうだな。
２ちゃんのすれ相手じゃなくて 本当にいいたい奴にいったらもっとすっきりするぞ。
俺も毎日いいたいのを我慢してるよ。
0717デフォルトの名無しさん
2007/11/07(水) 22:33:30ACCESSに接続してログイン可能か判断するコード教えて下さい。
0718デフォルトの名無しさん
2007/11/07(水) 22:44:13誰もが斯様なのですね…
,..ｱﾅｽｲ ﾄﾓﾀﾞﾁﾉ ﾍﾞﾝｷｮｳｦ ｽｽﾒﾃ ﾔﾚﾖ…
,level
…(+ΦyΦ)…
‘ﾜﾀｼﾊ ﾁｭｳｶﾞｸﾆﾈﾝﾆﾅﾘﾏｽ…
0719デフォルトの名無しさん
2007/11/08(木) 21:14:24じゃあまずIDとPASSを 入力しないで ACCESSに接続してログイン可能か判断するコード書け
0720デフォルトの名無しさん
2007/11/11(日) 11:18:37ADSIとか？といってみるテスト。
717ではないが・・
ADSIってVB6で使えるんかなぁ？
試したことないけど
0721デフォルトの名無しさん
2007/11/20(火) 19:13:49○○をさせたいって思ったときに具体的なコードが検討も付きません
なにかぐぐる時のコツ的なものないですかね？
0722デフォルトの名無しさん
2007/11/20(火) 19:26:08アルゴリズム辞典とか
0723デフォルトの名無しさん
2007/11/20(火) 19:34:14今更VB6なんて始めてんじゃねえよドアホ
0724デフォルトの名無しさん
2007/11/20(火) 20:14:30ありがとうございます
残念ながら見てもよくわかりませんでした
具体的に言うと、たとえばVBのテキストボックスからテキストファイルに出力させたり
読み込ませたり、などなんですが
ほとんどのサイトがVBそのものの解説だけや、文法の説明が多く、何をするためにはこのメソッドを使う
とか、宣言をする。のような事があまり調べられず困ってる感じです
0725デフォルトの名無しさん
2007/11/20(火) 20:32:440726デフォルトの名無しさん
2007/11/20(火) 22:08:130727デフォルトの名無しさん
2007/11/20(火) 23:22:290728デフォルトの名無しさん
2007/11/20(火) 23:36:03それっぽい話はいっぱい出てくるのですが
例えるならアタリっぽいけど抜きどころが見つからないAVのような
さわりだけで肝心なところで終わるAVのような
なかなか求めるようなサイトが出てこないんです
なのでググり方、調べ方なんかでコツのようなモノがあったら教えていただけたらと
0729デフォルトの名無しさん
2007/11/20(火) 23:41:501.自分｜客 がVB6以外認めないバカ
2.自分｜客 がVB6以外認めない偏屈
3.自分｜客 がVB6以外理解できないバカ
4.自分｜客 がVB6以外の言語が動く環境が確保できないくらい貧しい
5.自分｜客 の上司がVB6以外認めないバカ
6.自分｜客 の上司がVB6以外認めない偏屈
7.自分｜客 の上司がVB6以外理解できないバカ
4-7だったら暖かく認めてもよくね？
んでも発言みるかぎり1と２と３のコンボ風だな
どれ？
>721
4だったら 客の年商か 自分の収入答えてみ？
0730デフォルトの名無しさん
2007/11/20(火) 23:45:43なんだ釣りかよ！！
むかつく！
氏ね！
マジだったら商売かえろ！
もしくは本スレいけ！
ttp://pc11.2ch.net/test/read.cgi/tech/1187667616/
0731デフォルトの名無しさん
2007/11/20(火) 23:53:36微妙ですが4-7に近いと思われます
いまどきVB6をはじめる理由は、今月から入った会社の環境がほぼVB6がメイン
また会社と連携のある顧客、あるいは会社の人員が世代の古い方々が多く同じくVB6がメインなので
仕事上まずその環境に慣れなければならない為です
ちなみに私自身はプログラム系はほとんど経験がなくVB6がはじめてです
0732デフォルトの名無しさん
2007/11/21(水) 00:01:53申し訳ないです、釣ってるつもりはないんですが
ホントにググってもVBの概念、定義の仕方やせいぜい文法の辺りまでで
肝心なコードはサンプルがあるだけで、どのメソッドにどういう役割がある
といった事は書かれていないことが多いです
ヘルプを使ってみても分かりにくい言い回しが多いので・・・
もちろん私の理解力が足りないだけかもしれませんが
0733デフォルトの名無しさん
2007/11/21(水) 00:33:49あとはせいぜい逆引き大辞典とかか？
0734デフォルトの名無しさん
2007/11/21(水) 00:43:300735デフォルトの名無しさん
2007/11/21(水) 00:43:47> VBの概念、定義の仕方やせいぜい文法の辺りまでで
> 肝心なコードはサンプルがあるだけで
それだけあれば十分でしょ
サンプルがあるなら、似たようなことを実現するコードを
書くとっかかりにはなるんだから
> どのメソッドにどういう役割がある
そういうことは、使いながら調べたり試したりしながら覚えてくもんだ
プログラムに限ったことじゃないが、最初から全知識を頭に詰め込んで
始められるものなんてないと思うぞ
0736デフォルトの名無しさん
2007/11/21(水) 00:57:18サンプルコードを読んでもわからない、ってのが本当だとすると
そもそもプログラミングの勉強すらした事が無いと思われ。
学校でいったい何を勉強したのやら・・・
なんか 「ALWAYS 三丁目の夕日」 みたいだな。
ある自動車修理工場の話。
履歴書に 特技・自動車修理 って書いてあるから雇ったら
実は 自転車修理 の読み間違えだった。
なんでプログラミング経験の無いヤツを雇うのか不思議だな。
そこらへんに掃いて捨てるほどゴロゴロ転がってるというのに。
0737デフォルトの名無しさん
2007/11/21(水) 00:58:44仰るとおりですorz
ただ会社の人も付きっ切りで私に教える訳にもいかず、追いつかないもので
>>735のようにとりあえず記述されているサンプルコードを使いながら試したりしているんですけど
サンプルも圧縮してある物が多く会社のPCではダウンロードが禁止されているので
思うようにはかどらないんです
あと書き忘れていました
自宅のPCにはVB6もOffice系のソフトも入っていません
理由は>>729の4です
0738デフォルトの名無しさん
2007/11/21(水) 01:01:52俺が昔働いていた田舎の工場での話し。
履歴書に 資格・電子計算機ナントカカントカ○○級 って書いてあるから
コンピュータ室のオペレータに採用された女の子がいた。
なんか、聞きなれない資格だな。そんなのあったっけ・・・
その子のよく聞いてみたら、電卓 の資格だった。ｏｒｚ
0739デフォルトの名無しさん
2007/11/21(水) 01:08:50>そもそもプログラミングの勉強すらした事が無いと思われ。
その通りです。最近はじめたばかりですし、資格も一切持っていません
>なんでプログラミング経験の無いヤツを雇うのか不思議だな。
ですね、いかんせんお年寄りの多い会社なので世代交代という意味で
「とりあえず」で雇ったのかもしれません
参考書などを買うお金も微妙ですし、会社のPCからはここは見れないので
できるだけ自分で調べて覚えていきたいのですが、どうにも能率が悪くて
なのでそういうのを勉強したり調べたりする上でコツがあればと聞いてみたんですが
すれ違いなら申し訳ないです
0740デフォルトの名無しさん
2007/11/21(水) 01:11:130741デフォルトの名無しさん
2007/11/21(水) 01:12:04ウザイんだよお前
0742デフォルトの名無しさん
2007/11/21(水) 01:34:30も、もしかして、会社のＰＣはインターネットに繋がってないとか・・・？
0743デフォルトの名無しさん
2007/11/21(水) 01:55:22制限がかかってるんです
インターネットには繋げますが会社が許可した属性のページしか見れません
ので掲示板の類や会社が不適切と判断したページは見れないんです
同じくファイル類のダウンロードも一切できません
0744デフォルトの名無しさん
2007/11/21(水) 09:32:07まずやりたいことを
入力 処理 出力 という形でわけてみる んでそれぞれを細かくわけて
単機能にしていく
んでその単機能のサンプルを片っ端から集めてくる。家で集めて会社で
展開するくらい許してもらえ。
海外にも多くのサンプルが転がっている。
んでサンプルをそのまま実行しながらコードの書き方を見る。
つぎに目的の機能に合せてコードを書替えてアレンジしてみる。
あとはそれぞれをつなぎ合わせる事を考える。
そこで食っていくのなら参考書を買うなりＶＢ６を調達するなり
自分への先行投資もしなきゃね。
あとここでなんでも相談するな。情報はふんだんに転がっている相談するより
調べた方が早い。どうやれば効率よく調べられるかは数打ってなれろ。
0745デフォルトの名無しさん
2007/11/21(水) 10:02:03ネットに繋がってる事が業務上重要なのだと上を説得するしかねーだろーな
0746デフォルトの名無しさん
2007/11/21(水) 12:24:20会社は、VBわからないことを承知の上で採用したのだから、
あんたを業務で使用できるように育てる義務がある
先輩が忙しいとか時間が無いとか、そういう問題じゃないんだよ
教務担当に現在進行中の仕事があっても、そんなの関係ねぇ
しつこく何でも何度でも聞け
必要なら書籍購入やダウンロード可能の承認をもらえ
いまあんたに必要なのは、たとえ担当に迷惑がられても、
その会社の方針に従っている限り、その中で知識をがっつく根性だ
それにここは、VB用の質問スレであって、仕事のやり方勉強の仕方の
質問スレじゃないんだ
そこんとこわかってくれ
0747デフォルトの名無しさん
2007/11/22(木) 16:44:59記述方法についてお伺いします。
たとえばSelect文において
Select Case Str1
Case "”"
とか
Case "″"
と入力すると、すべて
Case """"
と変換されてしまいます。もちろん、変数Str1の中身が「”」であっても
一致していないとみなされてしまいます。
この変換を抑制する方法ってありますか？
もし無いのなら、文字列定数ではなくUnicodeでコードを直接記述することに
なると思うのですが、chrw()関数でのUnicodeの指定方法がわかりません。
手元にある漢字コード表はJISとShift-JISなものでして。
よろしくお願いいたします。
0748デフォルトの名無しさん
2007/11/22(木) 17:01:10"=chr(34)
0749デフォルトの名無しさん
2007/11/22(木) 17:37:38変換を抑制する方法はなさそうだね。
こんなプログラム作ってコードを調べてみたらどう？
Private Sub Command1_Click()
Dim strChar As String
Dim i As Long
For i = 1 To Len(Text1.Text)
strChar = Mid(Text1.Text, i, 1)
Debug.Print strChar, Hex(AscW(strChar))
Next
End Sub
0750747
2007/11/22(木) 18:04:03抑制する方法はないですか。MS-Officeのスペルチェックといい、
こういう余計なお世話は停止できるようにして欲しいですよね。
やはり、1バイトずつ分解して調査するしかありませんか、トホホ。
>>747
chrw()関数とかUnicodeのことを書いたのでわかるだろうと思って
はしょったのですが、""内は2バイト文字です。フォント設定によっては
判別しづらかったですかね。
0751デフォルトの名無しさん
2007/11/22(木) 19:57:45Ｃ言語やｊａｖａなんてもっと惨いぜ。\nとか\\とか\"とか、￥だらけの汚いコードになるんだから。
自分の書いたコードを他人が読むときの事を考えてコーディングしなさい。
もっとも、自分が退社してしまえば、あとは野となれ山となれですがｗ
0752デフォルトの名無しさん
2007/11/22(木) 22:35:560753デフォルトの名無しさん
2007/11/22(木) 23:57:230754747
2007/11/23(金) 00:46:10うーん、CとかJavaの\nや\tは実装系に依存しないコードの表現方法であって、VBでいうとvbNewLineとかvbTabに該当するのかな(vbCrLfは特定の実装を想定しているから、この例では除外)。別に\nとか\"が並んでいても、汚いとは思わないけど。
なぜかって言うと、抽象度の高い統一された表現方法だから。文字コード体系の違うOSに移植するのも簡単だよね。
今回の問題というか憤りを感じたのは、どういう理由か想像できないけれど、特定のリテラルがエディターによって強制的に変換されちゃうってことで、そのためにコードが非統一の汚い記述になることなんですよ。
本来なら
Case "（"
Case "”"
と書けるところを
Case "（"
Case &H1234
と書くのは、コードの記述方式としては美しくないと感じるわけで。だから、いっそのこと
Case &H1234 '「”」のこと
Case &H2345 '「＜」のこと
と書いた方がまだ「美しい」と思う。もっとも、チームでプログラムを組むときはこんなダサイ方法じゃなくて、
dim strDQuote as String
strDQuote = &H1234
としてから
Case strDQuote
とするのが妥当なのはご存じの通りでして。
とにかく、特定のリテラルが記述できなくてコードを直接書かなくちゃならないというルールは、全然賛同できないんだけどな。いったい、どういう理由があるんだろ。
>>752
そう、スペルチェックとかハイパーリンクはオフにできるんだから、このエディターの機能もオフにできればいいのにね。
0755デフォルトの名無しさん
2007/11/23(金) 01:14:42昔魔界の仮面弁士さんが言ってたのがとこかに転がってるはず
0756デフォルトの名無しさん
2007/11/23(金) 02:43:16物事を知らないってのは幸せだな。
そのうち、うんと苦しめられるから覚悟しといたほうがいいと思うよ。
0757デフォルトの名無しさん
2007/11/23(金) 09:06:05そんなこと沢山あるだろ いちいちへ理屈を言う几帳面さをどうにかしたほうがいい
こんな枯れたものに
0758747
2007/11/23(金) 09:59:53あ、あの人ですね。ググってみたけど、彼がこの件について
書いた発言は見つかりませんでした。
>>756
どういうことを知っていれば、今後苦しまなくて済みますか?
私だけじゃなくて、ここを読んでる超初心者の方にも参考に
なるでしょうから、是非書いてみてください。
>>757
VBのエディターが枯れてる? VB使いの間ではそういう評価なんですかね?
屁理屈こねてるみたいな異常なこだわり、と思うかもしれませんが、
こういう奇妙と思える仕様の原因を探っていくと、他の局面で
同じ理由から発生する現象の解析がスムーズに行えて、けっして
ムダなこだわりじゃないんですよ。そりゃ結果的にはムダになるかもしれ
ないけど、この几帳面さは業務分析レベルでは重宝されてます。
それと、コーディングスタイルがバラバラになるのはプロジェクト管理上
まずい、というコーダーレベルの問題も解決できるし。
0759デフォルトの名無しさん
2007/11/23(金) 10:53:24俺は君の言ってることの方がまともだと思うよ。
まあ、馬鹿はほっとけってことw
驚くべきことに、文字列リテラル中の全角記号を勝手に半角に修正する糞仕様は、
なんとVB2005のIDEのエディタにも引き継がれているんだよねこれが。
0760デフォルトの名無しさん
2007/11/26(月) 17:12:23EXE①メニューボタン：１本、EXE②業務関係：複数本
イメージとしてはEXE①がメインフォーム、EXE②がMDIフォームの用な動作を考えています
別EXEで上記イメージのような動作は可能でしょうか？
0761デフォルトの名無しさん
2007/11/26(月) 18:54:31そう見えるようにコーディングすることは可能
0762747
2007/11/26(月) 21:59:26この奇妙な仕様は2005でも継続ですか。情報、ありがとうございます。
たしかにバカはほっといたほうが良いでしょうね。MSDNでも購入して
調べることにします。では。
0763デフォルトの名無しさん
2007/11/28(水) 01:54:01（.NetだとHelpButtonがあるのですが）
ダイアログボックスでつけれる[？]のボタンです。
API探してみたけど、ヘルプボタンに関して表示・非表示するのがないので
やっぱムリなんでしょうか。
0764デフォルトの名無しさん
2007/11/29(木) 00:18:20このように記述するとエラーになります。
Write #FileNo, "test", & _
"test1"
こういうケースの場合、接続文字はどうしていすればいいのでしょうか？
0765デフォルトの名無しさん
2007/11/29(木) 00:29:32そもそも _ が無くても構文エラー
Write #FileNo, "test", & "test1"
0766デフォルトの名無しさん
2007/11/29(木) 00:54:02改行して記載は無理でしょうか？
0767デフォルトの名無しさん
2007/11/29(木) 04:35:29> 改行して記載は無理でしょうか？
意味不明
>>764じゃ、構文エラーが出るくらいしかわからん
何をしたいのかさっぱり
もう一度「何がしたくて」、「実際に何をやったのか」説明しなおすといい
0768デフォルトの名無しさん
2007/11/29(木) 08:45:20いったん 別の変数に入れる
0769743
2007/11/30(金) 13:38:35遅くなりましたがありがとうございます
残念ながら自宅で得たサンプルも含め外部から社内のPCへのデータの持ち込みが一切禁止されているので
社内にある別のVBのコードや見れる範囲でのサンプルコードで>>744のようにやってみます
>>746
スレ違いな質問申し訳ありませんでした
なるべく空気を読みつつ多少強引に回りに聞いてみるようにします
またなにかつまづいたら今度は具体的な質問にまとめて来ます
0770デフォルトの名無しさん
2007/12/01(土) 11:44:46市販の物ではないのでサポートを受ける事が出来ず、
ここを頼らせていただきました。
ＶＢについては全くのド素人です。
もし意味不明な事を言っていたら、すぐに訂正しますのでご指摘下さい。
会社で使っているアクセスのデータベースを利用した請求書があり、
その請求書を印刷した日付が載るスペースがあります。
先月まではちゃんと「平成19年11月30日」と出ていたのですが、
今月に入ったとたん「明治33年01月29日」になってしまいました。
ＶＢのソースの様なものからその欄のプロパティを見てみると
コントロールソースの欄は
=Format([請求日]."ggge\年mm\月dd\日")
となっておりました。
少しググってみた所、
「\」の意味は判りませんが、おかしい所はないように思えました。
どうやったら正しい年号を表示させられるか、お教え下さい。
よろしくお願い致します。
0771デフォルトの名無しさん
2007/12/01(土) 11:51:460772デフォルトの名無しさん
2007/12/01(土) 12:07:570773770
2007/12/01(土) 12:38:26「請求日」の値のようなものが、
データの中で別に設定されているという事ですか？
どこに…といっても分かるはずありませんよね。
探してみます。
>>772
タクスバーの時計は合っているようです。
0774デフォルトの名無しさん
2007/12/01(土) 13:04:51時刻をダブルクリックして表示される日付はちゃんとあってる？
0775デフォルトの名無しさん
2007/12/01(土) 13:12:59それは、レポートのコントロールソース？
レポートそのもののレコードソースは何になってる？
ソースがテーブルだったら、そのテーブルの中身を見て
請求日と思われる列の値はどうなってる？
0776770
2007/12/01(土) 13:16:48はい。合っていましたし、念のため同期をし直しましたが
変化はありませんでした。
>>775
レポートというのがよくわかりませんが、
ちょっと確認してみます。
0777770
2007/12/01(土) 13:41:46すみません。よく分かりませんでした。
私が確認をしたのは
アクセスを起動させて→ツール→マクロ→ＶＢエディター
で、開いたＶＢのプロジェクトから請求書のレポートのオブジェクトを開き、
年月日が出力される部分のプロパティを見ました。
レコードソースというのはどうやって見るのでしょうか。
0778770
2007/12/01(土) 14:05:54関係ありそうなものがわかりませんでした。
0779デフォルトの名無しさん
2007/12/01(土) 14:06:05DQN男の家族死ね DQN男の親死ね DQN男の友達死ね DQN男の親戚死ね
DQN男の家族死ね DQN男の親死ね DQN男の友達死ね DQN男の親戚死ね
DQN男の家族死ね DQN男の親死ね DQN男の友達死ね DQN男の親戚死ね
ニヤニヤ(・∀・) ニヤニヤ(・∀・) ニヤニヤ(・∀・) ニヤニヤ(・∀・)
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね死ね
死ぬとき このレスの事思い出してくれよ
ニヤニヤ(・∀・) ニヤニヤ(・∀・) ニヤニヤ(・∀・) ニヤニヤ(・∀・)
0780デフォルトの名無しさん
2007/12/01(土) 14:11:370781デフォルトの名無しさん
2007/12/01(土) 22:44:24印刷した請求日ってそのデータがアクセスに登録された日じゃなくて
引き出した日って意味だよね？
そしたらそのプロパティを見た項目のコードを表示してみて
[請求日]にセットされてる式を見てみれば？
0782デフォルトの名無しさん
2007/12/02(日) 00:24:35－『』がミソだね
アクセスの位置指定が変わったとか、日付データの問題でしょ？
0783デフォルトの名無しさん
2007/12/06(木) 13:18:13既存のフォーム内のvaspreadのデザインをスプレッドデザイナで編集したいのですが
セルにデータを入力することができません。
新規にVaspreadコントロールをフォーム上に配置した場合には編集できます。
フォームのデザイン画面でオプションはすべて同じ設定にしたので
スプレッドデザイナで何らかのロックがかけられていると思うのですが。
Spreadデザイナのバージョンは3.0.5.2です
知っている方がいればお願いします。。
0784デフォルトの名無しさん
2007/12/06(木) 13:34:56ttp://www.accessclub.jp/bbs3/0352/superbeg105899.html
と、ここまで、1分。はぁ、ググレヨ。
0785デフォルトの名無しさん
2007/12/14(金) 17:41:030786デフォルトの名無しさん
2007/12/26(水) 22:57:17Excel.Applicationへの参照は訳有ってレイトバインディングしか出来ませんので
WithEventsも使え無いみたいだし・・・
やろうとしてる事はFormの中に埋め込んだExcelのセル選択時にRowプロパティを
読み出したいのです。
0787デフォルトの名無しさん
2007/12/28(金) 20:26:36実行時バインディングと事前バインディングの使い方の違いが分からないのですが
教えてください。
0788デフォルトの名無しさん
2007/12/28(金) 23:02:06名前が違う時点で違いが分かってるだろ？
もっと具体的に分からないところを恥じらいを持ちつつ答えなさい
0789デフォルトの名無しさん
2007/12/28(金) 23:28:110790デフォルトの名無しさん
2007/12/29(土) 11:22:30使い方の違い・・・？
事前バインディングは処理が高速でコーディングが楽チン、
実行時バインディングは、エラーにさえ注意すれば、インタフェースが割と自由になる。
0791デフォルトの名無しさん
2008/01/08(火) 00:08:06使ってるゴミ共ってお前らのこと？
0792デフォルトの名無しさん
2008/01/08(火) 08:44:55継承って何でしょうね？
0793デフォルトの名無しさん
2008/01/08(火) 13:49:15分かる方解説いただけないでしょうか。
プロジェクトに 2 つの Form がある状態で Form1 上に配置したボタンを押して
Form2 を表示する処理を書いているのですが
Private Sub Command11_Click()
Form1.Show 1, Me
End Sub
と
Private Sub Command11_Click()
Call Form1.Show(vbModal, Me)
End Sub
に違いはあるのでしょうか。
Call ～ の方は下位互換維持のために残っているだけで違いはない・・・と
現状では解釈しています。
動作環境は VB6 + XP Proです。
0794デフォルトの名無しさん
2008/01/08(火) 13:50:22Implements を使いこなせれば、そう大して困る事もないが。
0795794
2008/01/08(火) 13:58:55>>793
違いはない。書き方の違い。分かってるとは思うが、Callで呼び出すと関数の戻り値が取れない。
あと、メゾットについては触れないでおく。
0796デフォルトの名無しさん
2008/01/08(火) 23:17:16使え寝ーなら継承の意味ねーよw
それじゃあ、Draw関係とかつかえねーだろw
どんだけVB坊って馬鹿なんだw?
0797デフォルトの名無しさん
2008/01/08(火) 23:25:58つまり、オマイにとっての継承の意味の大部分は、
オーバーロードやオーバーライドが使える事にあるわけだ。全く、継承ってなんだろうなｗ
0798デフォルトの名無しさん
2008/01/08(火) 23:27:130799デフォルトの名無しさん
2008/01/08(火) 23:34:10メソッドの内容新しく定義するって
どんだけゆとり仕様なんだw？
OOは再定義を極力避けるに定義するもんだぞ
VB6ってのはなんちゃってOOの中で醜悪かつ
最低もいいところだろ。
使ってる人間はチョン以下のゴミだよ。
文句あるなら、コードでどんだけ素晴らしいか
証明してみろよ？できねーだろ？お前らみたいな
糞供にはw
0800デフォルトの名無しさん
2008/01/09(水) 01:50:21そんなおまえはプロトタイプベースをしらないだろ
クラスベースで語ってるうちはﾁﾝｺがお子様だな＾＾；；；
0801デフォルトの名無しさん
2008/01/09(水) 02:01:080802デフォルトの名無しさん
2008/01/09(水) 02:02:29もいっこのスレには現れてくれないし・・・
0803デフォルトの名無しさん
2008/01/09(水) 02:10:400804デフォルトの名無しさん
2008/01/09(水) 02:33:120805デフォルトの名無しさん
2008/01/09(水) 20:52:050806デフォルトの名無しさん
2008/01/12(土) 21:29:04普通こういう場では言いだしっぺが手本を示すのが世の常だと思いますが
釣堀って楽しいね。
0807デフォルトの名無しさん
2008/01/13(日) 03:31:51やりたいことは、WebBrowserで上記User-Agentを指定してNavigateです
0808デフォルトの名無しさん
2008/01/17(木) 01:30:35プログラム側で帳票の制御をするにはどうしたらいいんでしょうか。
具体的には。改ページ等の制御を任意に行ないたいのです。
例
1ページ目
あああ、いいい、ううう、えええ、おおお
2ページ目
かかか、ききき、くくく、けけけ、こここ
超初歩なんですが。vb.net版しか使ったことがなく、勝手の違いに苦戦してます。
オネガイシマス。
0809デフォルトの名無しさん
2008/01/17(木) 14:25:21ActiveReports はサードパーティーのOCXだからスレ違い。
VBで業務してるような人の一部にしか分からんだろうし、ここに居るとも限らない。
つか、ActiveReportsのヘルプ開いて”改ページ”とかで検索すればいいと思うが・・・
0810デフォルトの名無しさん
2008/01/19(土) 18:01:10Exitじゃなくて何て書いたらいいの？
0811デフォルトの名無しさん
2008/01/19(土) 18:34:500812デフォルトの名無しさん
2008/01/19(土) 19:44:49伝統的なgotoか，アルゴリズムを変えてください
0813デフォルトの名無しさん
2008/01/20(日) 17:15:57doならfor
ネストしてexit do/exit for
0814デフォルトの名無しさん
2008/01/20(日) 20:39:59>>813みたいないらん技巧を凝らすより素直にループのケツに
ContinueFor:
みたいなラベルを置いてgotoした方がずっと分かりやすいよ
0815デフォルトの名無しさん
2008/01/21(月) 01:58:290816デフォルトの名無しさん
2008/01/21(月) 18:44:03ヘルプとかサンプルのフォルダに、そのものズバリなソース例があったはずだよ。
今手元に無いので確認できなくてすまん
0817デフォルトの名無しさん
2008/01/27(日) 02:25:450818デフォルトの名無しさん
2008/01/27(日) 11:43:000819デフォルトの名無しさん
2008/01/27(日) 14:46:15メモリの解放(変数 = Nothing ？)って必要ですか？
.NETではガベージコレクションがついているみたいですが、
それ以前のVBについては記述を見つけられませんでした。
0820デフォルトの名無しさん
2008/01/27(日) 15:02:01Excelなどのオブジェクトを作るときはNothingをしないと不具合もあった気がするが、変数などはいらない
気になるならつけとけって程度だ
0821デフォルトの名無しさん
2008/01/27(日) 15:06:03VB6
関数やサブルーチン内のローカル変数には不要。途中で早期に片付けたいなら使用する。
共通モジュールのPublic Privateな変数には必要。
クラスのPublic Privateなメンバーはオブジェクトと同じ期間存在していいなら不要。早期に片付けたいなら使用する。
FormのPublic Privateなメンバーはクラスと同じ考え方でいいが若干制限がある。長くなるので割愛。
いづれの場合もアプリケーションと同じ期間存在していいなら不要。
それにもかかわらずEnd命令で終了する場合、アウトプロセスサーバータイプのActiveXオブジェクトには必要になる。
0822デフォルトの名無しさん
2008/01/27(日) 15:11:18＞それにもかかわらずEnd命令で終了する場合、アウトプロセスサーバータイプのActiveXオブジェクトには必要になる。
END命令でもActiveXオブジェクトの終了処理は実行されるようになった。
またActiveXオブジェクトを早期に回収したい場合はSet NotingではなくMarshal.ReleaseComObjectを使う。
0823デフォルトの名無しさん
2008/01/27(日) 20:19:20VB6で作ったプログラムをインストールする際の質問です
インターフェイス社のシリアル通信のPCIカードで使える
ActiveX（MSCOMM32.OCXを間接参照してRS-422、RS-485通信するActiveX）をプログラムの中で使用し
そのプログラムを他のPCへVBのインストーラーでインストールし、起動しようとすると
「Generation of MSCOMM32.OCX」とメッセージが出て起動出来ないのですが
これはMSCOMM32.OCXのバージョンが違うということでしょうか？
インストールしたPCとプログラムに使用したPCのSystem32に入っているMSCOMM32.OCXのバージョンを確認しても一緒なのですが・・
サポートに聞いたところ、MSCOMM32.OCXのレジストリ登録が上手くいっていないのでは？と、ご回答を頂いたのですが、
間接参照する場合は手動でレジストリ登録が必要なのでしょうか？
何か、ご助言を頂けましたら幸いです。
0824デフォルトの名無しさん
2008/01/27(日) 20:30:02というか、OCX/COMなオブジェクトは、誰かが使用する前に
常にレジストリ登録が要るわけで。コピーだけとかでは動かないよ。
0825823
2008/01/27(日) 21:20:02インストーラーはVBについているインストーラー、VSInstalerを試しましたが、駄目でした
また、インストーラーのマージモジュールをいじったりしてみたのですが、同様にうまくいきませんでした。
間接参照しているインターフェイス社のActiveXをプログラムから外して
インストールすると問題なく起動できるのですが、、、、
間接参照しているActiveXをインストールする際には特別な作業が必要なのかと思い質問させていただきました。
0826デフォルトの名無しさん
2008/01/27(日) 23:15:290827823
2008/01/28(月) 00:31:09SP6を適用したVB6で作っております。
追記させていただきます
インストールシールドの体験版でインストーラーを作り試したましたが
同様でした。
0828デフォルトの名無しさん
2008/01/28(月) 00:35:420829デフォルトの名無しさん
2008/01/28(月) 09:51:52括弧をつけないで書くとぱっと見たときに関数やメソッドって分かりにくいし
ググるとCallをつけると分かりやすいとか見るけど全部括弧でいいじゃんね？(´･ω･｀)とか思えないし
Callの使い道とかCallと括弧の使い分けの関係とかそんなもんなんですかね？
仕様ってやつですか？激しく混乱してくるんですけど…。うーん
0830デフォルトの名無しさん
2008/01/28(月) 10:49:39俺も、意図を汲み取って読もうとすると、激しく混乱してくるんですけど…。
じゃあエラーが出ないように使え。好きにしろ。 ・・・としか。
0831デフォルトの名無しさん
2008/01/28(月) 12:15:03ttp://jeanne.wankuma.com/tips/rule/vb6call.html
戻り値を利用しようがしまいが
hForm1.Show()
とか
hForm1.Show(vbModal, Me)
だけでいいじゃんね？(´･ω･｀)
なんでMS様はこれらをわざわざエラーにすんの？(´･ω･｀)って疑問に思ったってとこです
0832デフォルトの名無しさん
2008/01/28(月) 14:33:25BASICなステートメントと合致しないから．
いつも使っている 代入 は本来
Let X = Y
のLetを省略した形だから，「式」のみから構成されるステートメントはそもそも存在しない
0833デフォルトの名無しさん
2008/01/28(月) 16:41:210834デフォルトの名無しさん
2008/01/28(月) 17:59:20戻り値を得るときには括弧付ける。
戻り値を得ないときには括弧付けない。ただし、Callを使えば括弧を付けた記法が可能。
正確ではないけど、普段はこう思っている俺。
0835デフォルトの名無しさん
2008/01/28(月) 19:25:06サブフォルダも含めて、まるごと
他のフォルダに保存するのはどうすればいいのでしょうか？
FileCopyではファイルしかできなくて・・・
0836デフォルトの名無しさん
2008/01/28(月) 19:27:25C++でCOMオブジェクトを書けばVBの言語仕様が理解できるよ。
0837デフォルトの名無しさん
2008/01/28(月) 19:28:110838835
2008/01/28(月) 19:41:29事故解決しますた
ttp://jeanne.wankuma.com/tips/directory/copy.html
0839823
2008/01/28(月) 21:32:14試してみます。
0840デフォルトの名無しさん
2008/01/28(月) 22:30:23就職先にVBやれって言われたんですが、コンパイルさえできません・・・・
0841840
2008/01/28(月) 23:54:160842デフォルトの名無しさん
2008/01/29(火) 00:03:55製品名（すべて半角）の末尾の半角数字でソートする必要があるのですが末尾の
数字の長さは固定ではありません。これをカウントする方法がわかればright$など
で処理できると思うのですが。
Delphiでのコードは以下のような感じです。
//末尾の半角数字＋ハイフンを得る VPX26AP766-4 ⇒ 766-4
function GetEndNumStr(S :string) :string;
var
i,j,k: Integer;
S2 : string;
begin
if S = '' then Exit;
i := 0;
j := Length(S);
if S[j-1] = #13 then Dec(j,2); //改行コードを飛ばす
k := j;
while S[j] in ['0'..'9' ,'-'] do //末尾の半角数字＋ハイフンの長さを得る
begin
Inc(i); Dec(j);
end;
if i > 0 then
begin
j := k; //元の値に戻す
SetLength(S2,i); // 12345 ･･･ i
repeat //VPX26AP766-4
S2[i] := S[j]; //123456789012 ･･･ j
dec(i); dec(j);
until i < 1;
end;
Result := S2;
end;
0843デフォルトの名無しさん
2008/01/29(火) 00:15:15ロジックが分かってるなら、あとは、ひとつひとつＶＢの文法に置き換えていくだけじゃん。
いったいどこがワカランの？
ＶＢの入門書くらい読んだ？
0844デフォルトの名無しさん
2008/01/29(火) 00:22:53Function GetEndNumStr(ByVal S As String) As String
Dim i As Long
S=Replace$(S, vbCrLf, "")
For i=Len(S) To 1 Step -1
If Not (Mid$(S, i, 1) Like "[0-9,-]") Then
GetEndNumStr=Mid$(S, i+1)
Exit Function
End If
Next
'終端まで走査して見つからない場合は例外？
End Function
0845デフォルトの名無しさん
2008/01/29(火) 01:02:01オークションとかで手に入れるとか、
無料ではないけど、Officeに付属のVBAとか、
今では入手困難だけどかつて無料配布だったVB5 Control Creation Edtionとか。
0846デフォルトの名無しさん
2008/01/29(火) 17:17:070847デフォルトの名無しさん
2008/01/29(火) 23:28:130848デフォルトの名無しさん
2008/01/29(火) 23:32:380849デフォルトの名無しさん
2008/01/29(火) 23:33:38ＰＣ－９８０１でＣバスに特殊な機械制御のハードが差し込んであって
ドライバがＷｉｎ９８でなきゃ動かん。
しかもつくった会社が倒産してて代替がきかん・・・とかだったら
ありえるだろ。
0850デフォルトの名無しさん
2008/01/29(火) 23:48:26もしソースも無くて完全なブラックボックスだったら、そんな仕事は受けないし。
0851847
2008/01/29(火) 23:49:28どうみてもそんなケースの話じゃないと思うが？
0852デフォルトの名無しさん
2008/01/30(水) 00:00:00スタンスの会社も決して珍しくはない
営業が強いとこなら、そうでなくても見境ない場合もある
でもって、本筋は「これから就職する会社からVBやれと言われて、
自宅のWin98でできるものか」・・・って話じゃないの？
このくらい推察できない方が、ソフト屋としてありえないと思
0853デフォルトの名無しさん
2008/01/30(水) 00:08:00氏ねよ
0854デフォルトの名無しさん
2008/01/30(水) 00:10:050855デフォルトの名無しさん
2008/01/30(水) 00:16:16氏ねよ
0856デフォルトの名無しさん
2008/01/30(水) 00:19:05うちにもいるよ。
0857デフォルトの名無しさん
2008/01/30(水) 00:19:330858デフォルトの名無しさん
2008/01/30(水) 00:21:04○入門書
とてもわかりやすく実用的な本
・Visual BasicユーザーのためのWindowsプログラミング入門(日経BP社)
○アルゴリズム
基礎的なアルゴリズムを身につけることができる。
・Visual Basicによるはじめてのアルゴリズム入門 (技術評論社)
○中・上級者向け
簡単なことから深いことまで、わかりやすく説明さされて知りたい事がすぐわかる。。
他のVBの本には書かれていないことも説明されている。
・ピーターノートンの手解きVisual Basic6 Vol.1(カットシステム)
・ピーターノートンの手解きVisua lBasic6 Vol.2 (カットシステム)
この順番で勉強していけばかなりのスキルが身につきます。
特にピーターノートンの手解きVisual Basic6 はOfficeやOutlookとの連携も解説してあり
お薦め！
0859デフォルトの名無しさん
2008/01/30(水) 00:24:29勝手に推測するなという話なのに
マジで氏ね
0860デフォルトの名無しさん
2008/01/30(水) 00:33:110861デフォルトの名無しさん
2008/01/30(水) 01:29:160862デフォルトの名無しさん
2008/01/30(水) 17:34:11VisualBasic初級プログラミング入門(技術評論社)
もいれとくれ。とりあえず上巻だけでも。
0863デフォルトの名無しさん
2008/01/31(木) 20:13:00と不安に思うVB6プログラマーの私です
0864デフォルトの名無しさん
2008/01/31(木) 20:30:490865デフォルトの名無しさん
2008/01/31(木) 20:51:150866デフォルトの名無しさん
2008/01/31(木) 22:13:34最近やっとVB2005勉強し始めた
0867デフォルトの名無しさん
2008/01/31(木) 22:21:190868デフォルトの名無しさん
2008/01/31(木) 23:02:24まあまあ、そうイライラしないで
0869デフォルトの名無しさん
2008/01/31(木) 23:10:33MSですら無かったことにしたがってるVB.NETを勉強するなんて
0870デフォルトの名無しさん
2008/02/01(金) 00:14:52ここはひとつﾃﾞﾙﾌｧｲで。
0871デフォルトの名無しさん
2008/02/01(金) 00:22:000872デフォルトの名無しさん
2008/02/01(金) 01:15:320873デフォルトの名無しさん
2008/02/01(金) 07:40:41まあまあ、そうイライラしないで
0874デフォルトの名無しさん
2008/02/09(土) 05:33:260875デフォルトの名無しさん
2008/02/09(土) 16:09:33kwsk
0876デフォルトの名無しさん
2008/02/09(土) 16:30:200877デフォルトの名無しさん
2008/02/09(土) 18:18:160878デフォルトの名無しさん
2008/02/10(日) 12:34:550879デフォルトの名無しさん
2008/02/12(火) 00:05:45変数に格納していきたいのですがどうすればいいですか？
0880デフォルトの名無しさん
2008/02/12(火) 00:58:34ダウンロードのページで検索しても見つけることができません。
どなたかどこか入手可能なところを教えていただけないでしょうか。
0881デフォルトの名無しさん
2008/02/12(火) 01:51:240882デフォルトの名無しさん
2008/02/12(火) 22:16:15おかげさまで見つけることができました。ありがとうございました。ぺこり
0883デフォルトの名無しさん
2008/02/12(火) 23:16:41で、次の質問はEXEの作り方か？
0884デフォルトの名無しさん
2008/02/14(木) 00:30:48によると、今回のMSパッチの中にVB6に影響するものが含まれているとのことですが、
具体的にどのパッチのことなんでしょうか？
KB943055でしょうか？
0885デフォルトの名無しさん
2008/02/14(木) 00:40:47http://headlines.yahoo.co.jp/hl?a=20080213-00000033-imp-sci
http://www.microsoft.com/japan/technet/security/Bulletin/MS08-008.mspx
KB946235 oleaut32.dllセキュリティ更新
0886884
2008/02/14(木) 01:17:540887デフォルトの名無しさん
2008/02/14(木) 08:19:160888デフォルトの名無しさん
2008/02/15(金) 01:51:160889デフォルトの名無しさん
2008/02/17(日) 02:17:44KB946235も入れちゃっていいのかな・・・
>>879
たとえば具体的にどういうテキストデータ？
0890デフォルトの名無しさん
2008/02/17(日) 17:26:390891デフォルトの名無しさん
2008/02/17(日) 18:07:390892デフォルトの名無しさん
2008/02/17(日) 18:12:56君はなんとかツクールでも使ってろってこった
0893デフォルトの名無しさん
2008/02/17(日) 19:43:45部活でゲーム作ってるんですが、金がないので…
>>892
ツクール買うくらいならフリーでその分野に特化したのを使います
というか、もうダウンロードしてます
0894デフォルトの名無しさん
2008/02/17(日) 19:52:39C#でもやれよ、タダだし
0895デフォルトの名無しさん
2008/02/17(日) 22:05:31今や、どこもかしこも、Microsoftすら、
開発ツールを無料で公開している時代。
0896デフォルトの名無しさん
2008/02/17(日) 22:33:27何世代か前まではCもやっていたようですが…
一つだけ無駄でない事例を挙げるなら、情報の授業が楽になることです
>>895
それはわかっています
自分も一番最初に触れたは言語はVBではありませんでした
しかし、あくまでも部活なのです
時間が無限にあるわけではありません
さらに言えばほぼ全員が掛け持ちしています
この状態で知識の全くない世界へ足を踏み入れるのは自殺行為です
もし貴方の言う「開発ツール」が言語ではなく「ゲーム制作ツール」なら、始めから眼中にないことをお伝えしておきます
ゲームを作るのは結果であり、目的ではありません
0897デフォルトの名無しさん
2008/02/17(日) 22:42:58まあ、最初のうちは VB6 でそのうち別の言語を・・・ってんならいいと思うけど。
0898デフォルトの名無しさん
2008/02/17(日) 23:30:42かなり揚げ足とるけど
> この状態で知識の全くない世界へ足を踏み入れるのは自殺行為
# VB6.0でノベルゲームみたいに文字を一文字ずつ表示させることは出来ますか？
この二つは矛盾してる希ガス
0899デフォルトの名無しさん
2008/02/17(日) 23:33:400900デフォルトの名無しさん
2008/02/18(月) 00:57:200901デフォルトの名無しさん
2008/02/18(月) 09:47:16ｵﾚなら
>VB6.0でノベルゲームみたいに文字を一文字ずつ表示させることは出来ますか？
は可能だと思う ノベルゲームっていうのがどんなのか知らんけど
0902デフォルトの名無しさん
2008/02/18(月) 13:45:47スレタイ嫁ｗ
>>896
その質問じゃ、どう答えれば良いのかわからんのよ
一つ言えるのは、一般的なADVみたいなものならVB6でも十分作れる
でもそのためには、GDIの知識か、DirectXの知識が必須なんだがその準備は出来ているだろうか？
0903デフォルトの名無しさん
2008/02/18(月) 18:45:28スレタイに「オレに優しくかまってくれ」な雰囲気がただよってる
0904デフォルトの名無しさん
2008/02/28(木) 09:53:33アップデート キット 2 (97/03/07版) for VB4 Standard Edition
を探しています。
どなたかダウンロード先を教えて下さい。
0905デフォルトの名無しさん
2008/02/29(金) 01:56:04SendMessageでWM_NCPAINTを送ってみても変わりません。
仕方がないので今はForeColorを変えた後に、SubItem(1) = SubItem(1) と設定しなおせば変わるのですが、これって間違った対処方法ですよね？
どうすればForeColorを変えた瞬間に色が変わるのでしょうか？
0906デフォルトの名無しさん
2008/02/29(金) 01:56:32ここは無視して読んでください・・・
0907デフォルトの名無しさん
2008/02/29(金) 11:23:090908デフォルトの名無しさん
2008/02/29(金) 12:40:100909デフォルトの名無しさん
2008/02/29(金) 23:19:250910デフォルトの名無しさん
2008/03/01(土) 01:40:480911デフォルトの名無しさん
2008/03/01(土) 01:42:13工場でぶんまわしてるのに移行して不具合が出たら、損害賠償ものだよ
新規の案件じゃないのに
0912デフォルトの名無しさん
2008/03/01(土) 01:45:11遺産と呼んでもいいけどさあ
0913デフォルトの名無しさん
2008/03/01(土) 02:01:53おまいら実社会で仕事したこと無いだろ？
0914デフォルトの名無しさん
2008/03/01(土) 05:03:45Dim str$
str = "hello world(w"
Dim i&
Dim hdc&
hdc = GetDC(0)
For i = 1 To Len(str)
Dim s$
s = Mid$(str, i, 1)
TextOut hdc, (i - 1) * 16, 0, s, LenB(StrConv(s, vbFromUnicode))
MsgBox i & "文字目"
Next i
糞コードだがこんな感じ。普通は自分のウィンドウにフォント設定する。
0915デフォルトの名無しさん
2008/03/01(土) 13:20:250916デフォルトの名無しさん
2008/03/02(日) 01:07:44open "COM1" for output
が使えないと製造業では使えません。
ラベルプリンタとか、RS232C制御のFA機だらけです。
0917デフォルトの名無しさん
2008/03/02(日) 10:28:42open "COM1:" for output
いつも使ってるとは思えない。
0918デフォルトの名無しさん
2008/03/02(日) 10:55:550919デフォルトの名無しさん
2008/03/02(日) 11:43:36けっこうハマったよ
0920デフォルトの名無しさん
2008/03/02(日) 22:11:48父さんが言ってたよ
0921デフォルトの名無しさん
2008/03/02(日) 22:14:130922デフォルトの名無しさん
2008/03/02(日) 23:15:490923デフォルトの名無しさん
2008/03/03(月) 01:11:030924デフォルトの名無しさん
2008/03/03(月) 01:14:29娘が言ってたよ
0925デフォルトの名無しさん
2008/03/04(火) 04:14:34フラッピー！！
上に飛ばして、よく自爆したなぁ。
0926デフォルトの名無しさん
2008/03/04(火) 10:34:570927デフォルトの名無しさん
2008/03/04(火) 17:26:480928無償入手可
2008/03/15(土) 13:03:20Visual Basic Version 5.0 Control Creation Edition SP2 日本語版
http://download.microsoft.com/download/vbcc/SP/05.00.4319/W9XNT4/JA/VB5CCEIN.EXE
Visual Basic 5.0 Control Creation Edition: SP2 ヘルプ ファイル
http://www.microsoft.com/downloads/details.aspx?FamilyID=b4394931-d7ab-4d38-a3f5-511fd3165b7f&DisplayLang=ja
http://download.microsoft.com/download/vbcc/Help/4.71.0121.0/W9XNT4/JA/CCEHELP.EXE
Visual Basic Version 5.0 Control Creation Edition: レジストリ修正モジュール
http://www.microsoft.com/downloads/details.aspx?FamilyID=e91b767c-30d6-407d-b0f3-fd93faebb592&DisplayLang=ja
http://download.microsoft.com/download/vbcc/Patch/1.00/W9XNT4/JA/REGFIX.EXE
Visual Basic 5.0: RecentFiles ツール
http://www.microsoft.com/downloads/details.aspx?familyid=C95613D6-D8D2-4A85-9139-3992B601D08A&displaylang=ja
http://download.microsoft.com/download/vb50ent/Patch/1.00/W9XNT4/JA/recents.exe
0929デフォルトの名無しさん
2008/03/15(土) 14:09:050930↑コピペ君って馬鹿だな、まで読んだ。
2008/03/15(土) 16:06:310931デフォルトの名無しさん
2008/03/15(土) 17:10:370932デフォルトの名無しさん
2008/03/15(土) 17:37:060933デフォルトの名無しさん
2008/03/15(土) 19:26:020934デフォルトの名無しさん
2008/03/15(土) 19:52:31VB2008購入しました。
open "PRN" for output
print #.....
を実行(代用?)する方法を分かる方教えてください。
MSのHP(期待してないが)、書籍類、その他ぐぐる等行いましたが、直接プリンタポートに
出力する方法が分かりません。
とりあえずこれが出来ればVB2008に移行しようと思ってます。
0935デフォルトの名無しさん
2008/03/15(土) 20:12:270936デフォルトの名無しさん
2008/03/15(土) 20:44:15CreateFile("PRN:"
などでぐぐれば出てくることはでてきたが？
0937デフォルトの名無しさん
2008/03/16(日) 11:12:22COMポートはシリアルポートのコンポーネントがあるからいいとして、
プリンタポートは直接弄れるのかなあ。
VB.NETの問題じゃなくて、OSの制約じゃないかと。
かといって今さら古いOSに拘っててもダメだと思う。
0938デフォルトの名無しさん
2008/03/16(日) 11:46:570939デフォルトの名無しさん
2008/03/16(日) 11:58:490940デフォルトの名無しさん
2008/03/16(日) 18:22:27スレチ申し訳ありませんでした。
Visual Studio 2008 のスレに移動します。
0941デフォルトの名無しさん
2008/03/19(水) 15:57:51Functionの中に複数の返り値がセットされているケースについてです。
以下は無意味で極端な例として書いたものなのですが、一応動作します。
しかし一般的にナンセンスでしょうか？
それとも許される書き方でしょうか？
Function FUNC_1() as integer
FUNC_1 = 1
if flg = true then Exit Function
FUNC_1 = 2
End Function
0942デフォルトの名無しさん
2008/03/19(水) 16:01:32Function FUNC_1() as integer
FUNC_1 = 1
if flg = true then Exit Function
FUNC_1 = 2
End Function
ついでに、VBには条件演算子がないようなのですが、
何か代替になる簡潔な書き方はないでしょうか？
例
↓
string s = flag ? "OK" : "NG";
0943デフォルトの名無しさん
2008/03/19(水) 16:07:570944デフォルトの名無しさん
2008/03/19(水) 16:26:17俺は別に気にせずただの変数の1つとして使っているが、
個人的なプログラムでしかVBを使ったことがないので、
他人がどう思っているなのかは知らない。
0945デフォルトの名無しさん
2008/03/19(水) 18:13:24こんなことも
0946デフォルトの名無しさん
2008/03/19(水) 19:48:582005でもそうだったと思うが2008では直ってるんかね
0947デフォルトの名無しさん
2008/03/19(水) 20:20:09Function FUNC_1(flg As Boolean) As Integer
If flg Then
FUNC_1 = 1
Else
FUNC_1 = 2
End If
End Function
0948デフォルトの名無しさん
2008/03/19(水) 20:21:42ずれちゃった・・・
Function FUNC_1(flg As Boolean) As Integer
If flg Then
FUNC_1 = 1
Else
FUNC_1 = 2
End If
End Function
0949デフォルトの名無しさん
2008/03/20(木) 01:02:100950デフォルトの名無しさん
2008/03/20(木) 01:07:260951デフォルトの名無しさん
2008/03/20(木) 06:00:43If 条件1 And 条件2 And ...... Then という仕様だったら
Function FUNC_1() As Boolean
FUNC_1 = False '省略可能だがあえて書く
If Not 条件1 Then Exit Function
If Not 条件2 Then Exit Function
...
FUNC_1 = True
End Function
If FUNC_1() Then って書くと条件追加や削除などメンテしやすい
If 条件1 Or 条件2 Or ...... Then なら
Function FUNC_1() As Boolean
FUNC_1 = True
If 条件1 Then Exit Function
If 条件2 Then Exit Function
...
FUNC_1 = False
End Function
0952デフォルトの名無しさん
2008/03/20(木) 11:28:160953デフォルトの名無しさん
2008/03/20(木) 12:59:030954デフォルトの名無しさん
2008/03/20(木) 13:07:31こんな糞言語でも ちょちょいって作ってあげると感謝されるから笑っちゃうよね
目的を達成するのに最も合理的な道具を選べばいい
そんだけやん
0955デフォルトの名無しさん
2008/03/20(木) 13:49:44ElseIf Not 条件2 Then
・・・
Else
・・・
End If
Select Case True
Case 条件1,条件2,・・・
・・・
End Select
0956デフォルトの名無しさん
2008/03/20(木) 13:52:480957デフォルトの名無しさん
2008/03/21(金) 11:14:31直ってるって・・・
別にそれが間違っているわけじゃないしな
一般的な言語から外れていてもそれがVBの言語仕様なのだから
ちなみに、論理演算は.netからandalsoとorelseが追加されてSCできるようになったよ
0958デフォルトの名無しさん
2008/03/21(金) 21:06:16あー、まあそうだな。言い方が間違ってた。
で、2008ではどうなってんだろう
0959デフォルトの名無しさん
2008/03/21(金) 21:26:110960デフォルトの名無しさん
2008/03/21(金) 22:34:010961デフォルトの名無しさん
2008/03/22(土) 16:35:520962デフォルトの名無しさん
2008/03/23(日) 16:06:120963デフォルトの名無しさん
2008/03/24(月) 13:16:52スレタイ嫁
0964デフォルトの名無しさん
2008/03/24(月) 15:20:300965デフォルトの名無しさん
2008/03/24(月) 15:42:590966デフォルトの名無しさん
2008/03/27(木) 14:53:47デフォルトのCompare関数のソートはできましたが、
VB6からCompare関数を作ってソート呼べますか？
0967デフォルトの名無しさん
2008/03/27(木) 16:02:070968デフォルトの名無しさん
2008/03/27(木) 16:59:55DataList.Add "B"
DataList.Add "C"
DataList.Add "A"
DataList.Sort()
For Each strItem in DataList
MsgBox strItem
Next
0969941
2008/03/27(木) 20:38:53>>943-956
ｻﾝｸｽｺ
0970デフォルトの名無しさん
2008/03/27(木) 20:39:44ｽﾏﾝ
0971デフォルトの名無しさん
2008/03/28(金) 04:18:09EXCELをｴｸｽﾎﾟｰﾄする機能がありOLEを使用しています。
どのようなことが考えられるでしょう？
0972デフォルトの名無しさん
2008/03/28(金) 07:42:060973デフォルトの名無しさん
2008/03/28(金) 07:44:54フォームAとフォームBがお互いの参照を握ってガチムチになっている
0974デフォルトの名無しさん
2008/03/28(金) 09:05:03つまりコードでかくとどのようになるのでしょうか？すいません。
0975デフォルトの名無しさん
2008/03/28(金) 14:19:31調べればわんさか出てくるぞ
http://www.google.co.jp/search?complete=1&;hl=ja&q=vb6+Excel+%E7%B5%82%E4%BA%86%E3%81%97%E3%81%AA%E3%81%84&lr=
0976デフォルトの名無しさん
2008/03/28(金) 19:50:310977デフォルトの名無しさん
2008/03/28(金) 23:17:220978デフォルトの名無しさん
2008/03/30(日) 09:04:24くだすれVB6.0以前（超初心者向け）
http://pc11.2ch.net/test/read.cgi/tech/1206835319/
0979デフォルトの名無しさん
2008/03/30(日) 11:31:140980デフォルトの名無しさん
2008/03/30(日) 12:34:47ひとつくらいあったほうがいいぬ。
0981デフォルトの名無しさん
2008/03/30(日) 19:23:490982デフォルトの名無しさん
2008/03/31(月) 01:06:19comboboxが100項目近くあり、そのひとつひとつのcomboboxで選ばれたものに対して
1番目ならlabel1に0と表示、2場目ならlabel1に1と表示・・・とやりたいのですが
Select Case Combo1.ListIndex
Case 0
label1.Caption = 0
Case 1
label1.Caption = 1
Case 2
labe1.Caption = 2
とずっと続けると異常に長くなってしまうので、何か別の書き方はないでしょうか？
0983デフォルトの名無しさん
2008/03/31(月) 01:43:320984デフォルトの名無しさん
2008/03/31(月) 01:44:340985デフォルトの名無しさん
2008/03/31(月) 02:30:03ありがとうございます！！
0986デフォルトの名無しさん
2008/04/01(火) 01:30:41こういうコードが業務用ソフトに入ってるかもしれない思うと・・・
0987デフォルトの名無しさん
2008/04/01(火) 09:31:13世の中こんなんばっかだよ？
0988デフォルトの名無しさん
2008/04/01(火) 13:41:12レス数が950を超えています。1000を超えると書き込みができなくなります。