VB初心者質問スレ Part7

前スレはこちら
　　Part1 = http://piza.2ch.net/test/read.cgi?bbs=tech&key=968328471&ls=50
　　Part2 = http://piza2.2ch.net/test/read.cgi?bbs=tech&key=990793224&ls=50
　　Part3 = http://pc.2ch.net/test/read.cgi/tech/1000523122/
　　Part4 = http://pc.2ch.net/test/read.cgi/tech/1006922992/
　　Part5 = http://pc.2ch.net/test/read.cgi/tech/1010624646/
　　Part6 = http://pc.2ch.net/test/read.cgi/tech/1013844542/

Win32 API関連スレ
　　http://pc.2ch.net/test/read.cgi/tech/1006783012/l50

心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調てみる。
参．VBScript もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。

2?

(･∀･) こういった話題は、こっちの板でどうぞ
http://doomo.org/cgi-bin/bbs1/za.cgi

>>3
サーバーが見つからないってさ。

VB始めてみようと思うんですが、VBAでも同じような事出来ますか？

むしろVBAが知りたい。
VBしかやったことないけど(VBも素人だが)、AccessVBAで違う所って
何ですか。確か、DAOとか使うんですよね？
あと、マクロってのも連携して使うもの？全部VBAでも可？

WORD & EXCELのマクロ = VBA、そのままの意味
ACCESSのマクロはVBAが使えればほとんど無視していいと思う
あとACCESSのフォームなので
form.Showとか基本的な作法が違う
DAOでもADOでも可

あるプロジェクトに含まれている、フォームやモジュールなど（プロジェクトエクスプローラに
表示されているモノ）の名前と、それらが持つプロシージャの名前だけを印刷するなり
テキストファイルに書き出すなりする方法って無いんでしょうか。

VB用のドキュメント作成ツールとか買わないと出来ないのかな？

>>8
.frmとか.vbpとか開いてみたら？

>>9
ありがとうございます。
vbpを開いてみても、モジュールのファイル名を知るのがやっとで……。
なにかいい方法ありませんかね？

>>10
アドインを作る。

>>11
回答ありがとう。
作るのは無理そうなので、やはり手頃な支援ツールの導入を考えてみます。。

>>8
おまえ、本当にプログラマか？恥ずかしいヤツだな…。

> フォームやモジュールなどの名前
> それらが持つプロシージャの名前だけを印刷
vbp開いてファイル名が解ったら、
あとはそのファイルを開いて必要な部分を抽出するだけだろ。

何か難しいことあるのか？
# ま、どうでも良いんだけどさ。

旧ｽﾚが上がってるんであげ

コードがEUCで書かれたファイルの文字を置き換えしようと思ったんですが
失敗して全部文字化けしたファイルが出てきてしまいました・・

文字コードを見たところEUCのはずが勝手にShiftJisになっている・・

何がマズイんでしょうか・・ヽ（´Д｀ヽ　ミ　ノ´Д｀）ノ

>>14
変換するコードが間違ってることは確か。
あとはコードを見ないと何とも言えない。

>>14
バイナリで読みこんで文字列に変換してるならStrConvしなよ。

>>13
＞あとはそのファイルを開いて必要な部分を抽出するだけだろ。
その手順を簡素化する方法に付いての質問だと思うのだが。

# ま、どうでも良いんだけどさ。

>>14
VBってEUC扱えたっけ？
バイナリで読み込んでバイナリのまま処理するか、
一端SJIS(かunicode)に変換して文字列として処理したあとEUCに変換して保存
するかしなきゃ駄目じゃない？

とりあえず途中からなんですが・・
変数を宣言した後です。すごい単純なやつかと・・

Open "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\第2のサイト\" & suuzi & "\sylpheed.cgi" For Input As #1
Do While Not EOF(1)
Line Input #1, buff1
buff1 = buff1 + Chr(13) + Chr(10)
buff2 = buff2 + buff1
buff3 = Replace(buff2, "パソコン", "パーソナルコンピュータ")
Loop
Close #1
Open "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\第2のサイト\" & suuzi & "\sylpheed.cgi" For Output As #2
Print #2, buff3
Close #2

↑これで普通のファイルの場合はできるんですが(Shift-JIS)
”パソコン”を”パーソナルコンピュータ”に置きかえる例なんですが・・
で、EUCだから改行コードがchr(13)+chr(10)→chr(10)なのかな・・と・・

それで変えてみたんですが置きかえられたファイルはやっぱり文字化け・・
更新されたファイルが勝手にShift-JISになってました・・
まだ初めて1ヶ月程度なんですが、今の自分技術で可能でしょうか、
これを解決するのは・・

>>19
根本的にEUCと文字コードに関して誤解してるな。
EUCは改行コードが異なるのではなくて、文字コードそのものの位置が全然違う。
だから、専用に変換コードを書くか、DLL使って変換してあげなければいけない。

http://www.geocities.co.jp/SilkRoad/4511/vb/nkf32dll.htm
DLL使うならここを参考に。

手順としては、ファイルをバイナリでバイト配列に読み込んで、
DLLを使ってバイト配列のEUCをShiftJISに変換、
それをStrConvを使ってvbUnicodeに変換、
必要な処理をしたあと、vbUnicodeからバイト配列(ShiftJIS)に変換、
それをまたDLLを使ってEUCに変換、バイナリとして保存。

初心者の質問ですが教えてください。
DLLの中の関数の詳細をみるにはどうしたらいいんですか？

>>20
ありがとうございます
なんとかやってみます！

>>21
詳細ってどのレベルまでのこと？

>>20

で紹介されているリンク先で、2ch用語が使われていて、ワラタ。(^◇^;;
　　　　　　　↓
> Q : 文字列を渡せねえぞゴルァ

>>21
あなたが言っているDLLは普通のDLL？それともActiveなDLL？

pdfやpptなどのリンクを押してブラウザで表示するのではなく
「ダウンロードしますか？」みたいなダイアログボックスを表示して
HDDなんかに落としたいのですが、VBScriptで出来ると思いますか？
っていうか、どんな言語が適しているのか参考までに思ったことを
教えてください。参考になる本、HPなんかあったらそちらもよろしくお願いします。

追記です、
exeとかには出来ないんです・・・
ネスケは無視してます。
以上です。

右クリックして保存すれば？

早速ありがとうございます
そうなんですよね、アドビにもMSにもそう書いてあったんです
でも、「そんなんじゃ駄目だ！」だから困ってるんです
javaScriptでやってみたんですが、WordとかCSVはダイアログが出るんですが
pdfとかは出来ないんですよね・・・・
ダイアログは自作のを出そうかなと思ってるんですが
ほんとにVBScriptで出来るのかも心配なんです

わけあって、App.PreInstanceではなくMutexで排他をかけようとしてます。
でWin32APIをつかって、以下のようなコードを書いてみたんですが、なんでか
排他がかかってないみたいなんです(2つ起動してボタン押したらどちらも"最初"がでてきてしまう）。
CreateMutexとかの指定がわるいんでしょうか？

Dim m_hMutex As Long

Public Function MutexCheck() As Boolean
Dim PrevhMutex As Long

PrevhMutex = OpenMutex(MUTANT_ALL_ACCESS, 0, "MyMutex")
If PrevhMutex Then
CloseHandle PrevhMutex
MutexCheck = False
MsgBox "二重起動"
Exit Function
Else
m_hMutex = CreateMutex(0, 0, "MyMutex")
MsgBox "最初"
MutexCheck = True
End If
End Function

Private Function MutexRelease()
ReleaseMutex m_hMutex
CloseHandle m_hMutex
End Function

Private Sub Command1_Click()
If MutexCheck = False Then
' If App.PrevInstance Then
MsgBox "二重起動"
Else
Sleep (3000)
MsgBox "最初"
End If

' MutexRelease

End Sub

ディストリビューションウィザードの仕組みなんですが。
えーと、作成するとsetup.exeとsetup.lstとアプリ名.cabが出来ますよね。
setup.exeはCかなんかで作られてて、VBランタイムがない環境でも起動する。
これを起動するとアプリ名.cabを一時的に解凍し、
VBランタイムが勝手にインストールされ、一緒にsetup1.exeも抽出される。
それが終わるとsetup1.exe（VB製）が起動する。
これがインストールウィザードのキモであり、これでインストール先ディレクトリ決めたり、
プログラムグループ決めたりしてるわけですね。
もし途中でキャンセルされると、再びsetup.exeが起動されVBランタイムがアンインストールされる。
と。

これで、たぶんあってますよね。

通常、
C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Setup1
に入ってるソースは、setup1.exeのもので、
これを作り替えればディストリビューションウィザードの動きも変わる・・と。
そうですよね。

>DLLの中の関数の詳細をみるにはどうしたらいいんですか？
>>23 >>25

普通の？DLLだと想います。
たとえば、そのDLLにどのような関数が含まれているかを見る方法、
あとはドキュメントが隠されていたりしたらそれを見る方法です。
（関数だけだと、その関数の使用用途がよくわからない場合も多いので）

>>32
dumpbin.exe で関数名とエイリアス名はわかる。
VBにも付属してたっけ？
でも、ドキュメントも公開されていないような関数を
使うのは、引数とかの範囲もわからないわけで、
そういうことはしないで他の方法を探したりする。

>>32
何がしたいの？ まさか仕事でやっているんじゃないよね。

関数を見る方法が無いわけじゃないけど
(たとえばVisual StudioについてるDependency Walkerを使う)
普通のDLLなら関数名ぐらいしか分からないよ。
ActiveXなら引数までわかるけどドキュメントなんかは普通無い。

最初っからあやしいことするなら別だけど、ちゃんとしたドキュメントみな。

ヘルプの例文に次のようなコードがありました。
With Application.CommandBars("cell").Controls _
.Add(Type:=msoControlButton, before:=6, _
temporary:=True)
.Caption = "New Context Menu Item"
.OnAction = "MyMacro"
.Tag = "brccm"
End With
なんとなくわかるのですが、なんか変な気がします。（withの後ろにオブジェクトではなくメソッドが書かれている点）
この場合、with文の中身の.caption等はどこに対応していることになるのでしょうか？
また、このコードをwithを用いずに書くなら、どのようになるのでしょう？

みんなVBやるときエディタなに使ってるんですか？

>>35
最悪だろこれ。だれが書いたんだ。面倒だから動かしてないが、
.AddメソッドはCommandBarControlを返すわな。
.Captionは新しく作られたCommandBarControlにかかっているのだよ。書き直すと、

Dim cbc As CommandBarControl
Set cbc = Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=6, temporary:=True)
With cbc
　.Caption = "New Context Menu Item"
　.OnAction = "MyMacro"
　.Tag = "brccm"
End With

ということだ。cbc使わなくしようと思ったらああなるだろ。
CommandBarあたりはあまり使ったこと無いから型とか間違ってたらゴメンな。

>>36
普通はIDE付属のエディタだろ。あれ以外でコントロールの配置や
RADと統合やらコード補完や定義文へのジャンプやらプログラミング時の
エラーチェックがまともにサポートされているエディタは知らんぞ。

キーカスタマイズできんのが難だがそんなもんは
キーカスタマイズツールで変更すればいいだけだし。

VBで配列の要素数ってどうやって調べるんでしょうか？

>>37
なるほど、addメソッドは値を返すんですか。
それですべての謎が解けました。
ありがとうございました。

>>39
MSDNで検索できました。
Ubound関数ですね。

ＶＢと互換性があって無料のものってありませんか？
Ｃはありますよね？
ＶＢって無いんですか？
マジで教えてください。

>>42
Delphi6
Borlandのサイトに行けば無料で落とせるよ。

VBとDelphiに互換性があるなんて初めて聞くぞ。
42が言っているのはフリーなVBコンパイラがあるかということだろ。

インタプリタならあるがコンパイラはない。
・・・という答えであってるかな？
VBCCEってのがMSから無料でﾀﾞｳｿできるそーだ。

>38
http://www.vector.co.jp/soft/win95/prog/se072486.html　こーいうのがないかなぁって思ったんだよね

ＶＢが欲しいです

>>47
買いましょう

>>47
働けって。

>>47
どうせ、おまえには使いこなせないからやめとけ。

>>46
VBでもアドインで外部エディタを使えるようにすることもできると思うが
VBに限らずIDEで開発している人は外部エディタなんか使わないと思うぞ。
今はIDEの方がエディタは使いやすいし。

->とか.とか入れたらなんか出てくるところがいいんじゃねーか。
Notepadはすっこんでろ

>>52
ここはVBスレです。

>>30
>MUTANT_ALL_ACCESS
この定数の値はどうなってる？

それと…。
> CreateMutex
こいつの Declare文は？

最初のlpSecurityAttributesはポインタだ。
何もせずに 0を渡したりしてるが、もちろん宣言は ByValに変えてあるよな？

>>7
ド亀レスですが、ありがとう。
AccessVBAやってみたよ。
これって、あるコントロールの.Text取ろうと思ったら、
いちいち先に.Setfocusしないとダメなんですか？
もっと、良い方法あるのかな？

>>55
.Value

>>26
>javaScriptでやってみたんですが、WordとかCSVはダイアログが出るんですが
>pdfとかは出来ないんですよね・・・・

IE4、IE5、I5.5、IE6の仕様レベルでのバグなので無理です。
Content-Dispositionの解釈が無茶苦茶なので、勝手に開きます。
環境によってはWordも勝手に開くし、CSVでも勝手に開く。
＃こういうことやってるからウィルスにやられるのよ、IEは。

http://www.microsoft.com/japan/support/kb/articles/J050/8/65.asp
http://tohoho.wakusei.ne.jp/lng/199903/99030058.htm

↑他にもあったと思うけど、ちょっと見つからないや。

サーバ側から返すヘッダをIE向けにアレンジしたらダイアログを出すことはできるけど、
バージョンによって、「.」だけとか「XXX.」とかいう変なファイル名がデフォルトで表示されたりする。
バージョンによってもこの辺の挙動が微妙に違ったと思う。

＃ネスケだけに対応する場合は、ファイルタイプをapplication/octet-stream
＃にすればなんとかなったような・・・・。

MSRDCに接続する時、
画面にパスワードなど入力画面画出るのですが、
これが出る前にソースでパスワードを
入れるにはどうしたらいいのですか？

ORACLEODBCに接続したいのですが、
どういうソースを書いたらいいのでしょうか？

>59
ttp://otn.oracle.co.jp/sample_code/db_connect/odbcasp.html
これくらいはグーぐればすぐ出てくるぞ。

>60
すいません。
ありがとうございます。

pascalの　in　に相当するような演算子はＶＢにはないようですが、何かいい方法はありますか？
if a in [1,7,13,17,19,20,21,29,59] then 〜
は
if (a=1) or (a=7) or (a=13) or (a=17) or･･･　と書くしかないのでしょうか？

これじゃヤだ？>>62
Select Case a
　Case 1 7 13 17 19 20 21 20 59
　　'適合する場合の処理
　Case Else　'その他の場合
　　'その他の場合の処理
End Select

>>62
その通り。if文を使う限りはそうなる。
ちなみにVBは a = 1 or ... というようにかっこで囲む必要がない。

>>63の方法を使わなければならない。
ひとつ気がついたけど、
> Case 1 7 13 17 19 20 21 20 59
は
Case 1, 7, 13, 17, 19, 20, 21, 20, 59
という風にコンマで区切る必要があるのでは。

>>63
>>64
ありがとうございました。

63です。すんません。コンマ要ります。ド忘れました。

VBでちょっとしたプログラムを作ってみたんだけど、HSPだったら
「ぽいっ」
とソースを貼り付けできるんだけど、VBだと、困るよね。
どうしたらいいんだろうか。

なぜこまる｡
｢うりゃっ｣
と貼り付けて見ろ｡

MsgBox "Hello, Bill!", vbInformation, "うりゃ"

If 67 = "厨房" Then
MsgBox "イベントドリブンって知ってる?", vbInformation
Else
MsgBox "ネタにﾏｼﾞﾚｽ､､､", vbInformation
End If

質問です。
デザイン時とコード内、どちらでも設定可能なプロパティは、
プロパティウインドウで設定する方がいいのでしょうか？

標準モジュールに書くのと、クラスモジュールに書くのの差は何ですか？
てゆか、クラスモジュールのことはさっぱり分からないんだけど。

vb の最大の欠点を発見してしまった。
1行がコードの単位だから、あまり長い行が書けない。
Scheme とかだと､改行でうまく構造化できるのに。

>>72
アンダーバー使え

>>72
“_”つけて、途中で改行すればいんじゃない？

>1行がコードの単位だから、あまり長い行が書けない。
>Scheme とかだと､改行でうまく構造化できるのに。

_ でつなげられるけど読みやすくはないね｡
SQL文をよく書くんだけどダブルクオートとアンパサンドとアンダーバーばっかりで
コードが読みづらくてしょうがない｡perlやRubyだと変数展開してくれるし
ヒアドキュメントがあるから何でもないんだけどね｡

コードの見やすさと言えば、
変数いっぱい並べてまとめて代入してる所とか、
タブで綺麗に成形したくても=の後はスペース1個に勝手に変えちゃったりするのって
ナントカならんの？

_付けすぎると、VBで読みこみ時に多すぎるとか
エラー吐いてそれ以降読んでくれないんだけど、あれウザイ。
どうにかしろ。仕事にならん

schemeを知っててVB使ってるのか。お気の毒

条件付コンパイルってありますよね。
#if DEBUG_MODE　then
　デバッグ用のコード
#end if
↑こんなやつ。最近知ったので使い出したんですが、問題はDEBUG_MODEの定義。
今のところプロジェクト内のすべてのモジュールで
#const DEBUG_MODE = true
とか定義して、リリース時にtrueをfalseに一括置換してます。
これが面倒なので、もっといい方法はありませんか？

>>79
条件付きコンパイル引数

>>77
_付けすぎるとVBがごねるのはダメだとして、
それで仕事にならんことはないと思うが。

>>71
デザインパターンを実装するときに使用します。と言ってみるテスト。

>>71
一言であんたが理解できるような説明の仕方があったら
あのＭＳだってヘルプに書いているだろうな。
まぁ悩め。普通の人間ならそのうちわかるからｗ

>>81
そのためだけにソースの方を修正する必要があって困る。

str = "〜" _
& "〜"
を
str = "〜"
str = str & "〜"

に直してけば直るが、こう何度もおこると
イライラして仕事にならん。
こういう処理系の作り的な不具合(仕様か?)は勘弁してくれ。
こんな制限あるなら最初から'_'なんか無くしちまえ

>70
>プロパティは、 プロパティウインドウで設定する方がいい？

　プロパティは全てデフォのままでコード中から制御する方がデバッグする時に楽だ（と思う)。
　何故なら、コードのみを注視すれば良いから。

　仮にプロパティウインドウにて設定すると、コードに加えプロパティウインドウにも注意しないと
いけないため、コントロール数が多い時追うのが大変。
　ちなみに某社では「コード中に記述する事」というコーディング規約があった。

>71
ttp://homepage1.nifty.com/CavalierLab/lab/vb/clsmdl/

>>84
最初っからそう書けばいいのでは？
どうせ_で問題が起きるのはSQL文くらいなもんでしょ。

>>71
FileSystemObjectのようなものを作ってみたら？
標準モジュールでは問題があることが分かると思うよ。

>>84

サンプルなのでどうでもいいが、strなんて変数はやめとけ。
標準の関数名だから。

>str = "〜" _
>& "〜"

と書くのがそもそも間違い。

>str = "〜"
>str = str & "〜"

sql = ""
sql = sql & "select"
sql = sql & " fieldA AliasA"
sql = sql & ",fieldB AliasB"
sql = sql & ",fieldC AliasC"
sql = sql & " from"
sql = sql & " tableA AliasTA"
sql = sql & ",tableB AliasTB"
sql = sql & " where fieldA = 'あああ'"
sql = sql & " and fieldD = 'いいい'"

とか書く。経験的にこれがベターだと思う。
ま、問題は、selectの直後のフィールドとwhereの直後の条件だけ
書き方が例外的になるところかな。(この書き方の問題ではないが)

>>85
ありがとうございます。
たしかにそうですね。コードで全部設定すればプロパティウインドウは気にしなくて
いいですね。
……ただ、そうすると実行ファイルのサイズが大きくなったり、実行速度が低下したりは
しないのでしょうか？

ちなみに、「_ 」(アンダーバー+半角スペース)の
行継続文字の使用は25個までだ。

各種制限事項はMSDNで一箇所にまとまってるから、
嵌りたくなければ、常識として目を通しておくように。
http://www.asia.microsoft.com/japan/developer/library/vbcon98/vbconvisualbasicspecificationslimitationsfileformats.htm

VBAスレってないみたいなんだけど　VBでいいのかな

>>91
いいんじゃない。

>>89
当然大きくなるし、遅くもなる（微々たるもんだがな）。
気になるならプロパウィンドウで設定すればいいじゃん。
完璧なもんなんかあるわけねーだろ。

VBと言うよりVBAなのですが、MS-Projectのマクロから
他のMS-Projectファイルを裏で起動させて
そのファイルの内容をコピーして、利用したいのですが、マクロから
MS-Projectの起動方法が分からないのです。
どなたか、知っておられる方がおりましたらご教授下さい。

>>54　亀レスすみません。

>>>30
> >MUTANT_ALL_ACCESS
> この定数の値はどうなってる？

Const MUTANT_ALL_ACCESS = &H1F0001
です。

> それと…。
> > CreateMutex
> こいつの Declare文は？
> 最初のlpSecurityAttributesはポインタだ。
> 何もせずに 0を渡したりしてるが、もちろん宣言は ByValに変えてあるよな？

こんなかんじです。
Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" ( _
ByVal lpMutexAttributes As Long, _
ByVal bInitialOwner As Long, _
ByVal lpName As String) As Long


・・・実はDeclareをFormとは別の標準モジュール中で宣言してたんですが、もしかしてそのせい？

ヘルプにある

Dim pj As Object

Set pj = CreateObject("MSProject.Project")
pj.Application.FileOpen "My Project.mpp"

を試して見たのですが、「書き込みに失敗しました」とエラーが
出てしまいます。　何がいけないのでしょうか？

>>86 >>88
あのなあ、そんなことはわかってんだよ。
引継ぎってやつを知らねえのか？
最初から自分で作る分はそれで書いてるよ。
それからな、strは例なわけよ。今は変数名の議論なんかしてねえだろドアホ！
あーヒアドキュメント使いてー
ふつーのSQL文を文字列に直すのだけで一苦労だっつーの。
二重引用符うぜー

>>90
不具合を常識とか言ってんなヴァカ！

そもそも'_'にそんな制限つけるほうがバカだね。
_付けるぐらいだから長いに決まってんだろーが！
コメントにまで_適用しやがるし、もう使えねーよＶＢ。

何か参照設定でもあるのでしょうか？。。。。

>>97
> ふつーのSQL文を文字列に直すのだけで一苦労だっつーの。
あんたPerlつかえるんだろ？
だったらPerl使ってSQL文整形すればいいじゃないか。
そうすりゃ、"_"から"str & 〜"への変換も楽だろ。
俺はawk使ってるけどな。
SQL文→VBの文字列、VBの文字列→SQL文への変換もそれでやってるし、
フィールド名なんかはドキュメントから変換して使うから
長いSQL文でもなんの苦にもならねぇんだが。

プログラマなら口出す前に頭使えよ。

＞プログラマなら口出す前に頭使えよ。
うるせー馬鹿

>>101
ほらよ。awkで作った変換スクリプトあげるから、ヘソ曲げるな。perlじゃなくてすまんな。
作成時間数分程度のちゃちいものだから変換結果が気に食わなかったらカスタマイズしてね。
コマンドライン操作がイヤなら適当なGUIでもさがして。ちなみに俺は自作。

普通のSQL文をVBの文字列連結に変換する
{
print "str = str & \"" $0 "\"";
}

アンダーバーから文字列の連結に変換する
{
s = $0;
gsub("& _$", "", s);
print "str = str & " s;
}

普通自作関数で整形するかエディタでなんとかするよな＞SQL

効率悪い仕事しかできない奴ほどすぐ環境のせいにする罠

VB6を使っています｡
デスクトップフォルダまでのPath名を取得したいのですが
どのようにすればよいでしょうか。ご教授ください。
OSはWin95からWin2000までです。

VBと言うよりVBAなのですが、MS-Projectのマクロから
他のMS-Projectファイルを裏で起動させて
そのファイルの内容をコピーして、利用したいのですが、マクロから
MS-Projectの起動方法が分からないのです。
どなたか、知っておられる方がおりましたらご教授下さい。

ヘルプにある

Dim pj As Object

Set pj = CreateObject("MSProject.Project")
pj.Application.FileOpen "My Project.mpp"

を試して見たのですが、「書き込みに失敗しました」とエラーが
出てしまいます。　何がいけないのでしょうか？

awkって結構使ってる人いるんだ？

>>102
さんくすこ。


>>103
＞普通自作関数で整形するかエディタでなんとかするよな＞SQL
はあ？
何いってんの？

>>107
いいからさっさと死ね

>>77
使えないのは、VBじゃなくて
最初に糞コード書いた奴＆>>77だろ
何でもVBのせいにするなよ。

inetの使えないLearningEditionのVB6に愛の手を・・・
WEB上のHTMLページのソースを取得したいのですが、
ient.OpenURLを使うことが出来ません。
他に方法があると思うのですが紹介をお願いします。

VBAでも同様にソースを取得したいのですがお願いして良いでしょうか...

>>110
Learning Edition については、よく知らないが、
Winsock コントロールもついてこないのかな？

>>111
ええそうなんです...
ここにはExcelVBAで繋いでるスクリプトがあるんですが
ソースが公開されていない・・・
ttp://isweb31.infoseek.co.jp/computer/denoyaji/vba_kowaza.html

あちこち回っているのですがなかなんか収穫ありません。
また少しgoogleで回ってきます

すいません。僕の例え話に付き合ってください。

標準モジュールとクラスモジュールの違い

A君は標準君というロボットを開発しました。
標準君は人間としか思えない動きを連発しました。大発明です。
みんな大騒ぎです。天才！天才！A君は大変喜びました。
そのころ、B君もクラス君というロボットを開発しました。
クラス君も人間としか思えない動きを連発しました。これまた大発明です。
標準君とクラス君どちらが勝つのか。A君は自信満々でした。
「標準君の方が発売日が一週間早い。勝ったも同然だな。」
結果、B君のクラス君が圧勝でした。標準君は忘れ去られました。
何故でしょうか？答えは簡単です。
標準君はすべてのロボットが同じような動きしかしませんでした。これでは面白くありません。
しかしクラス君はそれぞれのロボットに性格（プロパティ）を設定することが出来たのです。
性格が違えば行動も違う。怒りっぽかったり、泣き虫だったり…
これは面白い。こうしてB君は歴史に残る発明家となったのです。

よくわからないけど、こんな感じなのですか？

>>113
ＯＯのたとえ話って言うんなら解るけど
VBのクラスモジュールの例え話としては大げさな感じがする。

>>113

クラスモジュールはたこ焼き器だ。
たこ焼きを量産できる。具をたこの代わりにイカを入れてもいい。
てんかすをいれてもいい。

標準モジュールは１つしかボール上の凹みがないたこ焼き器だ。
1つしか作れない。

ボール上→ボール状

>>115
なるほど。プロパティを具に例えることによって
具を変えると味が変わるという簡単かつ明瞭な方法で、クラスモジュールを例えられている！
しかも具が違ってもたこ焼きの外見は変わらないというところが実にいい！

標準モジュールというたこ焼き器も、↑と同じことをしようと思えば、
そのたこ焼き器本体自体を大量購入しなければならないという効率の悪さを上手く表現している！
天才だ…

テキストボックスとラベルを貼ったフォームがあって、
ラベルをクリックするとテキストのValidateがおき、
GotFocusがおきずにフォーカスがテキストに戻るのですが、
世の中そういうものでしょうか？

ラベルを連打するとValidateだけが何度もおきる・・・

>>118
そういうもんです。一つ賢くなりましたね:)

ここのBBS↓読めねぇぞゴルァ
http://www.users.gr.jp/WebBoard/show.asp?1058.htm

ユーザー登録とかちゃんとしてるんだけどなぁ〜一応。

VBでクラスのインスタンス？（Newしてできる複製のこと）
を作るときインスタンスごとに初期化したいクラス内の変数
があります。
　初期化はどうしたらいいのでしょうか。

Formの生成の場合もそうなのですが、
現在は初期化の方法がわからないので、インスタンスを１個以上
作ったことがありません。

よい方法が見つからないのですが、なにかよい方法はないでしょうか？
どなたか教えてください。

インスタンスに挑戦。
マクドナルドでメニュー（ツールボックス等）を見て、食べたい物（クラス）を決めて、
店員（VisualBasic）に食べたい物を言うと、店員がそれと同じ物を作って出してくれる。
これをインスタンスと言う。

>>121
僕は例えているだけで、あまり使い方はしりませんが、
>>85さんの書き込んでいるリンク先のインスタンスの誕生と終焉という
ところに書いてあった気がします。

フォーム全体の大きさではなくて、
テキストボックスとか、リストビューなどの
コントロール自体を、マウスのドラッグでリサイズするには、
どうすればいいのでしょうか？

例えば、Webブラウザのフレームの境界をドラッグして、
リサイズするみたいなことをやりたいのですが、
どのコントロールを使うのかもわかりません。
お願いします。

>>122 情報ありがとうございます。

＜＜このような場合は、クラスモジュールのイベント Initialize
と Terminate を利用します。＞＞
と書いてありますが、わたしがやりたいのは、たとえば

　Private 赤_りんご As New clsりんご(iro := "赤"）
　Private 青_りんご As New clsりんご(iro := "青"）

のような感じなのです。

　私の感じでは「クラスのインスタンスを生成する側が
初期値を指定できないと使いづらいというか、
クラスの意味が半減？する気がします。」

　そんな馬鹿なことはないと思いますので、なにか方法があるように
おもうのです。Initializeにたいして、（インスタンスを
作成する側は）初期値を渡せるのでしょうか？

>>124
引数付きコンストラクタはありません。
VB.NETからはできるようになっています。

初期化用メソッドを各クラスに作成し、
必ず実行すべしという自分ルールを作るくらいしかありません。

標準モジュール(例えばConstructor.basとする)を使って、
Public Function Class1( _
ByVal arg1 As String, ByVal arg2 As Long) As Class1

Set Class1 = New Class1
Class1.Init(arg1, arg2) ' クラス側で初期値設定用のInitメソッドを用意しておいてね。
' 後、Initメソッドはここ以外で呼ばない。このクラスのインスタンスが必要なときは、
' Newではなくこの関数を経由すること、という取り決めを守ってね。
End Function

とかいう風にすると、
Dim c As Class1
Set c = Class1("引数1", 100)

のようにすることもできますが、所詮は見た目だけです。

>>89
エディタで一回frmファイルを開いてみる。

>>113
結局、「クラスはカスタマイズ可能」というだけ？
たとえ話を考えようとした努力は認めるけど。

>>123
簡単ではない。
ラバーバンドで表示して、マウスボタンを離したらリサイズ
するのなら、なんとか書けるかな。

TDBGRIDで、何行目を選択する
って言うのをマウスを使わずに
ソースでできますか？

簡単なことだた。

>>57
不可能だと分かりました・・・・・
参結構悩んだ人がすでに居たんですね参考になりました。
ありがとうございました。

AccessやExcelのVBAコード入力中に、VBのようにF1キーでMSDNを
開くことは出来ないのでしょうか。
知りたい単語にカーソル合わせてF1で開けたら便利なんだけど。。。

>>123
SetWindowLongでスタイル変更してリサイズ可能にできるが、
VBのデザイナのようにはならない。

>>123

>例えば、Webブラウザのフレームの境界をドラッグして、
>リサイズするみたいなことをやりたいのですが、
>どのコントロールを使うのかもわかりません。


アプリケーションウィザードでエクスプローラ風スタイルを
選んでアプリの雛形を作れば、その中に実現しているコードがある。

従来のVBにはそういうコントロールは付属していない。.NETにはSplitterがあるけどね。

>>125
ありがとう

>引数付きコンストラクタはありません。
>VB.NETからはできるようになっています。

長い間疑問に思っていたことが、漸く理解できました。
VBは少しだけ、欠陥があったわけですね。
　VB.NETでは関数がreturnで戻り値を返せるようになった
そうですね。これも長い間疑問に思っていました。

>>126さん >>131-132さん
ありがとうございます。
VB6.0には専用のコントロールはないんですね。
とりあえず、「できたらいいな」っていう程度の
状況なので今回は諦めて、暇なときにいろいろ試してみます。

ひょっとすると、別々のフォームに載せちゃって、
一方のフォームの大きさや位置に応じて、
他のフォームを変形させる方が楽かも、とか思ってます。
デスクトップ上の位置を取得するのも面倒かもしれませんが・・・

とにかく、教えていただいてありがとうございました。
では。

フォームのtopとか、leftってデスクトップ上か、
親ウインドウの座標になるんですね。
初心者すぎてよくわかってませんでした。

　ビジュアルベーシックには、文字データや数字データを全般的に指したり、判別するステートメントや関数はありますか？
例えば次のような場合に使いたいのです。

　もし　a = 文字だったら、
　　　　･･････する。
　そうではなく a = 数字だったら、
　　　　･･････する。

　もしあれば教えてください。

>>136
Isなんたらで出来るけど、
なんか文面が引っかかるなぁ。データ型って概念ちゃんとあるよね。

Variant型の中身を調べたいってんなら、TypeName関数ってのもある。

が、そういう使い方はキモイよ。
何の為に型宣言をするのかを考えてみてね。

オーバーロードを無理矢理実現するのに使えることが…。
ふつう使わないけど。

あと、VarTypeやTypeOf

　string変数内の文字と数字を判別したいのです。

それなら>137が提案している案。
この場合はIsNumericか。

でも注意点が一つ。
IsNumericは数値に変換できるか調べるのであって
すべて数字であるかを調べるのではない。

たとえば、
IsNumeric("&H10")はTrueになる。なぜなら数値(16進数表記の16)のことだから。
全部数字であることをチェックするには関数を作らなければならない。
ループして一文字ずつチェックをするだけだから簡単でしょ。

リストビューの項目の削除のやり方がわからんＹＯ
MSDN見ても載ってない…
だれかおせーて

144に便乗質問。
リストビューの各列って色変えれたっけ？

>>143　それつくってるんですよ

>>144
object.Remove (index)

ってmsdnに載ってるぞー。
ListView1.ListItem.Remove 1
とかいう風に使う。

ごめん、間違い。
ListView1.ListItems.Remove index
ね。ListItems。S入れ忘れ。

>>148
ありがとう　おじさん！

「VBCCE」ってのを使っています。


質問１．
読み込み専用のテキストボックスってどうやったら良いですか？
KeyPress イベントで KeyAscii を０にすれば入力は禁止できますが「ＤＥＬ」キーで文字が削除されてしまいます。

質問２．
複数行テキストボックスでリターンで改行する際にデフォルトのボタンがあるとボタンの入力になってしまい改行できません。


どうにかしてください。

やだ。

>>150
１：Text1.Locked = True にする。
２：デフォルトのボタンを設定しない。

ぼくはＣ言語を勉強したとき、ＤＯＳプロンプトで実行するものしか作らなかったのですけど、
Ｃ言語でＶＢのようなテキストボックスやコマンドボタンを作れるのですか？

スレ違いですが、続いて聞きたいことがあるのでぜひおねがいします。

>>130
直接は無理だけど、アドインを作ればおっけー

>>139
オーバーロードとは言えないと思うぞ

>>144
ListItemsだったか？ コレクションの使い方を学べ

>>145
SubItemのBackColor

>>150
Lockedはなかったか？ Enabledでどうだ。
なんか、プロパティで制御できたような気が・・・
ダメなら、メッセージかスタイルの設定だな。

>>153
できるぞ。かなーり面倒だがな。

>>110
Inetコントロールの実態は、WININET.DLLだ。
Internnet〜系のAPIを自分で宣言して使うしかなかろ。

http://www.mitene.or.jp/~sugisita/family/papa/vb/index.html
ここでも行ってみれ。

VBのブラウザコントロールって自分の環境のバージョンのIEですか？
同じディレクトリに置いた外部CSSとか読めますか。

やっぱりできるんですか。
「Ｃ言語でできないことはない」といってる友人がいるのですが、ＶＢのようにテキストボックスとコマンドボタンをひとつずつ配置して、
テキストボックスに何か値が入っているときだけコマンドボタンを有効にするっていうのは可能ですか？
ＶＢのChangeイベントみたいな感じでです。

>>158
その友人は正しいよ。
VBで作れてVC++で作れないアプリはない。

それも出来る。イベントじゃなくメッセージだけど。

>>158
そのC言語の商品名とバージョンが少し気になったりする。

>>159
かなり「できる」友人です。やっぱり彼は正しかったんですね・・・。
Ｃを勉強してたとき、ポインタで挫折するという典型的なパターンを踏んだぼくから見れば、Ｃのできる人は尊敬に値しますねえ。
ＶＢならコントロールごとに分けて考えることができるので、まだわかりやすいような気がします。
>>160
詳しいことはわかりませんが、学校で学んだＣではDOSプロンプトで実行するやつ（コンソールアプリケーションとかいうのを選択してやってたような気がします）の後に、
授業が分かれて、彼はＭＦＣとかいうのをやる方を選択したようです。

>>157
そういうこと。読めると思うけど・・・

>>158
もちろんできる。

>>161
ポインタで挫折するのはしょうがない。が、アドレスについて理解するように
すれば、いずれマスターできると思うぞ。

構造体ってのがよく分かりません。
なんの為に、たくさん宣言するんですか。
使い所を教えて下さい。

＃まとまってないが・・・

>>163
同じタイミングで使う変数は、ひとつのところにまとめておいた方が、間違いが少なくなる。
たとえば、Aという関数で10個の変数を初期化し、それをBという関数に渡すとする。
10個の変数を別々に使うと、抜けがでたりすることもあるだろ？ 引数を10個指定するのも
面倒だし。

そういうとき、構造体を使ってれば、まとめて扱うことができる。

＃以下余談

これ、オブジェクト指向プログラミングで重要になってくる、カプセル化につながる
重要な考え方だ。実際、クラスは構造体に関数を加えたものに過ぎない。

>>164
ありがとうです。
初期化、引数の渡しやすさなど、なんとなーくですが分かった気がします。
精進します。

>>161
MFCはCというよりVC++だなぁ。
MFC使わない場合でも、Win32API使えばOKだけどね。その場合はCでもC++でも、
DelphiでもVBでも同じようなものだけど。
(VBやDelphiでAPI使ってウインドウ作るのは馬鹿馬鹿しいが。)

alphablendを使えば使うほどPCが重くなるんですが、何を解放すればいいんでしょうか。

あの、これから始めるはどのようなソフト買えば
いいのでしょうか？当方プログラミング未経験です。
お願いします。

>>168
勉強したいだけなら買う必要はないぞ。
VBなら制限はあるがフリーでVBCCEがあるし、
JBuilder、Delphi、Borland C++ Compilerなんてのもフリーだ。
他にも色々フリーであるからとりあえず触ってみるのもいいかも。

つーかVBなんて使うな

>>150
>読み込み専用のテキストボックスってどうやったら良いですか？

Labelで十分。凹ませたかったらBorderStyleプロパティいじれ。

>>170
一部で需要があるから仕方ない

>>167
別に解放するものなんかないんだが・・・ 他の部分を疑ってみれ。

>>168
>>169も言ってるように、フリー版やお験し版で試してみるのがいいぞ。

>>170
なんでだ？ 理由を述べよ。

だれかーーーーー
VB6.0なんだけど、ComboBoxでAddItemでデータを入れて、
そのデータを選んだときにイベント発生させたいんだけど、
combo1.change()　ってやつではそのAddItemで追加したデータを選択した
だけではイベント発生してくれないみたいなんです。
これを、AddItemで追加したデータを選択しただけであるイベントを発生させるには
どうしたらいいんでしょうか？
２ちゃんねらーの方々よろしくおねがいしますです。

>174 combo1.Clickを使え

あああああああああああーーーーーーー
ほんとだぁできたーー＾＾
ほんとしょうもない質問してすいませんでしたーー（’▽’）ノシ

VB で 8.3 以上のディレクトリ名を含むフルパスから、8.3 の
短い名前のディレクトリ名のフルパスは、どうすれば取得できる
でしょうか？

過去ログ（HTML化待ち以外）はざっとさがしましたが見つけられません
でした。

dir /x の結果から作れないことはないんだけど、もっと簡単な方法が
あるはずだ。

RetVal = Shell("C:\TEMP\TEST.exe", 1)
ってやって
このファイルが存在しない時
実行時ｴﾗｰ53
ファイルが見つかりません
っていうエラーがでるんだけど
ON ERRでつかめないんだけど…
何で????

×　ON ERR
○　On Error
うちの外注もよくやる。

>>177
FileSystemObjectのShortPath
ところで２ちゃんねる以外で探してる？

>>181

>>182 は誤爆

>>181

サンクスです。一応、Google で適当なキーワードで検索してみたんですが、
FileSystemObject の ShortPath にはたどり着けませんでした。

MSDN にも ShortPath メソッドが載ってないのは古いからか。

試してみます。

Option Explicit とは反対の機能というか、使われていないが宣言されている
変数を見つける機能みたいなものはありますか？

>>177
GetShortPathName() もあるぞ

>>179
トラップできるぞ

>>184
ない。アドインつーか、分析ツールみたいのでそういうのが
あったな。フリーソフトで探してくれ

ヘルプ！
VBインストールしたフォルダと違う場所にMSDNインストールしちゃって、
VBでカーソル位置の単語をF1でとれないんですけど、
これを今から関連付けすることは出来ないですか？
再インストールしかないのかー！

>>180
>>185
できました…
180さんまさしくそれでした…
ｱﾌｫですんません
仕事片付けたら逝きますDEATH

質問です。

　プログラムからマウスポインタを動かすことはできますか？

お願いします。

>>188
mouse_event

>>186
どうだったかな。どっかで見た記憶があるんだが思いだせん。
再インストールは、確実な回復策だな

>>188
できる。SetCursorPos() だ。mouse_event()、SendInput()辺りもついでに調べろ

Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long

AccessVBAやってみました。
VBと同じようにADOでレコードセット取得してDBと繋いだつもりが、
「データベースまたはオブジェクトは読みとり専用であるため、更新できません」と
エラーが出て更新処理が出来ません。
これはなんでですか？VBと同様にやっちゃダメだった？

ちなみに
Recordset!氏名 = cboName.Value
を実行したとこでエラーに。

179を見て初めてOn Error 〜のErrorの部分に何を入れてもいいということに
気づいたんだけど、これってなんかいい使い道ある？

>>192
単に、ファイルが読取専用になってないか？ あとは、Connectionを
開くときの設定はどうなってる？

>>194
On 〜 Goto の名残、ってことか。下手に使うと構造化プログラミングを壊すし、
やめておいた方がいいぞ

>>195
ありがとうございます。

普通にSQL組んで
Recordset.Open strSQL, Connection, adOpenStatic, adLockOptimistic
と、こんな感じですが。。。

>>169-173
ありがとうございます。
今日本屋へその手の本見てきたのですが、やはりMS公式の
本を買ったほうがいいんでしょうか？それとも初めからやる
にはもってこいの参考書があればお聞きしたいです。

>>196
考えてみると、Staticカーソルを今まで使ったことがなかったぞ

↓とか見ると、更新できないようにも読める。他のカーソルタイプを試してみろ
http://www.zdnet.co.jp/help/howto/win/win2000/0007special/complus_vb/chap1/05.html#lock

あと、接続文字列に問題がある可能性もあるので、それも出してみろ

>>197
まず、何をやるか決めろ。その後で推薦図書スレで聞いても遅くないぞ

なお、MS公式は、あまりお勧めできない。

>>184
フリーソフトのdimdelete

>>199
どうも。いやはや何が分からないのか分からない状態です。
今まで事務処理だけだったのがいきなりシステム関係に
放り込まれてしまいました。で、4月までに何か覚えとけと
の事でVBを選んだんですが、何が何だかさっぱりです。
これを覚えれば応用でC++覚えられると聞いたんでとりあえず
基礎を全部覚えたいです。よろしくお願いします。

>>201
そらー大変だな。正直同情するぞ。

で、実際のところ、どの程度の力を求められてるんだ？ それから、Excelマクロでも
いいからプログラム経験は？

会社に開発言語があるなら、買うことについて悩む必要は無いな。
VBでいいだろう。とりあえず、基礎的な部分とデータベースアクセスさえ
できれば、なんとかなると思うぞ。

VBの応用でC++を覚えると。危険行為ですな。

>>201
「これを覚えれば応用でC++覚えられると聞いた」
世の中にはひどい嘘を言う人もいるんだな。

同情するしかできない。

一部ASPが絡みます。あらかじめ失礼。

ActiveReports2.0 + ASPで、PDFを直接ブラウザに送り込んでバーコードを印刷
しようと考えています。ヘルプを読んでいる限りStandardEditionでも出来そう
なですが、「エクスポートフィルタを用いてバイト配列に出力したものを直接表
示」というヘルプ内の記述に対応するサンプルコードが見つかりません。

「オメーの目は節穴か、ここを見れ」でもOKですので、アドバイスをお願い致し
ます（拝）

また、この動作方法を採る場合に気をつけなければいけない点などありましたら
合わせてアドバイス頂ければ幸いです。

……ActiveReports2.0って、まだみんな使ったこと無いのかな？(T_T)

VBだけ覚えてもクソの役にも立たないって噂本当ですか？
無難にJAVA覚えてといたほうがいいっすか？

VBだけじゃまともなプログラマになれる可能性は低い。
いきなりJavaやると挫折する可能性が高い。
仕事で急いで覚えないといけない、というのでなければ、
実際にアプリを組んでみながら言語の勉強もするのがいいと思う。

>>173
どうやら間違ってたみたいでTransparentBltを
使いまくるとGDIリソースを消費するみたいです。
スクロールバーで値が変化するごとに使ったらすごい勢いで減っていきました。
サンプル作ったので見てもらえませんか？
http://www.geocities.com/adkteddo/transparentblt.zip
ソース汚いかもしれませんが・・・

>>203
そういうステップもある。一概に否定するな

>>204
せいぜい「C++を覚えられるステップになる」だな

>>205
おまえ、MLでも質問してたな。とりあえず、PowerTools ML行け
それから、DataDynamics のサイトはいったか？ あっちにはいろいろ
サンプルがおいてあるらしいぞ。

>>206
今のところ「だけ」でも、仕事はある。将来はわからんがな。
Javaはサーバー周りはあるが、クライアントはない。ちょこちょこ
やるなら、まずはクライアントからじゃないか。

>>207
「まともなプログラマ」の定義が難しいところだな。今から見たら
コボラーなんてまともなプログラマとは言えんぞ。だけど、仕事は
それなりにある。ま、10年後、VBが残っているかはわからんが。

まとれす氏は現役バリバリのプログラマーなんですか？
芸暦どんぐらいなんですか？

>>208
こっちの環境では問題ないぞ。XP + VB6 SP5

ざっとヘルプとKBをあたってみたが、とくに問題もなさそうだ。
環境は何だ？

>>210
芸歴はそれほどない。VB2が出たころからだ。周りの連中がそうであるように、
現役バリバリとはイカン。年を食ってくると、いろいろほかにやらなくちゃならんことも多い。

書いてるコードの量は減ったが、まだまだ若いもんには負けてられん、というところだ。

>>189>>190
ありがとうございます！ちょっと遠隔操作チックなことに興味があったんで。

>>212
そうなんですか。この世界ってスキルが全てみたいなとこ
あるじゃないですか。打てなきゃ仕事にならないわけですし。
やっぱ色々大変なんですねー。それでは。

>>まとれす氏
レスありがとうございます。
こちらの環境は98 + VB6 SP5です。
XPだと問題ないのかなぁ。

>>167
Win98SE+VB6+SP5で動かしてみたが、
確かにGDIリソース食いつぶすね。
まとれす氏の場合、XPは NT系列だから大丈夫なのかも。
# NTにはリソースの概念はないはず

で…
リークしてるのは、TransparentBltの方だな。
msimg32.dll 自体がリークしてんじゃないか？
これを使わずに、自力実装っつーのが一番安全かもしれん。

前スレでも聞いたんだけど、タスクマネージャのアプリケーションの所に
アイコンを表示させない方法知ってる人いる？ぜひ、おせーて下さい。

>>209
申し訳ありません。流石に一つもレスがつかないと、ちょっと心配になりまして(^^;

MLについては、早速申し込みしておきました。DataDynamicsについては……頑張って英語読んでみます(^^;

厨房質問ご容赦を

クライアントからの指定でVB＋MDBの構成で依頼を受けています。
現場レベルではクライアント５台位で共有したいそうです。
この場合、ファイル共有型のＤＢ共有となると思いますが、
行レベルロックってできますか？（むりそう）
それともコーディングで更新検出すればいいですか？

Vb4std以来触っていないので不安。
BCB＋IBの提案しているんですが、花鳥さんが頑固で・・・

>>219

MDBのかわりにMSDEという選択肢も有るよ。

>>219
レコードロックはできないからMDBの共有は100%やめた方がいいよ。
何度も痛い目見た。
220が言うように、MSDEなら無料だし。
どうしてもやりたいなら、全テーブル（トランザクションと、マスタ系）にロック。
っていうフォールド持って、そこにフラグを立てる。
フラグが立っていないデータだけ更新可能。と。
でも、MDBは最適化＆修復は必須です。

MS VBScript Regular Expression5 を使用した上で、

"＜title id=38/＞"
を、$titlearray[38]で置き換えるにはどうすればいいですか？
(38の部分がどんな数字がきてもいいように)

>>219
ACCESS2000のMDBと同じバージョンのMDBなら行単位で出来るのでは？
やった事無いので推測でスマン

既出ならｽﾏｿ

Dim i As Integer
i = 12 / 4 + 0.5
i = 16 / 4 + 0.5

この計算でiが両方4になるのは何故？

チャートコントロールの散布図で、X軸とY軸のスケールを独立に設定するには？
デフォルトだと、X軸の1とY軸の1が同じ長さで表示される。
サンプリング間隔が等間隔でないデータを表示するのに必要。さて？

>223
ただし、MDBのサイズの急激な肥大化を伴う諸刃の剣。素人には(略

>>224
VBの暗黙の丸めは、算術型丸めじゃなくて、銀行型丸め。
丸めた結果が必ず偶数になるように丸まる。
累積させると誤差が少なくなるそうな。四捨五入だと思ってハマってる人多し。

>>227
THX
やっと帰れるよ

>>222
RegExp.Pattern = "＜title id=(\d+)/＞"
RegExp.Replace (str, "$titlearray[$1]")
これでいいかな？

>>220
>>221
>>223
>>226
う〜、調べてみます。MSDE＞ﾀﾞｳｿﾛｰﾄﾞ中
こっちの方向でプッシュしようと思います。
サンクス

>>217
環境は？ Windows 9x だと、サービスとして登録、なんて技があるな

>>218
名前バレバレだぞ

NTでもリソースの概念はあるしリソースリークは起こるよ。

うーん、NT系と9x系両方。
C系なら普通に出来るはずなんだけど。

>>233

なんだ？C系って。ウィンドウスタイルで何とかするテクニックもあったが、
それか？

なら、SetWindowLong() だな。

>>202-204
どうも。いやー、会社のをもってくるのは無理なようです。
参考書も自分で買えとの事です^^；。
そうですね、プログラミング未経験です。どの程度、プログラムを
組めればいいとは言われたんですが。漠然としすぎですかね。
とりあえず、ソフトと参考書の推薦をお願いしたいんですが。基礎部分
を学べれば後は自分で調べてみようと思ってます。

>>232
うん、書いてから寝ぼけたﾚｽだったのに気づいた。(w
タスクマネージャで見りゃ済む話だし。

開発環境、Win98SE にしか入れてないから、Win2Kで試せない。
で、とりあえずバージョンだけ調べてみた。
Win2k :: 5.0.2180.1
Win98SE :: 5.00.1693.1
これを見る限り、Windows2000以降でバグが取れてる可能性はある。


>>235
> 会社のをもってくるのは
ま、良く聞く話だが、そりゃ違法だ。(w

ken2ch まんこと打たせたぞ。

>>168
>>169,173
これで十分答えが出ていると思われ
くだらない質問を繰り返すなや

>>235
会社の仕事で勉強するのに、開発ツールの提供がなく参考書も自分で買え、ってか。
なんか変だな

それに、会社で何を使ってるかで、おのずと勉強するターゲットは決まるだろ？
（複数のツールを使ってるとしても、一番需要があるやつ、とかな）よって、単なるネタと決定。

>>235

フリーコンパイラのリンク

リンク集
Borland Delphi 6 Personal ダウンロード http://www.borland.co.jp/delphi/personal/
Borland Kylix Open Edition ダウンロード http://www.borland.co.jp/kylix/openedition/
JBuilder 6 Personal ダウンロード http://www.borland.co.jp/jbuilder/jb6/download/
Borland C++ Compiler 5.5 無償ダウンロードサービス http://www.borland.co.jp/cppbuilder/freecompiler/

VB6.0+windows2000です。
イーサネットアダプタの有効・無効を制御することは可能でしょうか？
もし可能なら使用する関数名とかを教えてください。

質問です。
ＶＢ５＋ＮＴ４の環境でshellを使ってbatファイルを走らせるのですが、
終了のタイミングって取得することは可能ですか？

FindWindowを使えば出来そうなきがしたのですが、クラス名、ウィンドウ名が取れない？ため
悩んでいます

>>242
ShellExecuteExとWaitForSingleObject。

と、言うかバッチファイルの内用も組めば。

>>243
テスト期間が無い為、既存のプログラムを走らせるみたいです。
>ShellExecuteExとWaitForSingleObject
これってVBから使えましたっけ？・・・

>>244
APIとハンドルは扱えるでしょ。

>>245
MSDN検索して、ようやく理解できました。
有難うございます

>>241
ざっとヘルプを見たが、簡単な方法はなさそうだ。ローカルネットワーク
接続でよければ、デスクトップから辿ってDoIt()かな

>>242
%COMSPEC% /C でバッチファイルを起動して、OpenProcess、WaitForSinleObject()
でいけるはず

>>243
わざわざShellExecuteEx()を使う必要は無いだろ。%COMSPEC%って決まってるんだし

>>244
使えるに決まってるだろ。まずは検索してサンプルを探せ

C:\Documents and Settings\Administrator\My Documents\b00458-文京区新マニュアル\BunkyoWeb-man\html


222です。

MS VBScript Regular Expression5 を使用した上で、

"＜title id=38/＞"
を、$titlearray[38]で置き換えるにはどうすればいいですか？
(38の部分がどんな数字がきてもいいように)
は、正確には、「titlearray(38)で置き換えたい」でした。（perlとごっちゃになってた）

で、
>>229さんの言う、
RegExp.Pattern = "＜title id=(\d+)/＞"
RegExp.Replace (str, "$titlearray[$1]")

でなく、
RegExp.Replace (str, "titlearray($1)")
とやったのですが、titlearray(38)という文字列になってしまいます。

ですが、RegExp.Replace (str, titlearray($1))とすると、
コードが赤くなりエラーなのですが、どうすればいいのでしょう？

1行目に変な文字列つけてしまいましたが、無視してください。失礼しました。

>>248

やりたいことが

>は、正確には、「titlearray(38)で置き換えたい」でした。（perlとごっちゃになってた）

で、結果が

>とやったのですが、titlearray(38)という文字列になってしまいます。

できてんじゃん。

RegExp.Replace (str, "titlearray(38)")

こういうことか？

>>250さんありがとうございます。
すいません、説明不足でした。
titlearray(38)とは、38をキーとする配列titlearrayの要素に置換したいということです。
説明不足で恐縮です。

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.UserControl = True
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlBook = xlApp.Workbooks.Open(ImpFolderPath & "\tmp.xls")
Set xlSheet = xlBook.Sheets(1)

//中略

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

としているのですが、

●プログラムを起動するごとに、explorerのメモリがどんどん増大し、60000kとかになってしまいます。
●これだと、tmp.xls が起動しているとき、「２重で開きますか？」のエラーが出てしまいます。
これがでないようにする方法はありますか？

>>252
GetObject

ADOの入門書見ながらしかやったことないのですが、
AccessのDBに繋ぐならDAOだと言われました。
ぶっちゃけ、何が優れてて、なにが違うのですか？

>>242
BATファイルなら、WAITオプションを使う方が楽。
わざわざAPI使う必要はない。

|o∈
|　　　・・・・・・・
|
|＿＿＿

|
|ﾊヽo∈
|�D｀ )　ｺｿｰﾘ･･････
⊂ノ
|＿＿＿

|ハヽo∈
|´�D｀)　　　0x100げっと！
|　ノ
|＿＿＿

|
|　　ｻｯ
|彡
|
|＿＿＿

　ﾊﾞｷｯ
|　 ∋oノハヽo∈
|￣.　（,, )�D｀;)
|￣ .⊂　⊂　)
|￣ (⌒__(⌒ノ
|＿＿＿

　　　　そんなことするののたんにはお仕置きだよ
　　 ∧＿∧
　　（　・∀・）
　　（　　　　）　　　　　　　　　　　ゆるしてくらさい
　　｜ ｜　|　　　　　 　∋oノハヽo∈　　　　　できごころだったのれす
　　（_____）__）　　　　　　⊂(;´�D｀;⊂⌒ヽつ

>>0x100-0x101
ﾜﾗﾀ

>>251
RegExpのExecuteとMatchとMatchCollectionとSubMatchesを調べよう。
titlearrayの所もきめ打ちじゃなくしたいなら、Collectionを使うとか
もう一工夫必要になるが。

>>252
あのコードは開いたtmp.xlsを閉じてないけどいいんだよね。
よくNothingを代入すれば必ず解放されると勘違いしている馬鹿がいるけど。

>>216
自力実装やってみたら安全に出来ました。
サンクス。

>>251
環境が無くて試せんが、要するに$1の内容をとっておいて、
"titlearray(" & strDollar1 & ")" とすればいいんじゃないか？

>>252
CreateObjectと、New ほげほげ を組み合わせるのはやめておけ。暗黙
のオブジェクトができて困るはずだ。で、ちゃんとQuit してるのか？

>>254
ADOは汎用、DAOはAccess専用だ。専用の方が汎用よりできることが多いのは
当然だと思わんか？

>>255
そのとおりだな。しかし、Startコマンドの扱いは、9x系とNT系で違ったと思うぞ

>>260
そうだな。その勘違いは非常に多い。Nothingは、あくまで参照を解放するだけ、
と覚えておかないとな

>>261
おめでとう。よかったな

まとれすは何かいいキャラだなあ。

printで文字を斜め30度とか斜め35度とかに表示したいんですが、
プロパティでできるもんなんでしょうか？
ヘルプとか検索したんですが、方法が見つかりませんでした。

>>264
できない。自分でコード書くしかない。

>>264
APIになんかあったと思うぞ。

あった。CreateFontでフォント作成してSelectObjectで割り当てて描画だ。

>>266-267
APIはまだ使ったことがないので理解の範疇を超えておりますが
なんとか勉強して使ってみます。ありがとうございます。

>>263
ありがとう。お世辞でもネタでも、そういってもらえるとうれしいぞ

>>264
>>267のいうとおりだ。ポイントは、lfEscapement に角度を指定するところだな
探せばサンプルがあると思うぞ

お、あったあった
http://www.bcap.co.jp/hanafusa/VBHLP/FontPreview.htm

ある文字列の中にある文字が何個あるかをカウントしたいんですが、
これってInStr使ってループさせて自力カウントするしかないですか。
それともそんな関数ってもともとありますか。

>>270
>それともそんな関数ってもともとありますか。
そういう関数はありません。InStr関数を使って・・・が正等な方法です。

ま、Split関数で分割して見て、分割された数-1という判断でも判断できますけどね。

>>270
ReplaceとLenを組み合わせるのが一番簡単だろうな。
速さならInstrかなあ。試してないけど。

今現在VBの勉強をしておりVBでデータベース処理をしたいと思っているのですが,
データベース処理をするにしても図形（line,shape)等の勉強は必要ですか？
というのは私は少し図形が苦手なもので・・・・・。これでも通用しますか？

図形が苦手でも通用しますが、
VBは仕事ではもう通用しないんでわ。

Internet上の特定の端末からWindouws2000 ServerにFTPでファイ
ルが送られてきた時、「ファイルが送られてきた」事を認識して
Win2000上のVBを自動的に起動させたいと考えています。

単刀直入で申し訳ないのですが、上記処理を可能にする方法を
どなたかご存知ないでしょうか？
宜しくお願い致します。

>>274
業務ベースの仕事ならまだVBが多いと思うぞ。
COBOLだってまだ現役の会社もあるんだし。

>273
VBはグラフィック関連の機能が非常に貧弱なので、実務において
その辺の高度な処理をする事はほとんど無いです。
データベース処理(=事務処理系)ならなおさら。

ただし、知らなくても良い訳では無いので、余裕あったら勉強しませう。

COBOLはコンパイラが出てるから現役だけど、
64ビット版は出ないことは決定。
32ビット版も提供が停止されることが決定。
期限付貨幣ってことで、最後につかまされた者があぼーん。

>277
なら、VBやってる限りは解決しない。

>>275
とりあえず、
FindFirstChangeNotification
WaitoForSingleObject
という２つのAPIについて調べてみそ。
スプーラを作る要領で作成可能だから。

＃ひょっとして、オレの知っている人？
＃もしそうなら、周りのこういう事を知っていそうな人間に聞いてみ。
＃オレが知っている人なら、上記の説明じゃ分からないだろうから。

動画の再生時間を取得できる関数ってありまふか？
教えて欲しいのれす

API（SetTextJustification）を使って文字を均等割付しているのですが、
MS ゴシック、MSP ゴシックなどは大丈夫なのですが、
DF行書体,楷書体などは同じ処理でも均等割付されません
何がいけないのでしょうか？

あいうえお => あ い う え お
といった具合に、間に空白（ブレイク文字）を入れてから
SetTextJustificationを実行しています。

環境：Win2000Pro,VB6.0

VBでデータベース処理をしようとするにはどのコントロールを重点に
勉強すればいいですか？

>>283
グリッド

>>283
標準のコントロールは貧弱すぎるぞ

個人的な意見だが、ヘタにコントロールに頼るよか
SQLの使い方を練習したほうがいいよ。

コントロールに依存しまくるとデバッグやバージョン
アップ時に地獄を見る可能性が高い。


まぁグリッドは便利だけどな。

>>273
データベースに図形はいらんだろ

>>275
ReadDirectoryChangesW() ってのもあるぞ

>>276
まだ、というかかなり多いぞ

>>277
何が解決しないんだ？

>>281
動画、ってもな、何の動画だ？

>>283
コントロールではないが、ConnectionとRecordSetだな

>>286
禿げしく同意するぞ。SQLが書けないで、とんでもないコードを書くやつをよく見かける

＞まとれす
学習能力ゼロ

>>288
何がだ？ 言ってみろ

>>まとれす
すみません、>>288は精神が弱っているんです。
先日、200レスに及ぶ煽りを受けて、精神がダメになってしまったんです。
2chって恐ろしいです。2chって恐ろしいんです。

自作自演だけはお得意のようでﾌﾟﾌﾟ

>>291
おまえは >>288 か？ さっさと俺の質問に答えろ

一応言っとくが、>>290 は俺じゃないぞ

＃スレの内容と関係ないから sage だ

>>291　なんでまとれすさんに突っかかる？
>>292　まぁまぁ、そう熱くならずに無視しようね。

「classという概念が理解できない人」に、まとれすさんはどんな説明をしますか？
↑ぼくなんですけど。

>>293
了解だ。以降、無視することにする

>>294
難しい質問だな。質問者のレベルにもよるし。
とりあえず、Visual Basic でプログラムが組めるレベルなら、「クラスの一例 = フォーム」と
説明するだろう。

Caption などの属性（プロパティ）を持ち、Show などの関数（メソッド）を持つ。
まず重要なのは、カプセル化だ。

カプセル化がきちんとできていない状態ってのは、たとえば、

g_strForm1Caption = "あたらしいキャプションだ"

とか、

ShowForm(Form1, vbModal)

なんてグローバル変数、関数がある状態を想像すればいい。こんなのが、
50個も100個もあると大変だろ？

これをひとつのクラスという単位にまとめると、扱いやすくなる。さっきの例
で言うと、Form1.Show と、ShowForm の違いに注意しておけ。

要するに、手続きがあって対象があるのか、対象があって手続きがあるのか、
の違いだ。どうだ？ イメージ湧いたか？

＃自己レス

なんか、うまくまとまらなかったな。正直、スマンカッタ

>>282
Win32APIスレで質問したほうがよいと思われ。

VB６製のActiveXコントロールを作ったとします
プロシージャをPublicで公開すれば
HTML上でスクリプトで参照できますが

★ＶＢ側の例（注;ＭＳによると仕様として、↓Variant型でないとスクリプトからの参照渡しはエラーになるそう）
Public Function Test(ByRef a as Variant,ByRef b as Variant) as long
a=3:b=3
Test=1
End Function

★ＶＢスクリプト側の例　（ActiveXのオブジェクト名（ＩＤ属性）を　VBActXとしたとする
dim a1,b1,rv
a1=1 :b1=1
rv=VBActX.Test(a1,b1)

VBのほうで参照渡しにして　一度に　VB6側で操作された複数の戻り値　a,bを得るのですが
どうも一切変化しません a1=1 b1=1のままである
VB6同士では　参照渡しは　変数の変化は　もちろん　その意味どうりにできます

この方法では　ダメなので
VBスクリプト側で複数の戻り値を得たい場合は　他に何か手がありますか？　　
配列はどうでしょうか？　関数の戻り値に配列はできますか？

>>298
VBSのことは知らないんだけど、その宣言の仕方だと
a1,b1がローカル変数になるんじゃない？
スクリプトレベルで宣言してる？

VB6の関数で配列を返すには、Function Test() As Long()
のように()を付ける。

>>294
>>113>>115では駄目か？

VBでファイルバージョンと製品バージョンが違うexeファイルを作りたいのですが
何か方法はありませんか？

ＶＢを開くとすぐに
``vb5のページ違反です``
というふうに出るんですけど結局開けないんです
どうしてですか？

>>301
やったことはないが、リソースをいじることでいけそうだ。最悪、実行ファイルの
リソースを書き換えろ

>>
日本語のパスに作ったプロジェクトを保存していると、そんな現象があったな
MSのサイトから、回避ツールが落とせるぞ

特定のウインドウの特定のコントロール上の値を取得する方法ってありますか。
例えば、計算機が起動されていたら、計算結果の部分を取得する方法などです。

VBでデータベースの処理をしたいのですが,LEARNING　エディションでは
無理ですか？

また被害者か・・・。>>305

>303
うーん。実行ファイルをいじるというのはやりたくないのでリソースをいじるというので
なんとかしたいのです。
リソースエディタでどうにかすればいいのかな？なんて気もするんですが
ＶＢのリソースエディタを眺めても実際どうすればいいのかさっぱりで。。

>>298
ActiveX DLL + VBS で試したが、きちんと3が帰ってきたぞ

>>304
ある。まずは、SPY++ でターゲットについて調べてみろ

>>305
DAOやADOのライブラリをコードで使うならいけるはずだ

>>307
VC++で作成したリソースをVBのプロジェクトに追加してみたりしたんだが、
うまく行かなかった。 → 実行ファイルが生成できない

API で書き換えができるはずなんで、そういうちょっとしたツールを作る、って
んじゃだめか？

CPUの種類とかクロック周波数を取得したいんですけどどうしたらいいですか？

>>309
アセンブラでCPUID命令

>>310
VBじゃない

>>309
WMIのWin32_Processorクラスを使え

>>311
IntelのDLLを使う、ってのもあるぞ

>>312
>WMIのWin32_Processorクラスを使え
もう少し詳しく教えていただけませんか？

>>309
SysInfoで取得できないか？

>>314
そうなんですか？

>>313
ほらよ
http://www.google.co.jp/search?sourceid=navclient&hl=ja&q=Win32%5FProcessor+%83T%83%93%83v%83%8B

2番目に出てくるWSH-MLの記事では、CPUの名前がとれないとか言ってるけど、
とりあえず、システム情報と同レベルの情報はとれる。

超厨象的な質問でｽﾏｿですが、VBで3Dグリグリなプログラムできますか？

>>317
MS-Chart使うと、グラフを３Ｄグリグリ出来る。
ゲームとかのグリグリには、DirectX使うといい。

>>316
ありがとうございました。

>>317
ActiveXコントロールのchartコントロールは配布ライセンス制限がある
よく注意せよ

VBでメーラーを試しに作りたいんですが可能ですか？
可能なら、なにか参考になる書籍やサイトはないですか？

基本参照
ＭＳＤＮヘルプ
MAPI (MAPISession、MAPIMessages) コントロールの使い方

プロトコルがわかるなら
Winsockコントロールも挑戦してみるべし

VB で作ったAPのボタンを押すー＞
とあるウェブサイトのページをとってくるー＞
それを解析して、グラフに変換して表示

という、ありがちなAPを作るのですが、
どうすればいいでしょうか。
条件として、「FireWall/Proxy越えができること」が必須です。
あと、その「とあるページ」っつーのが、
会員制でして、ID/PASSによる保護があるので、それも
乗り越えないとダメです。
（もちろん、IEで普通にそのページを見れるだけの権限があるユーザが使うのが前提）

で、そのへんのOCX販売会社が出している
HTTP関係のOCXを使おうかと思ったのですが、
たとえ、FireWall/Proxy/SOCKS とか
すべてのプロトコルに完全対応していても、
相性問題もありますし、第一、「設定方法がわかんねぇよ」攻撃が
ウザいんで、
VBからIEを内部的によんで、その結果を吸い上げるのが一番簡単かな、
と思うんですが、どうすればいいでしょうか。

なお、IEのインストール、IEに対する適切なFireWall設定、などは
前提としてもOKですが、
IEのウィンドウなどがポップアップしてしまうのはマズいです。
一応、「スタンドアロン」のソフト、ということになってますので・・・。

一気にウェブサービスだよ。
.net で SOAP しろ。

ちょっと質問してもいいですか？
VBA（EXCEL)でフォルダーの中のtxtファイル文字検索してリストボックスに
表示させているんですが、PhotoShopVer6をインストールしてから
txtファイル文字検索をした所コマンドボタンが凹んだままで、PCがフリーズ
そのまま、再起動してもスキャンディスクからWin2000が立ち上がらなくなってしまって、
セットアップディスクも製品版のWin2000もインストール出来なくなってしまい
困っています。

環境は　CPU 　　1.5Gh
メモリ　640Mb
どなたかに助言頂けたら幸いです。

>>325
（お約束つっこみ）
ムリいわんどいてください。

>>323

普通に wininet つかえばいいんとちがうか？

>>320
そうなのか？ はじめてきいたぞ

>>321
BASP21 とか使うと楽だぞ

>>323
InetコントロールでDocumentを取得して、DOMで解析つーのが一般的なパターンだな

>>324
普通のベンダーなら、トライアル版を用意してるだろ？ そういうのを試すのが
いいと思うぞ

>>325
それもいいと思うが、Webサービスを相手側が用意していないと意味無いな

>>326
初めて聞いたぞ。とりあえず、フォーマットかけて再インストールするしかないだろ

実行している環境がNT系かどうか完璧に判別するには
どうしたら良いですか？

>>330
APIならGetVersionEx()で判別できるぞ

＞329さんありがとう

インストラーでフォーマットまで行かないうちにBIOSがどうのこうのって
英悟で出て結局インストール出来ない状態なんです。

>>332
それはHDDが飛んでるんじゃないか？ 出てくる英語をメモして、Windows板で質問すれ

>インストラーでフォーマットまで行かないうちにBIOSがどうのこうのって

それが大事なんじゃないか｡わからないならなぜそのメッセージを書き留めておいて
辞書で調べないの?

>333さん>334さんありがとうございます
HDDの中身はスレーブにして取り出せました
＞出てくる英語をメモして、Windows板で質問
やってみます。ナニセ、VB勉強してるのに英語が苦手で・・・。
ありがとうございましたm(_._)m

>>270

検証していないので憶測ですが、VBのInstr関数を使うより、VBSのReplaceで、
置換された数を返させた方が高速だと思います。
(VBのReplace関数には置換箇所をカウントする機能はありません)

大きな文字列で、Instr関数を何度も呼び出すと、時間が掛かるはずです。

>>336
Visual Basic Scripting Editionのってこと？
双方とも同じ引数、同じ返り値のような気がしたが・・・

うっかりVBの初心者本買ってしまうと、最初の100ページくらい
「マウスとは何か」
等のどうでもいい内容で占められてるのでびりびりやぶって捨ててる。

>>338
正直、それはある。
あとゲームプログラミングと書いていて、
ゲームのことは最後の数ページしか書いていないというのもある。

そんな本を買ってから、一応本屋で中身を見てから買うようになったが
見てみたらタイトルが違うだけで中身はどれもほとんど同じ。
もっと他の本置くべきじゃないかと。

あるねー。
信じられないくらい初歩的な事しか説明してなくて、
本を最後まで熟読して身に付くテクニックは、
フォームにコントロールを配置することと、
それの表示順位、Captionプロパティでタイトルが変わる事。

そんくらいしか身に付かないって本が。

>338-340
具体的に本の名前プリーズ
おれ文句行ってやる(まじで)

インターネットプログラミングなんたらって2000円ぐらいの本はきつい。
90%ぐらいがMSDNのInetコントロールの文章そのまんまだったぞ。

えーと。
VBAでフォーム中のコントロールのオブジェクトってどやって作るのですか？
form_フォーム1.ctl1のオブジェクト作る場合

dim obj as object
set obj = form_フォーム1.ctl1
call dateset(obj)

ctl1はテキストボックスで値が入っていないとオブジェクト渡すみたい
だけど入っているとValueが渡される。よってdateset（関数）が呼び出せない
のです。関数の引数はOBJ型
だれか教えてください。

コレクションって何？

VBA初めてなのでヨク知らないのですがAccessObjectなんですか？
とりあえずAccessでやってるんです。
ヨク知らなくてゴメンナサイ。

実際のところVBの需要ってあるのですか？
せっかく覚えて就職ありませんじゃちょっと・・・・・。

需要というか、出来て当然という空気はありますよ。

で、「VBだけ」だと厳しいです。
＋データベースとか、＋ネットワークとか。
複数の分野に手を出しておいたほうが無難だと思います。

>>346
需要はあるけど、VBしかできない人は厳しいと思う

280のデフォルトの名無しさん、287のまとれすさん。
ご返答ありがとうございました！

検討してみます。

>>344
同種のオブジェクトの集合

ＶＢ側で確保した２次元配列（String型固定長）を
ＶＣ＋＋で作ったＤＬＬ内部で書き込むと、ＶＢもろとも
アホ?ーンされてしまいます。
ＶＢで確保したエリアがうまくＤＬＬに渡っていないためだと
思うのですが、どーしても渡し方が判りません。

以下ＶＢ側
Dim n
Dim name() as string*1024
ReDim name(1024)
n = name_set(name)
ＶＣ側
long name_set(char name[][1024])

何が駄目なんでしょう？

ブラウザまがいのものを作ってみようと思い、
WebBrowserコントロールを初めて使ってみたのですが、
これって、表示されているページを印刷するボタンは作れないのでしょうか。
ご存じの方おられましたら、教えて下さい。

>>352
『Visual Basic6.0 300の技 ネットワーク＋データベース編』2980円
　　WebBrowserコントロールの技
　　　109 ウェブページを印刷する

インターネットトランスファのexecuteメソッドで、ASPを実行させた場合、
そのASPかの戻り値って貰える手段ってありまでしょうか？

ActiveX EXEを作ってIE(VBscript)から呼ぶって事をやってるのですが、
複数のIEを立ち上げて各々がActiveX EXEを動かそうとするんだけど、
動くのは１個だけ、２個目以降のンIEでActiveX EXEを動かそうとする
と最初のIEで動かしているActiveX EXEアクティブになる・・・
IE毎にActiveX EXEを動かすことは出来ないのでしょうか？

>>351
nameを可変長配列にすると内部的にはVariantになるから、name_set()には
Variant変数を指してるポインタが渡されてる、ということじゃないの
name_set(name(0))で配列の最初の要素を参照渡ししてやるといいかも

>>まとれすさん
遅レスになりましたが、>>294でclassの質問をしたものです。

class、むずかしいですね・・・。
ぼくのまわりの上級者は、「classは参考書にのってないから勉強しづらい」とか、「classは概念だから説明できない」
といってます。
>>295のところの説明はなんとなーくですが、わかったような気がしないでもないです。
あとクラスといえば「コレクション」もよく出てくるらしいんですが、これはどういったものですか？

VBからエクセルのワークシートにアクセスして、セルサイズを
調整してみました。
　無茶苦茶遅いのですが、早くする何かよい方法はないでしょうか？
どなたかおしえてください。

'---------------------------------------------------------------------------------
'ｓｈ１のセルサイズをｓｈ２と同じにする
'---------------------------------------------------------------------------------
Sub CellSizeCYO(sh1 As excel.Worksheet, sh2 As excel.Worksheet, objR As Range)
Dim objT As Range
Dim st As String

' 領域をセットする。
For Each objT In objR
st = Mid(objT.Address(False, False), 1, 1)
st = st & ":" & st
sh1.Columns(st).ColumnWidth =sh2.Columns(st).ColumnWidth
Next
End Sub

何買えばVB覚えられるんだよ。まぢで。半年ぐらいで覚えたいよ。

>359
おれは仕事で２週間弱ぐらいで覚えたよ。
(数年前、体力があったときだけど１人月の仕事で)
やりたいことが特になかったり漠然としてたりすると、
覚えようとしても時間かかるんじゃないかなあ。
なんか目的があればいいとおもうけど。
仕事みたいに選択肢が最初から限られてるならともかく、
趣味だった場合、ＶＢが手段として適切なのかどうか、
というのも考慮すべき問題だけど。

>>360
だから何買えばいいのよ。マイクソソフトが出してるの買えば
いいのか。本はどうすりゃいいんだよ。お勧めの教えれ。

>361
おれは技術評論社のA5サイズの3〜4cmぐらいの本を１冊
その当時使ってたけど、参考書はそれほど必要無いと思う。
ほとんど付属のヘルプのサンプルでまにあった。
作るものによるかもしれないけどね。
そのときの作りは、Cでめんどい処理のDLL書いて、
VBで画面／帳票だすスタイルだった。
CとVBの入出力が一番苦労した気がする。

>>362
ほー。ヘルプねぇ。未経験の漏れでもできるのかねぇ。
基礎概念だ何だってのが全然分からないんだよね。
とりあえずMicrosoft Visualbasic6 を買えば問題なしなの？
プログラミングの概要を示したのとか買っといたほうがよくねー。

>>363
そんなに散財したいのか？
必要だと思った時点で買えば良いだろ。
つーか買うよりまず図書館いけよ

図書館？Why?何もなしで始めるのも心なしか不安。
そっかー。とりあえず行ってくるよ。

思いったが吉日。朝一番で行ってくるよ。
それで何見ればいいのよ。地方の図書館は揃えが悪い〜♪

>>363
処理系買っとけば必要ないよ。
それより6ってまだ売ってるのかな。
つーか何作るの？
VBである必要あるの？

知り合いのPGがとりあえずこれから始めろってさ。
ネット自体は10年近くやってるんだけど、スキルは
さっぱりです。簡単なHTMLしかできませーん。
これをステップにどんどん上へ行こうと思ッてるんだけど甘いかなー。

＞知り合いのPGがとりあえずこれから始めろってさ。
はぁ、何が目的なの？
その知り合いはVBプログラマってこと？

いまさらVBだなんて…

>>368
自分にとってためになる本を探すのもPGとして必要なスキルの
一つだよ。時間があるならとりあえず図書館いって片っ端から
本を開いてみそ。

VB6のヘルプにあるプログラムを実行すると必ずコンパイルエラーになって起動しません。
これって動くのですか？
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

次のプログラムでは、フォームが常に一番手前に表示されるようにします。
このプログラムを実行するには、MDI 子フォーム以外のフォームを作成し、
そのフォームに [メイン] という名前のメニューを作成します。
その下に [常に手前に表示] という名前のサブメニューを作成し、
その Name プロパティを mnuTopmost に設定します。
[プロジェクト] メニューの [標準モジュールの追加] をクリックして
新規の標準モジュールを作成します。
作成した標準モジュールに Declare ステートメントを貼り付け、
そのステートメントが途中で切れたり、改行されたりせずに、
1 行に収まっていることを確認します。
次に、フォーム モジュールのコード エディタ ウィンドウに
Sub プロシージャを貼り付け、F5 キーを押します。
' Windows API 関数の宣言。
' モジュールには必ずこのステートメントを記述する必要があります。
Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
' WIN32API.TXT に定義されている定数をいくつか設定します。
Const conHwndTopmost = -1
Const conHwndNoTopmost = -2
Const conSwpNoActivate = &H10
Const conSwpShowWindow = &H40
Private Sub mnuTopmost_Click ()
' メニューのチェック マークのオン/オフを切り替えます。
mnuTopmost.Checked = Not mnuTopmost.Checked
If mnuTopmost.Checked Then
' TopMost 属性をオンにします。
SetWindowPos hWnd, conHwndTopmost, 0, 0, 0, 0, conSwpNoActivate Or conSwpShowWindow
Else
' TopMost 属性をオフにします。
SetWindowPos hWnd, conHwndNoTopmost, 0, 0, 0, 0, conSwpNoActivate Or conSwpShowWindow
End If
End Sub

EXEを作って、実行する時に、そのEXEファイルがあるフォルダの
PATHって取得できませんか。どこにインストールするか分からないと
PATH書かないといけないステートメントはどうして良いものやらさっぱり。。。

>373
App.Path

>>368
次の順番で勉強してください。
HTML->LOGO->Scheme->QBasic->HSP->VB->Turbo Pascal->Delphi->C->C++->VC++->Java->Java Script->Perl

今日初めてVBScriptに触ったです。
複雑...
で、質問なんですが、

Dim GetAAA
GetAAA=1000
Response.Write GetAAA

って構文をasp内の <% この中に %> 記述したんですが、
中身が表示されないです。素通り？してるような。
なんか勘違いしてたらご指摘おねがいします。
しかし...これからこれやるのかぁ...

>>344
オブジェクトをまとめて扱うためのしくみ。配列みたいなものと思えばよし

>>346
今のところある。将来はわからん

>>351
Cのa[1]とVBのa(1)は要素数が違う。つーか、vb5dll.txt読め

>>355
ページとしてか？ それ以外に方法はないぞ。Webサービスにでもしたらどうだ？

>>357
難しく考える必要は無いぞ。とりあえず、使う側だけで言えば、VBでプログラムを
する以上、クラスはすでに使ってるんだから。で、その次の作る側だな、問題は。
ふだん使っているコントロールとかオブジェクトとかがどういう仕組みになっているか、
考えてみるといいと思うぞ

>>358
一列づつやらないで、まとめてやったほうが効率がいいぞ。画面の描画をとめてるか？

>>360
そうだな。俺も実戦がいいと思うぞ

>>370
じゃあ、何ならいいんだ？

>>372
どこでどんなコンパイルエラーになるんだ？ そこから考えてみろ

>>376
それで間違ってないはずなんだが・・・ エラーも何もでないのか？
ASPの全文を出してみ。もしかして、HTMLがわかってない、とかいう落ち
じゃないだろうな？

>>372
Privateで宣言しる。

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
~~~~~~~

>>377
元々このプログラムを理解できるレベルにないのですが
どうしてもフォームを常に手前に表示したものを作りたいので
ヘルプのコードをコピペして意味もわからず使っちゃおうと思ったのです。
なのでエラーコードみても何が悪いのかまったくわからないんです。
>>378
ありがとうございます。
やってみます。ところでメニューのNameプロパティってメニューエディタの
名前、というテキストボックスのことなんでしょうか？

>>376
HTMLのソース（というのか？）にはかかれているが、
タグ等の間違いで表示されないに100カノッサ

仕事でＶＢからＥＸＣＥＬにアクセスするプログラムを作らなければいけないのですが、
参考になる本などご存じの方がいましたら教えていただけませんか？

ExcelVBAのヘルプ。
もしくは、Excelでマクロの記録を実行して生成されたソースを読む。

VBわかるならこの手法で十分だと思うが．

>>382
いえ、VBはやったことがないもので…

>>382
GetObjectというのをヘルプで出てこないかな。？

超カンタンな質問で申し訳ないのですが,コマンドボタンを使わずに
Private Sub Form_Load()
Form1.FillColor = QBColor(15)
Form1.FillStyle = 0
Form1.Line (100, 100)-(3100, 2000), , B
End Sub
としたら全く何も表示されず,
コマンドボタンを使って
Private Sub command1_click()
Form1.FillColor = QBColor(15)
Form1.FillStyle = 0
Form1.Line (100, 100)-(3100, 2000), , B
End Sub
としたら表示されます。これはどういう理由でloadイベントの時は表示されないのですか？

良くも悪くも春だナ

超初心者な質問なのですが。
form1,form2など、複数のFormに渡って同じ変数を使いたいのですが、
dimではだめですよね？！

どうやって変数を宣言するのでしょうか？
どなたか、サクッとよろしくおながいします。

＞バナナマン
form1のAutoRedrawプロパティをTrueにしてみ。

>>387
フォームじゃなく標準モジュールに書け。

＞387
Publicステートメントを調べて。
具体的には標準モジュールをプロジェクトに追加してそこで
Public hoge As Long
とかする。

>>389-390さん。
ありがとうございます。なるほど。
さっそく試してみます。

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

>>389-390
ヘタにアドバイスすると、要らん愚弄バル変数を乱用するバカが大量発生する
恐れがあるので、放置してください。ご協力よろしく。

Response.Writeが表示されない質問したものです。
いつのまにか出るようになってました。
なにせ始めたばかりでなんで直ったかわからず。
レスサンクス！

>>385
>>388の方法でもいいし、
Me.Showを最初に追加するのもいい。
だがその後の処理は違うものになる。
なぜ違うかは自分で勉強すれ。

>ななし
>ヘタにアドバイスすると、要らん愚弄バル変数を乱用するバカが大量発生する
あり得ますね。以後注意します。

「○○だからグローバル変数乱発は危険」と一言添えるくらいが良いかと。
初心者スレだしな。

>要らん愚弄バル変数を乱用するバカ
を絞め殺したい気持ちには同意するよ（ｗ

>>396
グローバル変数を乱用すると危険なの？なぜ？

>>397

・プログラムの見通しが悪化し、保守性が下がる。

・関数やサブルーチンの独立性がなくなる。
　（どこからでも値を書き換えられる ≒ どこからでもバグを入れられる
　ということで、信頼性、品質に影響しかねない）

説明が不適切、または舌足らずな箇所があれば、ツッコんでください。

Dim sBuff as String * 260
Call GetPrivateProfileString("Dir", "Path", "", sBuff, 260, App.Path & "\DirList.ini" )
IniPath = App.Path & "\" & sBuff & "\Cfg.ini"

このコードにおかしいところはありますか？
EXEファイルと同じディレクトリにある設定ファイルに書かれている相対パスからもう一度
設定ファイルを読もうとしているのですが、上のIniPathの中身がおかしいです。
後ろの"\Cfg.ini"というのが入っていません。
当然、他にIniPathをいじっている部分はありません。
sBuffも正常に入っていました。

4 名前：名無しさん＠お腹いっぱい。 投稿日：2001/04/24(火) 13:25
＞２
私は在日韓国人ですが、日本生命側が怒る気持ちも理解できます。
私も西村氏の掲示板運営に抗議するため、敢えてここで西村氏を誹謗中傷し、
「文句があれば訴状を送って来い」
と、連絡先をメールで伝えましたが、訴状は届きませんで、代わりに
イタズラ電話が毎日かかってくるようになりました。
本当に陰湿で卑劣な男です。

21 名前：名無しさん＠お腹いっぱい。 投稿日：2001/04/27(金) 22:01
ひろゆきの彼女へ

今回の件、知ってるだろ？
悪い事はいわない。
ひろゆきとは別れたほうがいいぞ。
こんなイタ電しかできない男と一緒にいてどうする。
イタ電でパクられるなんてのは、大抵は女だぞ。
ひろゆきの脳は女性ホルモンが支配している。
女と女がくっついてたってしょうがないだろ？

24 名前：名無しさん＠お腹いっぱい。 投稿日：2001/04/27(金) 22:26
いたずら電話とはひろゆきらしいな
ひろゆきの陰険さはメルマガ読んでればわかるし、驚きもしないが
それよりも自分への中傷だけには異常に反応するところが愉快だな

こんにちは
タスクバーに登録されている他の任意のウィンドウを
アクティブにする方法はありますか？

知っている方、居ましたらレス下さい。
宜しくお願いします。

wininetを使ってhttpのデータを読みたいのですが、

　　Do
　　　　DoEvents
　　　　LpszBuffer = ""
　　　　rVal = InternetReadFile(hSource, LpszBuffer, 65525, numOfRead)
　　　　strData = strData + LpszBuffer
　　Loop Until rVal = 0 Or numOfRead = 0

　　（strData、LpszBuffer：文字列型、numOfRead：Long型）

のようなコードだと所々で空白や改行が入ったり、文字化けしたりして
話になりません。バイト配列で受けて文字列に変換しようとも考えたの
ですが、

　　strData = strData + StrConv(bytRecvData, vbUnicode)

のようにしても全くデータが集まらないです。。。
一応調べたのですが、良い方法がわかりませんでした。
ご教授お願いします。

>・関数やサブルーチンの独立性がなくなる。
>　（どこからでも値を書き換えられる ≒ どこからでもバグを入れられる
>　ということで、信頼性、品質に影響しかねない）

具体例を挙げよう。

Private Function func() As String
If flag = 1 then
func = "おまえもな"
ElseIf flag = 2 then
func = "いってよし"
Else
func = "ぐろーばる変数、ｲｲ"
End If
End Function

なんていう関数をみるとflagってなに？ということになるわけだ。
この関数から見えている範囲でflagという変数がないとこの関数はちゃんと動かない。
それにこんなに短い関数なのにflagという変数はどこでどういう値を入れられているのか
ソース中を探し回ることになる。
この場合func(flag As Long)とするだけで関数の独立性を保つことができる。

実際自分がさわっているソースはグローバル変数の洪水状態でたぶんこの変数にはこの値が
入っているはずだけどグローバルになっているせいでどこで書き換えられているかわからないから
仕方なくローカル変数を導入する、ということが日常茶飯事。
ああへぼ会社だ。

他人の書いたソースをさわったりしだすと、グローバル変数の憎さがわかってくる。
(他人　＝　未来の自分)

>>403

ツッコミ感謝です。

> ソース中を探し回ることになる。

要するに、デバッグの対象範囲、PG仕様変更の際の影響範囲が無意味に広くなる、
ということで・・・。

で、更に自己ツッコミなんですが、OO的な言い方をするなら、「カプセル化の原則に反する」
という表現もできますね。

>>396
標準モジュールを知っただけでも立派(/_T)

>なんていう関数をみるとflagってなに？ということになるわけだ。
>この関数から見えている範囲でflagという変数がないとこの関数はちゃんと動かない。
>それにこんなに短い関数なのにflagという変数はどこでどういう値を入れられているのか
>ソース中を探し回ることになる。

あとは例えばflag = 3の時に"あぼーん"が返ってくるようにしたいとか思ったときflagが
ローカル変数なら何でもないけどグローバルだと
flag = 3
と値を書き換えるのに不安があったりするわけ。直接flagで処理が分かれていなくても
flagの値によってflag_2の値がかわりそれによって処理が分かれるというようなことは
十分にあり得るので現在稼働中のシステムのグローバル変数はうっかり書き換えられない。
しょうがないから一時変数にflagの値をとっておいたりしてますますソースには変数が増えていく。

愚弄ばるスパイラル現象。

>>378
標準モジュールだから、Publicでもいいと思うぞ

>>379
だから、どんなエラーが出ているのか示せば、それを見て原因がわかることも
あるんだって。

>>399
APIで文字列を取得すると、文字列の後にゴミがついてくる。vbNullCharをInstr
で検索して、それ以降を削除してみろ

>>401
SetForegroundWindow()なんだが、Windows 98以降はちょっと使いづらくなってるぞ

>>398 >>403 >>404 >>407さん
ありがとうございます。
なるほど、よくわかりました。

プログラムが複雑になればなるほどやっかいですね。
ありがとうございました。

402は具体的過ぎでしたか。。。

>>408
俺はあんたにはレスしてないぞ

>>409
http://www.geocities.co.jp/SilkRoad/4511/vb/wininet.htm

とかが参考になるんじゃないか？ API もののときは、宣言がなきゃ全然わからんぞ

>>402
>のようなコードだと所々で空白や改行が入ったり、文字化けしたりして
２バイトコードの中間でデータが途切れて、
Unicodeに暗黙の変換されるときに文字化けしてるんじゃない？

>　　strData = strData + StrConv(bytRecvData, vbUnicode)
>のようにしても全くデータが集まらないです。。。
これは盆ミスの匂いが・・
StrConvは最後に一発でやらんと、やっぱり文字化けするような気がする・・

どこまで確認したのかはわからんけど、文字列に追加しないで
バイナリのままファイルに落として確認してみたら？

レスどうもです。402です。

>>410　そこを参考にしたんですが、そのままじゃ動かなかったので
　　　　　ちょっと改良したんです。

>>411　２バイトコード間で切れてるところも確かにありますが、そのほかに
　　　　　変な空白や重複が出現しているのです。
　　　　　確認のためバイナリのままファイルに落としもしましたが、
　　　　　配列の値が全部"0"らしくてダメでした。

>>355
SingleUse にしてもそうなるの？

>>407 まとれすさん
有難うございます。
さっそく調べてみますね

>>410
おっと間違い
×>>407
○>>406

グローバル変数使ったってなーんにも悪くない
わざわざ、関数になんかせんでええよ
書いた本人がわかればいい（･∀･)ｲｲ!
他人に読ませるためにソース公開したけりゃそりゃそれで体裁つくればいいで
いかも、グローバル変数禁止みたいなこと書くな
ｼﾞｬﾅｰ

>>416
どう見ても趣味のプログラムの話だな。

すみません、ちょっとお尋ねします。
VBScriptでDB内のデータを表示する際に、そのデータがtextで、
かつタグが含まれちゃってる場合、このタグを無効にする方法ってないでしょうか？

Server.HTMLEncodeで自己解決
m(__)m

>>416
VB初めて１ヶ月ぐらいはそう思ってたよ。

反面教師として書き込んでくれた方に感謝。

フォルダツリーを出してフォルダを選択し、テキストボックスに表示して、OKボタンで選択完了。
みたいなダイアログボックスを作りたいと思うんですが、
これって絶対コンポーネントに含まれていると思うんです。

でもコンポーネントのリストをみてもどれだかわからんのです。

このダイアログの一般名称がわからんので検索もできんし・・・
コモンダイアログが惜しかったんですが、ファイル選択だし・・・

「f:\aaa\bbb\ccc」とかテケトーなPathをFDDかHDDかCDDか
判別するにはどうしたら良いでしょうか。

>>422
標準のコントロールではないと思うよ。
大抵はSHBrowseForFolder()APIあたりでやると思う。

>>423
Pathっていうか、頭のドライブレター(?:)をGetDriveType()APIに渡せば
ドライブタイプを得られるよ。

ＶＢで作成したアプリケーションは、Windows2000およびNTで動かないって事はあるのでしょうか？

>>422
Shell.BrowseForFolder()って手もあるぞ

>>423
ネットワークドライブは判定できないので、ファイルシステムで、って手もあるな

>>425
基本的にはない。作り方によって問題が出るとか、バージョンによっては動かないとか、
インストール時に問題が出る、とかはあるがな

>>424
そうですか。やっぱり自作するしかないですね。

>>425
理屈はわからんですがが、私のNT4.0 Workstation SP6では
VB6で作ったプログラムが普通に動いてます。

IEあたりにランタイムがくっついてきたのかな?

>>426
その"Shell"てCOMですかね。試してみます。

VBで作ったAPLを起動するのに
Windwos2000でアドミニストレータで立ち上げないと、動かないって事ありますか？

>>426
そうだ。Shdocvw.dll だな。バージョンの違いに気をつけろ

>>429
やっている処理によってはある。フォームだけのプログラムなら、問題なく動く

>>430
おしえてください。
標準モジュールを使ってたらマズイですか？

たびたびスミマセン。。。。

>>430 できまいた。ありがとうございました。
VBScriptですが、

Dim Shell, objFolder
Set Shell = CreateObject("Shell.Application")
Set objFolder = Shell.BrowseForFolder(0, "Select Folder", 0, "c:\")
'IF IsEmpty(objFolder) Then
' WScript.Echo("Select Folder")
' WScript.Quit()
'End IF
WScript.Echo objFolder.Items().Item().Path

＃キャンセルを押したときのエラー処理がうまくいかない・・・

横ﾚｽすみません。
APIってどうやって勉強したら良いのですか？
みなさんはどうしてそんなたくさんの種類をご存知なんでしょうか。
パッとみたら調べられるｻｲﾄとか本とかあるのでしょうか。

>>433　横レスに横レスですが。

MSDNが答えかと。あとは、APIビューアでちょちょっと。

ちなみに私のばいぶるは、「Windows95 APIバイブル１」。

強制的にＩＥのセキュリティレベルを
下げるもの教えてくださいませんか？

>>435
ウィルスでも仕込んだら？

>>436
ウィルスですか…。
ウィルス知識ないのでいったいどれが…

>>435
そんなことが出来る物を作ったら、犯罪に荷担した事になりますよ。

>>438
そこまでいきますか…。

VBで配列のなかに配列を格納することってできますか？
Javaみたいにできればいいのですが・・・。

>>430
内容次第だ

>>432
どううまくいかないんだ？

>>433
C+SDKで組むのが一番勉強になる。MSDNライブラリもだいぶ日本語化
されたので、一通り読んでみるといいぞ。で、vb5dll.txtも忘れずにな

>>434
さんざん言われてるが、APIビューアは間違いが多い。ヘッダから書き下ろす
のを勧めるぞ

>>440
こういうことか？

Dim v As Variant
v = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9))

オセロゲームをするソフトはＣ言語でつくったりしますよね。
プログラミングをするソフト（たとえばＶＢ）なんかは何で作られているのですか？

WordなどのマクロでのVBAでスクリプト、ゲーム等は作れるんですか？

＜Text1.Top＞みたいなのを変数に格納したいのですが、
その際、dim xxx as ???
　　　　　　　　　　　　　↑なんて指定したら良いのですか。

>443
Excelでオセロとか作ってるのは見たことあるよ。
やってできない事はない。

>444
そのプロパティの型と同じ型。
MSDNに
>Left プロパティおよび Top プロパティの値として、単精度浮動小数点数を設定することができます。
ってあるぞ。

>>441
> どううまくいかないんだ？

432の8行目で、「オブジェクトがありません」(800A01A8)といわれます。
コメントになってるところが、エラー処理をしようとした残骸です。
Shell・・・の返り値の処理が間違ってるみたいです。

> >>434
> さんざん言われてるが、APIビューアは間違いが多い。ヘッダから書き下ろす
> のを勧めるぞ

そうなんですか。 ???.txtの修正版とかないんですかね？

ちょっと別の話。

MSDNみてて疑問におもったんですが、VBScriptって
もしかして2つ以上の戻り値を受け取れないんですか?

VCでCOMつくってVBScriptから使おうと思ったんですが、つまるところ
　Set Hoge = CreateObject("Hoge.Hoge")
　Status = Hoge.Func(InVal, OutVal, OutVal2)
　IF OutVal = "aaa" And OutVal2 = "bbb" Then
みたいな設計はできないってことでしょうか？

>442
C

>443
速度をあまり必要としないゲームなら可能。

>444
そのプロパティ自体はSingleだが、小数点以下は
特殊な座標系用だから、Longで宣言する人が多い。

ある数値を奇数、偶数と判断するようなことはできませんか？

>>445,>>448
なるほど。一応可能なんですね。いや僕VB買おうかどうか迷っててそれで
聞いてみたんですよ。どうしよかなぁ・・。とりあえず、ありがとうござ
いました！

>>442
バイナリイメージを見てみればある程度想像はつくが、おそらくVC++だろうな

>>443
作れないことは無いぞ

>>444
Topプロパティの変数型を調べてみろ

>>446
だな

If objFolder Is Nothing Then

で判断してみろ

どっかに置いてあったな。AlllAPIか？

>>499
Mod演算子について調べてみろ

>>449
If (i mod 2)=0 Then
Debug.Print "偶数"
Else
Debug.Print "奇数"
End If

>>451
> If objFolder Is Nothing Then
> で判断してみろ

できました。NullはNothingなのですね。どうも。

> どっかに置いてあったな。AlllAPIか？

検索してみます。

>>449みたいなのは　ホント初心者だなｗ
ＶＢ以前の問題だぞｗ
でも　みんな最初はそんなもんか？ｗ
まっいいか
じゃあ　厨たちにお題だ
３次方程式の解の数を判定するコードを書いてごらん
純粋に数学的論理アルゴリズムだｗ
まず数学でこれができんと　お話にならんがなｗ

>449
たとえばあなたは26632という数を見て偶数か奇数かどうやって判断していますか?
それと同じことをコンピュータにさせればいいのです｡
これがわからないなら悪いことは言いませんからプログラムをマスターしようなんて
思わないでパッケージソフトだけ使っていてください｡

>>451
そうしたら、VC++はなにで作られてるのですか？

>>449
一番下のビット見れ。

>457>おまえも　いじわるだな
ビットの判定できる法がわかってたら
…以下は省略されました

>>451
ワンポイントに出てくるけど、VCはVCで作られてるぞ

>>454
ついでに話にのろう
厨たちにヒントだ
３次方程式は
必ず実数解を一つ以上もつ
それだけｗ

>>459
うろ覚えですが、
　「自分で自分自身を構築できたら、そのプログラミング言語が成熟したといえる」
というような話をどっかで聞いたことがあります。

>>459
WindowsはVCだけで作られているの？

ＶＢ５のラーニングエディションで作ったプログラム（ＥＸＥファイル）
を９５以降のウィンドウズで正常に使えるようにするには
どうすればいいのでしょうか？
私はＷｉｎ９８を使っているのですが、やはり
セットアップウィザードを使って、きちんとセットアップする
ファイルを作成した方がいいのでしょうか。
用語が間違ってたらすみません。

>>462
Cとアセンブラって感じ。Cだけではどーにもならん部分もある。
コンパイラはVC使ってるんでしょうな。どのバージョンだが知らんが。

＞＞４６３
おい　ＶＢ５をどこで手にいれたか知らんが
正式な入手なら　ＭＳＤＮヘルプあんだろ　ＭＳＤＮサイトもある
初心者以前が多いぞ　ここんとこ

>>451バイナリイメージを見てみればある程度想像はつくが、おそらくVC++だろうな

Spy++でウィンドウクラス名見たほうが分かりやすいのでは？

なんかさっきから初心者質問を煽ってるのって同一人物か？

>>461
そんな話は聞いたことがないが、必ずしも「自分で自分自身を構築」するわけ
じゃないと思うぞ。古いバージョンで作ればいい訳だしな

>>462
「Windows」の定義が難しいところだが、広〜くみると、VBで作られている部分
が無いわけじゃない。たとえば、OptionPackのツールとかな

>>463
DLL Hellが起こるかどうかは、調べてみないとわからんな

>>466
そうだな。そういう調べ方もある。VBで作ったアプリなんか、一発だな

＞DLL Hellが起こるかどうかは、調べてみないとわからんな

そうそうこればっかりはやってみないとわからない。VBで作成したプログラムをいろんなマシンに
インストールするとどうしてもうまく動作しないマシンがでてくるというのはよくある話。
ランタイムやDLLの不整合が起こっているせい。セットアップウィザードを使ったからといって
DLL　Hellがなくなるわけではない。インストールした後はよくてもOSやソフトのバージョンアップを
したり、新たにインストールしたりするとはまることがある。(特にM$製品)
VBが嫌われるもっとも大きな原因。

Win95は過渡期のものであるからしてDLLHellの起こる可能性は高いといえる。
IE4の有無、Officeの有無で状況が変わってくるので注意。

＞Win95は過渡期のものであるからして
それとClassic Win95かOSR2以降であるかというのもあったな。
そんなことしないだろうけどVBでwin95以降を対象に一般向けアプリを
作ろうとしたら最低でも
Classic win95 ,OSR2
IE4の有無、
Office97の有無
の環境でテストしないといけない。まあ書き込みからして個別案件といったものだろうけど。

もしDLLHellにはまった場合VB以外を使う、あるいはOS(マシンごと)をバージョンアップする
方が早かったり幸せになれるかもしれないことを頭の隅っこにでもおいておこう。

>>469-470
そういうことだな

俺の場合、Windows 98を配布対象に、と言われたら、SE以降に限定する。
NT系なら、Windows 2000以降だな。これらの環境では、Side-By-Sideが使えるからな

すいません、もうひとつ質問させてください。皆さんの回答を総合すると一応
出来るという事はわかったんですが、>>448さんの「速度をあまり必要としない
ゲームなら可能」や、まとれすさんの「作れない事は無い」という事からVBとVBA
ではどう違うんですか？

>>472
そーゆー意味ならネイティブコンパイルが出来るか出来ないかが一番大きいかな。

#ちなみにどっかのスレでExcelでオセロ作ってたの俺だけど。
#さすがにアクションゲームとかはVBAではつらいなあ。

String変数内の文字列のサイズを取得したいんですが、
LenB(StrConv(mMojiretsu, vbFromUnicode))
とやるしかないでしょうか？（mMojiretsuがString変数です）
これで確かに実現できるんですが、mMojiretsuの中が大きいと処理速度がとっても遅いです。
もっと早く処理できる方法はないでしょうか。

>>446
むしろ、Dependency Walker の方がよいと思いますけど？

以下、事故レスです。
>>270 さん に対する>>336は間違えですね。m(_ _)m

条件に合う単語数をカウントするだけなら置換する必要はないです。
手元にドキュメントがないので、ウロ憶えですが、Machオブジェクト（オブジェクト
というよりコレクション）を使えば、Instr関数をループで回すより速いです。
そして、VB標準の機能では、Machオブジェクトが使えないので、VBSを使う、という
話です。(Cの方が速い云々の話は置いといて)

説明不足、誤りは指摘してください。

フォームから他のフォームを操作したいんですがどうやったらいいですか？
たとえばＦＯＲＭ１のコマンドボタンを押すとＦＯＲＭ２のチェックボックスにチェックをつけられるような感じです。

>>474
lstrlenでも使ってみたら？

>>476
必要に応じて、操作対象クラスの Method | Property を公開(Public)
してください。

これだけの説明じゃ不親切？

>>478

具体的には、

Call frmHoge.Method

または、

frmHoge.Property = Value

といった要領。

対象となる、Method | プロパチはPublicでないと、×。

>>478
初心者なのでわからないです…。
＞ＦＯＲＭ１のコマンドボタンを押すとＦＯＲＭ２のチェックボックスにチェックをつけられるような感じです。
たとえばこういうプログラムを作るにはどんなプログラムを書けばいいのですか？

>>479
やってみます。ありがとうございました。

>>480
Private Sub Command1_Click()
Form2.Check1.Value = 1
End Sub

>>482
感謝です。ありがとうございました。
使用例を見るとわかりやすいです。

ActiveX.dllで作成したプログラムでDBを操作した途中経過を呼び出し元のプログラムに通知するのにいい方法ありませんか?

たとえば
ActiveX.dllで作ったプログラムで10件の連続してデータをDBに追加する場合
一件追加が終了したらフォームのプログレスバーを更新したいのです．

むっ。lstrlenだと型変換が高くつくね。

>>472
VBAは、ホストアプリケーションがないと実行できない。つまり、Excel VBAで
アプリケーションを作ると、Excelのない環境では動かないわけだ

>>474
APIを使う、ってのがあるな。lstrlen()とか

>>476
Form1.Command1.Value = True だな

>>484
コールバックについて調べてみろ

>>477
そうか？ 高くついても、一回だけだろ。ANSIサイズが取れるし

ＶＢがＣで作られたというのはわかりましたが、ＣがＣで作られたというのはわかりません。
さあ作るぞ、といって開発環境を立ち上げようとしたときにはまだその開発環境自体がないわけでしょ？
どうやって作るのですか？

>>484
WithEvents調べてみなはれ。

>>474
どれぐらいのサイズ＆処理時間？
質問はできるだけ具体的に。
まあ、APIを使うしかないかな。

>>475
VB6に限定すれば、InStrでvbCrLfをカウントするほうがReplaceより速かった。

対象ファイル 1MB (30,000行)
　　　　　　IDE　　　　　EXE
InStr　　　0.07秒　　　0.04秒
Replace　　0.78秒　　　1.00秒

あとEventとRaiseEventも。
この辺使えるとVBのソレっぽくなりますよ。

>>487
VBのような統合開発環境しかイメージにないんだろうな。

最初はまず基本的なことだけ機械語に翻訳できればいい。
ファイルをOPENして、文字列を翻訳し、ファイルに書き込む。
これで自分自身をコンパイルすれば、原始的コンパイラが出来上がる。
あとは、どんどん関数を追加していくだけ。

>>473サン、まとれすサン回答ありがとうございます。いろいろと障害があるんですねぇ・
・・・・。うーむ、迷う・・。

>これで自分自身をコンパイルすれば、原始的コンパイラが出来上がる。

ちなみにPascalコンパイラの場合次のようにしたそうです｡某MLより引用

まず、Pascalコンパイラのプログラムを手で紙の上に書く。
人間がPascalインタプリタの気持ちになって(!)、Pascalコンパイラのソースをコンパイルする。
世界初のPascalコンパイラのコンパイルには、2ヶ月かかった....

C++の場合
まずC++インタプリタをCで書く。
できたC++インタプリタでC++コンパイラを書く。
できたC++コンパイラに'自分自身'を食わせる。

>>474
ボルトネックが本当に文字列カウントの部分
か・・・・ということも考えなくては。

静的変数って、グローバルで宣言するのと、なにが違うのですか？
あと、これをいらなくなったからって、解放できないのでしょうか。

>493
PascalはBASIC並みに高級(＝機械語から遠い)だからね。

Cの基本的な部分はほとんどアセンブラみたいなもんだし、
あえてインタプリタを介する必要はないと思うけど。
っていうか、インタプリタ→いんちきコンパイラって
高級言語の話であって、Cの場合は、あとで学習用に
インタプリタが出来ただけで、基本はコンパイラ。

>495
普通の変数とグローバル変数の違いと一緒でスコープが違うだけ。
静的変数はプロシージャ終了後も初期化されないってだけの話さね。

>497
なるほど。どっちにしても使わないほうが良いってことですか。

>>498
何れ必要なこともあるかもしれない。まあ、心の片隅にでもしまっとけば。。。

MSDNには高速化のためにStatic変数を使う例が載ってるけど、
実測ではあまり高速化されなかった。
しかし、たびたび再ロードされ、規定値以外で初期化する必要がある
大量の変数はStaticにしたほうが二度手間にならない分、高速化される
かもしれない。

>498
グローバルを乱発するよりずっと安全だと思うよ。
プロシージャ内であれば、他への影響も少ないし。
要は使いどころさえ間違わなければ良いだけだ。

>>495-501

スコープ = 有効範囲(空間的)
記憶クラス = 有効期間(時間的)

という理解でよろしいかと思いますが。
Static をスコープを表すキーワードと誤解すると、混乱の元になるかと・・・。

>>475

Machオブジェクト → Matchオブジェクトの間違いです。(ToT)
(大恥)

条件に合致する単語をMatchコレクションに取るのは、RegExp の
Execute メソッドですね。

全角のダブルコーテーション「”」について質問です。
例えば
a$ = "”"とした場合は
a$ = """"と半角に置き換わってしまいます。
半角「"」がperlのエスケープシーケンスの様な働きをするというのは分かったのですが
どうしても全角「”」を半角「"」に勝手にvbが変えてしまいます。
これを回避する方法ってあるのでしょうか？
初歩的な質問ですいません。

>>503
Chr()関数を使え

>>503
VBには、そういうおせっかいな仕様がけっこうあるから、気をつけてね。

RichTextBoxについて質問です。
実況用みたいな2chビューア作り、ログの表示にRichTextBoxをつかったんですが、
NT系OSだと恐ろしく挙動不審になっちゃいます。
詳細は↓こちらを見ていただけるとありがたいんですが、
http://pc.2ch.net/test/read.cgi/tech/1012544484/232
用はdatをダウンロードしながらどんどんRichTextBoxに追加していくと、
すごく重くなったり、場合によっては落ちてしまうようなんです。

ログに追加してる方法ですが、Selstartでカーソルを末尾に移動して、
Selcolorで色を設定して、Seltextにて追加する文字を表示させてます。
これをレスが1000ついてるスレに関しては1000回も繰り返すわけですが、
200回当たりから級に遅くなり、場合によっては落ちてしまうようで・・。

9x系OSだと全然問題ないんですが、
NT系でもちゃんと表示できるようにする方法はあるでしょうか？

VB で CreateThread って使えますか？

>>504
そうか！ありがとうございました。
>>505
ありがとう。

>>507
VB.NETだと使えるらしい。それ以前のバージョンではダメダメ。

>>506
リッチテキストは結構問題あるぞ。WebBrowserとかじゃだめか？

>>507
VB5SP2以降なら一応いけるということになってる。しかし、普通のコントロール
とかはスレッドセーフじゃないから、実装するのは面倒だ。

ちょっとしたサンプルで試したが、とりあえず動く

>>509
VB.NETだと、System.Threadingネームスペースがあるから、CreateThread()を
使う必要は無いぞ

やっぱりIEコンポーネント使うのが無難ですか・・・。
起動遅くなるしあんまし使いたくなかったんですが。

>>468
>>469
>>470
どうもありがとうございました。
とりあえず使える人にだけ使ってもらうようにします。
もうちょっと勉強してきます。

>>506
文字列として取っておいて一気に転送するとか、その文字列も配列にして
ある程度大きくなると次の要素に入れるとか。

まあこれも追加していく様を表現したいなら意味ないアドバイスだな。

速さを優先するなら俺は自前で描画する。めんどくさいけど。

#monazira見たよ。がんばってね。

>>510
VB6でもいけるの？俺無理だったんだけど。

>>513
追加していく様を表現したいです。
仮に初回を一気に追加できたとしても、次回以降はリジュームして
差分だけ追加していくことになるので、やっぱり繰り返してるウチに遅くなっちゃうでしょうし。

うーんIEコンポーネント使って試してみますわ。

>>514
どこがどのように無理だったんだ？ まぁ、ダニエルアップルマンの記事を見ると
まじめには使えないレベルだったが・・・

>>515
スプレッドとかで使われる技だが、たとえば、コントロールには100行だけを
表示するようにする。そんで、スクロールにあわせてコントロールの中身を変更する
ってのがあるな。

スクロールバーを自分で管理しなくちゃならないなど、いろいろ面倒ではあるが。
コントロールの使うリソースは少なくできるので、パフォーマンスはあがるな

>>516
スレッドは作れるけどその後の処理がほぼアクセス違反になる、って感じ。
使い物にならんので使えるとは俺は言いたくないのだ。

#もしかしたら使い物にする方法もあるのか？と思ったので。

すんません、質問おながいします。
AccessVBAでﾘｽﾄﾎﾞｯｸｽの値を一つ削除すると、「#Delete」って
表示されて、しかも、それを選択することができちゃうので、
明らかにエラーを出しますよ、といわんばかりなんですけど、
これを表示させない方法ってあるのでしょうか。
おながいします。

LefｔB関数でバイト単位で文字列を左から取得しようと思っています。
ですが、VBはUnicodeを使用しているので、半角英数字など本来は1バイトの文字も
2バイトとして計算してしまうので、
str="abcてすと"
LeftB(a,5)
と実行すると"abc"と表示されます。

私としては、半角英数字の3バイトと全角の2バイトで
"abcて"
と表示されるようにしたいと思います。
どのようにすればよろしいのでしょうか？
いい関数などがあれば教えて下さい。

↑
解決しました取り下げます。

僕もRequeryかけることで解決しました。スレ汚しスミマセンでした。

>>517
まぁ、ほぼ同意だな。で、結局スレッドセーフにするためには、APIを使うしかない。
VC++を使ったほうが楽だな

>>520
解決したのはいいが、できればどうやって解決したか書くといいぞ。MLなんか
では、基本的なマナーだな

・・・ここは2ちゃんなんで、お構いなしかもしれんが

>>520
Unicodeをstrconvで変換したんだよね？

520です。ｽﾏｿでした。>>523さんのおっしゃる通りです。
正直、LeftB関数って無意味だと、知りました。
lengthがLeft関数の場合の2倍になるだけじゃないか！！

>>524
参考になる意見です 感謝
>>どなたか
VB6.0のコードエディタに行番号を表示させておくにはどのような環境設定をすればいいんですか？

>>525
どなたか
VBのコードエディタで行番号を表示させる必要がどんなときにあるのか教えてくれ。

なんで
Dim MyObj As New MyClass
とやっちゃいけないのですか。
あとでSetする方が2度手間の気がしますが。

VB.NETの推奨開発環境は700MHz以上みたいですけど、
作られたEXEの推奨動作環境はどれくらいなんでしょうか？

>>525
なくても困らないけどあったら便利そうだね
行番号が表示されているのはオレも好み

10進数を2進数に変換する関数を教えてください

>>530
そういう関数はないので、自作。
と言っても、順番に2^nとAndを取るだけ。

>>527
ばかは首つりがいい。

2^nがなんのことかわかりません・・・。
And演算子をどう使うのですか？

2^n =「２のn乗」

ファイル選択→右クリック→「あほあほまん」
それであほあほまんのプログラムが起動するわけですが、選択したファイル情報を取得するには
どうすればいいのでしょうか？ahoaho.exe %1って感じのやつです。

>>533
このスレの前のほうに同じ質問がある。

>>535
コマンドライン引数は、Command関数で取得できる。

>>525
行番号はプロシージャレベルで可　しかも手書き
これは伝統的なベーシックの行番号ではなく
ラベルと同じだ
ラベルはわかるね？（･∀･)

>>530
いうまでもなくVBに二進数を直接扱う変数型はない
二進表現は文字列を使わざるを得ないが
二進にしたはいいが逆に数値に戻すの手順も必要なのはわかるだろう
二進表現をなにに使うのだ？？？
そこがポイント
用途によって、くそまじめに二進表現をしなくていいアルゴリズムもありうる
暗号化か？、それともＡＰＩでビット操作が必要か？　ビット操作自体は先のヒントのように
二進表現はわざわざいらないぞ
そこんとこどうよ？＞＞５３０

>>530
言い忘れた　横槍きそうだから　連続レス
バイト配列もあるぞｗ

>>537
それまでのレスを見てもわかるように、その行番号ではないと思うぞ。

>>525
ツールバーあたりのステータス情報に表示されるか、それで良いのではという
感じ。漏れは、VBでもエディタでゴリゴリ派なもんでコードエディタ内での
必要性は感じたこと無し。

>>537
あれつけると、errオブジェクトで行番号とれるようになるので、
行番号付加/消去のアドイン作って使ってる。

>>525
コードエディタは、その機能を持ってないはず。外部エディタを使うぐらいしか
思い浮かばないな。ちなみに、VB.NETのコードエディタでは表示できるぞ

>>527
宣言と生成が一緒の行になるんで、デバッグのときにちょっと面倒、という問題と、
Nothingしても再生成されちゃう、へんな変数になってしまうのが問題だ、という
ことになっている。

ちなみに、これもVB.NETでは問題無し

>>528
MSがどういってるか知らんが、俺のP3-800MHz 256MHzではVB6と同じぐらい
で動いてるぞ

>>529
シェルエクステンションDLL・・・は使ってねーよな。なら、>>536 の言うとおりだ

>>541
erl関数だったか。隠しだな

カレンダーコンポーネントのファイル名を教えて下さい

Officeで使うカレンダーーコントロールは、mscal.ocxです。
(VBの場合は、違うかも知れません)

行番号について勉強になりました。ありがとうございました。

Ｅｘｅファイル作成時に”ｖａＳｐｒｅａｄ”の型が未定義と言われて困って
ます。どうすればいいのでしょうか？
どなたか襲えてください。

VBってインタープリタ言語ですか？

>>546
typedef

>>547
両方

>>546
ちゃんとOCXを追加できてるか？

>>532

感情的になっても、何も得るものはないのでは？
（気持ちはわからないでもないが、建設的ではない）

・・・って、2chで言ってもムダかな？

あるtxtﾌｧｲﾙに
------------------------
ccc
999
ddd
ttt
あああ
　・
　・
　・
------------------------
とあって、これを一行ずつコンボボックスに入れて逝きたいのですが、
その際、コンボボックスの上から順に昇順になるようにしたいのですが、
データベースかなんか通してソートするより他ないのでしょうか。

>>552
Sorted=trueじゃいかんの？VBAにはなかったっけ？

>>552
コンボボックスに入れるならSorted=Trueでいいけど、
プログラマならソートのロジックぐらい知っとけ。

>>553　なるほど。そんなのがありましたか。なるほど。
>>554　どうもです。次のと比べて…って延々ループさすやつですか？

セレクションソート、バブルソート、シェルソート、クイックソート、etc

Private Sub Form_Terminate()
Dim i

For i = 0 To 50000
Open "c:\" & i & ".txt" For Input As #i
Next i

End Sub

>>556
ボゴソートが抜けてる

>>556
ギコソートが抜けてる

ディレクトリリストボックスで、ディレクトリ一覧がボックス内に
表示しきれない場合、マウスのホイールボタンで下にスクロール
しようとすると上にスクロールしてしまいます。
どうしてでしょうか？

>>560
通常の(IEなどの)スクロールバーもそうなのならマウスのプロパティを
弄ることをオススメするが、そうでないなら、そんな症状見たことない。
・・・スマソ。

>>560
ﾏｳｽをひっくり返して使うとか。

>>562

マウスをひっくり返すと、スマソに・・・・ならないか。

つまらないですね。逝ってきます。

>>563
つまらないというか意味がわかりません。

VBで作ったプログラムで、Windowsそのものではなく
プログラムだけを再起動させる方法をご存知の方はおられませんか？

どこかでちらっと聞いたところによると、WM_CLOSEの途中で云々…とか。
詳しい事を教えてください。

こういう事聞いていいのか分かりませんが
ＶＢってこれから廃れていくのでしょうか？

ＶＢとＲｕｂｙはどちらが勉強するにはいいん
でしょうか？
あと、ＶＢをある程度習得したからって他の言語
を勉強する時に役にたつのでしょうか？

変なスレですみません。気を悪くしないで欲しいです

>変なスレですみません。気を悪くしないで欲しいです

スレは変じゃないやい！役立ってるんだい！

>>566

VBの未来はMSの製品維持方針任せだ。いくらユーザーがまだまだ使いたい！
と思っても、あの会社が「止める」といえば、それまで。
(VB6.0のサポートは2005年までらしい)

現実的には、VB資産を多数抱えている会社も少なくないはずで、（お守りの
仕事は）簡単にはなくならないと思います。

- いじょ -

>>560
そういうものだと思ってる。そもそも、あの辺のコントロールは、旧バージョンとの
互換のためのものだしな

>>565
やろうと思えば、↓みたいな形で出来る

子アプリ起動
　　　↓
自アプリ終了
　　　↓
子アプリから自アプリ起動
　　　↓
子アプリ終了

>>566
廃れるかどうかはわからん。少なくとも、現在の資産は残るがな。Rubyとの比較
だが、ターゲットがまったく違う、ということに気づいてるか？

VBを習得したからといって、他の言語が学びやすくなるとは限らん。最低限の
部分は別だがな。しかし、それはVB以外の言語でも同じだ。ようは、その辺まで
気を配って勉強できるかどうか、だな

よくあるファイル読みこみのプログラムなんですが・・

Do While Not EOF(1)
Line Input #1, Buff1

で、どうも本には"Line Input"はファイルの最初から１行を読みこむって
書いてあるんですが・・・

これを任意の場所の１行って言うのはできないんでしょうか・・

VBで作ったと思われる
DLLファイルをVBのソースに戻すっ方法ってないですかねえ？
逆アセンブルはできてもお手上げ状態なんです。
DQNな質問すみませんが、識者さんお願いします

>>570
任意の行、ってのはできない。いったん配列にでもとってから操作するか、
ランダムアクセスするしかないな

>>571
ない。ドイツ製の逆コンパイラがあるという話は聞いているが、古いバージョン
のものしかないようだ

>>571
無理。

>>566
マイクロソフトとしては、急ピッチで.NETに移行させたいのだが
ほとんどうまくいってないのが現状。

将来的にＭＳが顧客無視して強引にサポートを打ち切っても
顧客側に根強い需要があって、しかも世界的に未だWin9xが
現役バリバリ（死語）で稼働しているだろうから
もしＭＳ以上のサポート（開発、保守）が出来るスキルがあれば
逆にチャンスだと思ってるよ　商売的にね。

まずＶＢでも何でもいいからとりあえず一つの開発環境を
周りから神(ﾟ∀ﾟ)と呼ばれるぐらい極めれ、まずはそれから。

多重起動したくない時に書く、
If App.PrevInstance Then End
はEnd　Ifが要らないのは何でですか？

>>575
一行だから

>>575
多重起動防止の場合というか
if hoge=○○ then　△△
と一行で完結する場合はEnd Ifはいらない。

If A=B then
C=0
End If


は下のように書ける
if A=B then C=0

ｹｺｰﾝ、ｹｺｰﾝ！

>>577-579
皆さんありがとうございます。
勉強になりました。m(_ _)m

>>576さんもありがとうございました。

>>579
感謝されたぞ？藁）

>>575
ちなみに言っとくが、App.PrevInstanceプロパティは完全じゃない。きっちり
やりたかったら、Mutexを使うことを検討した方がいいぞ

すみません、さっきもお世話になったものです

Replace(buff2, "<a href="./" & suuzi2 & "/html/index.html">", "")

ようするに置き換えの式なんですが・・buff2とsuuzi2は変数です

<a href="←の["]が置き換えの["]と同じのようで問題があるようでして・・
やろうとすると「修正記号区切りまたは」とかいうエラーがでてしまいます

これはどーするべきなんでしょうか

AccessVBAみたいにリストボックスに列を作りたいんですけど、
それ系のプロパティがありません。無い？
もしかして違う名前なんでしょうか。

>>584
""
↑重ねる。

>>584
Const DQ = """"
と宣言しておいて、

"<a href=" & DQ

という風に使う、って手もあるぞ

>>585
Columnプロパティとかないか？ APIでメッセージを送って、って手もある

>>583
そうなんですか。またまた勉強になります。

>>586
>>587
ありがとうございます
やってみます

ＷＩＮＡＭＰみたいにスキン機能をつけることはできますか？
できるとしたら難しいですか？それともめんどくさいですか？

できる。
Winamp級のスキンだと自力で描画しないとだめだからメンドクサイと言えばメンドクサイね。
ウインドウの大きさやボタン配置までカスタマイズ出来るようにするならなおさら。
もっともお手軽な方法なら、フォームのPictureプロパティにLoadPictureしちゃうとか。
背景画像変わるだけ〜とか。

>>590
それは自分でＶＢで作ったソフトにおいての話か？
だとしたらスキン機能実装も可能だと思うが。

プログラミングとは関係ないですが、
ＶＢ６で「ｺﾝﾊﾟｲﾙ」の文字が「ｺｿﾊﾟｲﾙ」に見えるので気になります…。

自分のアプリのメニューで、半角カナを使うのはまずいですか？

それは正直好きにしろとしか言いようがないな。

>>593
かのMSだって使っているんだ。ロシアの原子力潜水艦に乗ったつもりで安心しろ！

>>595
沈んだじゃん。

>>568
VB6のサポートは、2008年までだよ。

>>595
でも最近は使ってない気がしない？

>>591,>>592
レスサンクス。
今作ってるやつに将来的にスキン機能を追加させようと思って。
まだ作ってる途中なんでできるかどうか知りたかった

すみません、Excel VBAの質問をどこにしていいかわからなかったのでお願いします。
シートに

体重 | 名前 | 電話番号
--------------------------------
５５ | 鈴木 | 090-****-****
６７ | 佐藤 | 090-****-****
４２ | 山田 | 090-****-****
・
・
・

という感じにデータがあって、これを名前順にソートしたいときには、どうすればいいのですか？
いろいろやってるなかで、なんか「指定した行を優先して並べ替える」というふうなのもあったんですが、
うまくいきませんでした。

こんにちは。
"今日　昨日"(全角スペース)を"今日, 昨日"(半角,と半角スペース)に
変換したいのですがうまくいかないです。お願いします。

バイリニヤ法でビットマップを拡大しようとしてるんですが、
SetPixelV/GetPixelを使って色の取得/設定を行うと正確に結果が出るのですが、
DIBSectionを利用して拡大すると、画像が歪みます。
プロシージャの各所でDouble使ってるんですが、その誤差の影響でしょうか。
ちなみにPictureBoxからGetDIBitsしてRGBQUAD型の配列に入れたりその配列を
SetDiBitsしてPictureBoxに表示する関数は某所からコピペしたものです。。
説明が不十分なんですが、画像が歪まない解決法はありますか。
やっぱりコードを貼ったほうが良いですかね。。

>>601
VB6だったら
a="今日　昨日"
a=Replace(a,"　",", ")

>>603
速レス、ありがとーございます。さっそくやってみます。

>600
五十音順で並べたいという事なら、ふりがなが必要になるぞ。
あと、うまくいかなかった時はどううまくいかなかったのか(こういう結果を
期待していたが、実際はこうなった)を書いたほうが解決が早いと思われ。

>>597

ご指摘感謝。m(_ _)m

>>605
名前で五十音順にしたいのです。
範囲を選択して、ツールメニューのなかの並べ替えをしたのですが（名前の行を最優先に並べ替え、
みたいな項目にチェックをいれて）、宮崎さんが佐藤さんの上にあったりして、結局ソートされてませんでした。

>>600

>五十音順で並べたいという事なら、ふりがなが必要になるぞ。

>五十音順で並べたいという事なら、ふりがなが必要になるぞ。

>五十音順で並べたいという事なら、ふりがなが必要になるぞ。

>五十音順で並べたいという事なら、ふりがなが必要になるぞ。

>五十音順で並べたいという事なら、ふりがなが必要になるぞ。

>五十音順で並べたいという事なら、ふりがなが必要になるぞ。

>五十音順で並べたいという事なら、ふりがなが必要になるぞ。

>五十音順で並べたいという事なら、ふりがなが必要になるぞ。

>五十音順で並べたいという事なら、ふりがなが必要になるぞ。

>>608
いじめない。

漢字で並べ替えると文字コード順になってしまうということだ。
名簿を作るときは、はじめからふりがなを付けなければならない。
それでふりがなを使って並べ替えればOK。

>>608-609
正論ではある（新規に作る場合は当然、ふりがな項目を設ける）が、
前任者の設計がタコな場合、困るよね。（20ユーザー超、データ数
平均10,000件だったりすると・・・）

>>607
Application.GetPhonetic()でフリガナを作成して、その列をキーにソートするといいでしょう。

part3で放置プレイされてたようなので質問します。
WebBrowserコントロールをフォームに貼り付けて使ってるのですが、
フォントの変更はどうやったらできるんでしょうか？
（それらしきプロパティがないのですが…。）
もしくは、フォントの大きさを変更禁止にはできないですか？

ＶＢ６．０でＥＸＣＥＬを起動し印字しています。

Dim oEXCELapp As Object '' Ｅｘｃｅｌオブジェクト
Dim oWorkbook As Object '' ワークシートオブジェクト
Dim sAdd(3) As String '' エクセルファイル

Set oEXCELapp = CreateObject("Excel.Application")
oEXCELapp.DisplayAlerts = False

For i = 0 to 3

Set oWorkbook = oEXCELapp.Workbooks.Open(sAdd(i))
With oEXCELapp.ActiveSheet.PageSetup
略
End With
oEXCELapp.ActiveWindow.SelectedSheets.PrintOut Copies:=1

oEXCELapp.Quit
Set oWorkbook = Nothing

Next i

Set oEXCELapp = Nothing

Exit Sub

上記の処理が終わった後でタスクマネージャを見ると
まだエクセルが起動したままなのですが、
Quit や Set = Nothing 以外にもエクセル終了に必要な
処理があるのでしょうか？
ＯＳはＮＴ４．０です

>>613
詳しくないし検証してないし適当に答える。
まず一つQuitの位置がおかしくないか？
もう一つOpenしたのはCloseしたほうがいいと思うぞ。

これからプログラムを作る場合、.NETを視野にいれて、
Open / Input # / Close などよりも FileSystemObject をつかって
ファイル操作したほうがよさげですか？

a = List1.List(List1.ListIndex)
と
With List1
a = .List(.ListIndex)
End With
一行だけど下の方が早い？

>>616
１行だけだと、差はミリ秒以下。

>>616
ループ回して
timeGettime()で測定せよ
そして報告せよ

なるへそ。
少しでも、みたいな心意気を見せる為。
ありがと。

>>619
ミリ秒削ってこそミューマッハ。
さらにはセナ。

間違え。シューマッハ

やってみた。
50万回回して0.07秒のずれで下が早い。
心意気、ｲｲ！

>>620
ﾜﾗﾀ
ココがF1板だったらアゴはミューマッハで定着するでしょう

激しく板違いｽﾏｿ

　　　　　∧∧　　ミ 　＿　ドスッ
　　　　 (　 　,,)┌─┴┴─┐
　　　　/　　　つ　622＝ｾﾅ│
　　〜′　/´　└─┬┬─┘
　　　∪ ∪　　　　　││　_ε３
　　　　　　　　　　　 ゛゛'゛'゛

>>622
50万回で0.07s!
すなわち140ns短縮に成功！
ｵﾒﾃﾞﾄ

>>622
ループの中でWith・・・・？
それとも、Withをループの外に？

Winsockコントロールを使ってメールソフトを作っているんですが、
なぜかＶＢ上で起動させた時に右上の×ボタンを押しても起動している状態が続くんですけど
推測できる原因はなんでしょうか？
ＶＢの■ボタンを押したら終了したことになるんですが・・・

Winsock1.Close
を実行してもだめ？

>>627
正常終了させてねｗ

ところでＶＣにも詳しい方に質問です
テキストBOXが空欄のtext1.text　と　VBのString型変数の""では
VB上では同じ扱いですがVC（ＡＰＩ）では違いますね？
さて、ＶＢの文字列型変数でこの　空欄のtextプロパティと同等にするには
どんな扱いにしたらいいのでしょうか？
vbNullStringでもないようです

>>625　ループの中でやったよ。

なんとか解決しました。
winsock1.closeでもダメだったんですが、
form2をunloadさせてから終了するとうまくいきました。
でも一度もform2をshowしてなかったんだけど。

>631
Showしなくても、Formのプロパティ等にアクセスがあればLoadされちゃうから注意せよ。

ファイルをごみ箱に移すときにごみ箱に移しますか？のメッセージボックスを出さない方法はないでしょうか？

>>631
OSはNT系？
NT系ならアプリが終了すれば勝手にソケットをクローズしてくれるけど、
9X系だと開きっぱなしなので、次に起動する時支障が出ると思われ

>>633
ごみ箱のプロパティで「削除の確認メッセージを表示」をはずす。
って、これはプログラムじゃねぇ(´Д｀)

VBの表記法で質問
16進は&H 8進は&O
2進はどうやって書けばいい？

>>634
そうだったんですか？今まで知りませんでした。
ちなみにそのチェックをＶＢ上から外したりつけたりすることは可能なのでしょうか？
初心者なので高度な操作が必要なら「おまえには無理」って言ってください。

>>635
レジストリを変更すれば可能だと思う。
レジストリを変更するAPIはあるけど、
どのキーをいじればいいかはわからないなぁ・・・
「レジストリ」｢ごみ箱｣をキーに検索してみてください

初心者なら いろいろやってみるのが吉。
がんばれ

全くの初心者なんだけど、用意するもの、参考にするとよいものを
教えていただけますか？

Visual Basic・・・これ基本
ＶＢの入門書・・・あるといい
（今はネットでも勉強できる）

>>638
どうもです。

>>636
なんとかやってみます。
>>639
自分はＶＢについているヘルプの使用例をフォームに貼り付けて
へろへろとやってます。
あとはネットで必要なキーワードで検索。
それでもわからなかったら２ｃｈで聞いてます。

悩んでいます。
VBの場合、

Dim FN
FN = FreeFile

Open "C:\test.txt" For Output As #FN
Write #FN, "aaaaa"
Close #FN

で、テキストファイルを生成するとおもうのですが、
これと同意でVBScriptで動くにはどうしたらいいでしょうか。

すいません。初心者質問なのですが、
拡張子を変更せずに、リネームする方法を教えてください。

ヒントだけでもいいのでよろしくお願いします。

>>642
リネームするファイルのファイル名を取得する
↓
拡張子を取り出す

で、いいかと

>>643
レスありがとうございます
ファイル名を取得→拡張子を取り出す→リネーム→拡張子を付ける→（ﾟДﾟ）ウマー
ってことでしょうか？難しそうですね。

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

CreateTextFile
で自己解決しました。

>>644
それが難しかったらこれから何もできないぞｗ
"."でInStrRevして、Right$で拡張子抜き出して、
リネームしたいファイル名と結合。

Midの方が簡単

Enterprise EditionやProfessional　Editionなどありますが何が違うんでしょうか？

>>648
違いは買った後の懐のぬくもり具合。
初心者ならどうせ使いこなせないから安いやつで十分。
あ、でもLearning Editionはやめとけよ。アレは罠だから。

pictureボックスに画像読み込んでJpegで保存する方法ソース解説できぼんぬ

>>650
こころの声を聞け。

>>633
Shift＋Delキー

>>650
超有名なDLL使え！

>>632
なるほど、そうだったんですか。
確かにshowしなかったけどアクセスはさせました。
それでかー

>>634
OSはWin98です。
そうですね、form_loadで一応起動ごとにクローズさせてます。

レスありがとう。

自力解決〜
ｓ＝””のままだったのが　まずかった
if len(s)=0 then s=vbNullString
やっぱりvbNullStringでよかった
APIのほうが　お馬鹿な　仕様で
ログインユーザー名と　パスワード・・・もろもろで
ＵＲＬを再構成するInternetCreateUrl（wininet.dll）なんだけど
パスワード空でユーザー名だけ指定すると全部ご破算で　エラー〜
ユーザー名、空の時は　パスワードも空にしてやらないと…って　いう報告でした
できたよ　これで！　Winsock+Wininet 最強カスタムコントロール
（･∀･)　何に使うかって？　ナイショ

>>653
正式には
Connectするんならその時点でまず閉じておく
接続中エラーが出たらもちろん閉じる
もちろんリモート側が閉じたらこちらも閉じる
基本中の基本だ
なぜ自動で閉じる仕様じゃないのかって？
（￣ー￣）ふっ
いろいろあるんだな使い道が…
自動で閉じてるのはお子様仕様…ｗ

>>654
文字列の格納方法がCとVBで違うだけ。

>>646、>>647
レスありがとうございます。
RightとMid使って、無理矢理やりました。

しかし、VBには拡張子を簡単に取得するような関数がないんですね。
拡張子を変えずにリネームってだけで、やたらと難しかった。

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

最近まとれす来ないな。

#果てしなく関係ないのでsage

超初心者的な質問で申し訳ないのですが、プログラムを作る際最初に変数を宣言した後に
すぐにこれから使う変数全てに格納するのと、変数を使う直前に変数を格納するのとでは
実行した時には同じ物が出来るのですか？

実行結果は同じでも、コンパイル結果は違うんじゃない？

統合アーカイバプロジェクトＨＰ（ http://www.csdinc.co.jp/archiver/ ）の情報のなさに愕然としているのですが…
unlha32.dll等のDLLを使いこなしてるページ知りません？
検索しても解凍ソフトの解説ページくらいしかでてこないし、
dllの作者のページにもほとんど情報がなかったので…
# APIなどの情報じゃなく、使用例などです。

>>661
unlha32ならアーカイブに詳しいドキュメントが付いてるけど？

実際にアプリケーションで使うようなコード例もありましたか？
もっかいしらべてみよ…

>>663
ああ、今の若い子ってlha.exe知らないか。
一度ダウンロードすることをおすすめ。よくわかる。

VBにぴったりのぬるい仕様だよ。基本的には。

>>664
そういうDOSプログラムがある、という知識だけはあるのですが（；−；
DLしてみます。
どうもありがとうございました。

>>665
具体的な使い方ならVB de UNLHAとかソース
公開してたりしてて、いろいろあるよ。
解凍だけしたいなら、LHA.EXEも（･∀･)ｲｲ!けど
書庫の中をいぢったりするなら、すんなりとはいかないかも。

教えて下さい。
VC++ から呼べる DLL を VB で作りたいんですけど、
どうしたらいいんですか？

どなたか質問してくださるとありがたいです。
エクスプローラーの様な、多段多階層でツリーを構築していく
プログラムについてです。
　展開させたツリーの最下層から任意に選んだものを、一つに収束させ、
更に下の階層で表示させるのは可能ですか？また可能であれば、
どのようにしたら良いでしょうか？加えて、そのような物を作れるツール
があれば、教えて頂けると幸いです。
禿げしく概出だったらすいません。

>>667
普通にActiveX DLLを作れ。

>>668
書いている内容がよう分からんが、そのようなものを作れる
ツールの一つがVBだ。作るのはお前。頑張れ。

>>668
具体的すぎます。そして、意味不明です。

質問なのですが、クリップボードの中身のTEXTを1行づつ、
変数に入れていく方法、教えてください。
ファイルなら、うまくいくんですが、、

お願いします。

>>671
ClipboardオブジェクトのGetTextメソッド使え。
使い方はヘルプな。
っていうか、クリップボードでヘルプ見ればすぐわからんか？

　　　　　　　　　　阪神ワッショイ！！
　　　　　　＼＼　 阪神ワッショイ！！　／／
　　+　　　+　＼＼　阪神ワッショイ！！／+
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　+
　　　+　　 　⌒*⌒　　⌒＊⌒ 　 ⌒*⌒
　　　　　　（　´∀｀∩（´∀｀∩）（　´∀｀）
　+　　（(　（つ　　　ノ（つ　　丿（つ　　つ 　+
　　　　　　 ヽ　 （　ノ　（　ヽノ　　）　）　）
　　　　　　　（＿）し'　し（＿）　（＿）＿）

>>672
一行ずつって言うのがミソなんじゃない？
とりあえずSplitでデリミタvbCrLfで配列にぶち込め。

>>672
レスありがとうございます。
GetTextメソッドですね。
今からやってみます
ありがとうございました。

　Visual Basic での画像処理について、分かりやすく書かれているページを教えてください。

>>>666
レス遅くなりましたがありがとうございます。
とりあえずLHA.EXE手にいれて、他の人のソースを付き合わせながら調べてます。
OpenArchive系も使わないと上手くできそうにない…

レスくれた方々、thanx！

>>674
レスありがとうございます。
確かに、ファイルならLine input #で何とかなるんですけど、
クリップボードはやっかいですね。

ありがとうございます。いまからSplitでデリミタvbCrLfを調べてやってみます。

>>676
ひとくちに画像処理と言っても、ピンからキリまである。
VBで速度的になんとかなる範囲は限られてるが。

別にVBでなくったっていいじゃん。

>>676

>>679
はい、入ってくるPCMデータをフーリエ変換してそのスペクトラムをリアルタイムに表示したいです。

>>682
VB以前にPCMデータをフーリエ変換する処理を理解することが先だな。
理解したらあとはVBでも他の言語でも実装するだけだ。
そういうプログラムを探してパクって終わりなんて考えてたら甘いよ。

>>682
VBでってのは見たこと無いが、Cならそこらじゅうの
デヂタル画像処理本とかにあるよ。

>>682
スペクトラムの表示程度なら、あんまり画像処理とは言わない。
それより、リアルタイムFFTは、VB向きではないと思う。
精度にもよると思うけど。
まあ、がんばってみるといいよ。

Cでやればいいのに

過去ログの１のリンクが切れてます。
あたらしいリンクをおしえてください

http://piza.2ch.net/tech/kako/
こっから探せる。

■■■VB初心者質問スレ■■■
http://piza.2ch.net/tech/kako/968/968328471.html

フォームにボタンを一つ貼り付けて終了するときに確認のメッセージボックスを出すようにしました。
ところがボタンでの終了のときに“はい”を選ぶと二度メッセージボックスが表示されます。どこが間違っているのでしょうか？
メニュー項目の終了からやろうとしているのですが、これも同じことになります。

Option Explicit

Private Sub Command1_Click()
　　Call Form_Unload(True)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim RtnMsg As Integer
　　RtnMsg = MsgBox("終了しますか？", vbYesNo)
　　'はい・・・終了
　　If RtnMsg = vbYes Then
　　　　Unload Me
　　'いいえ・・・キャンセル
　　ElseIf RtnMsg = vbNo Then
　　　　Cancel = True
　　End If
End Sub

>>689
それまさに再帰コール。
Unload Me＝終了ではなく、Unloadプロシージャを実行すること。

>>689

その程度の間違いは、ほぼ誰でも通る道のような気がする。（天才的な人を除く）
俺も、同一じゃないけど、似たようなことをやった記憶があるし・・・。

理屈どうこうよりも、何が正しい書き方で、何がヘンな書き方（または、危ない書き方）
なのか、自分でいろいろ試して、身体で憶えてしまった方が早いと言えなくもない。

>>674
ありがとうございます。うまくいきました。
これは便利な関数ですね。

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

SplitがないOffice98のVBAは糞。

>>689
Unload Me ---> End でいいんだべ？

>>690

厳密には、再帰とはビミョーに違うような気がする。
Call Form_Unload(True)
なら再帰だけど。

>>695
再はともかく帰しないな。

質問お願いしたいのですが、

標準モジュールからform1のプロシージャを使いたいのですが、
標準モジュールに
Form1.mnuEditPaste_Click
と書いてもうまくいきません。
どのように書けばいいのでしょうか？
よろしくお願いします。

>>697
そういうときは、プロシージャの宣言を
Public Sub mnuEditPaste_Click()
~~~~~~
にして標準モジュールから Call mnuEditPaste_Click
でいいんじゃない？

VBはクソ

>>699
暗黙の定理です。

>>698
レスありがとうございます。
おそらくうまくいきました。

けど、また違うところでこけてしまった、、、

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

Microsoft　Visual　Basic6.0のインストール方法を教えてください。
ちなみに途中でインストールを止めてしまったことがあり今のパソコンでは
インストーラーが自動的にたちあがりません。
また、CDロムは一枚だけでいいんでしょうか？
すいませんが、よろしくおねがいします。

>>702
1. アンインストールできるようであれば、アンインストールする。
2. アンインストール後、インストール先ディレクトリが残っているようであればそれを削除

したことないんで、上手く行くかどうかは不明。責任もちませんです。

OSから再インストールが最強だね（ｗ

アンインストールできません。です。
CDロムは一枚でよいのでしょうか？

>>704
CDの中のSetup.exeを実行すれ。

>CDロムは一枚でよいのでしょうか？
そこはかとなく意味不明。

どこのディレクトリのsetup.exeをたちあげればいいのでしょうか？
ルートのsetup.exeはMSDNのインストールとかがでてきます。
MSDNって何？絶対必要？

お前それVBのディスクじゃなくてMSDNのディスクちゃうんかと小一時間問いつめたい。

>>706
いらんなら入れんでいいが、ヘルプが見れない。PGとして致命的。

#普通に購入したのならMSDNはついてくるはずなんだが。(VS6.0では)

MSDNの最新版ってどこでGETできるのでしょうか？

みんなNHK教育を見よう。
スクイーク（SmallTalkの発展型）の話してる。
オブジェクト指向の勉強になるぞ。

基本的な質問ですがモジュール間の配列の
受け渡しは出来ないのでしょうか？

>>694
下手にEndで終わらせるのはよくないぞ

>>699
じゃあ、なんでそのクソ言語がこれだけ使われてるんだ？

>>709
買え。だが、2002/01版は、VS6で使えないので注意しろ

>>711
できる。バージョンによってはできなかったかもしれん

>>689
Command1で書くべき命令はUnload Me

終了しますかのメッセージはQueryUnloadイベントでやった方がいい。

UnloadイベントおよびQueryUnloadイベントでUnload Meは必要ない。
キャンセルするときにはCancel=True。キャンセルしないときは
そのまま(Cancel=False)になっていればいい。

Endはやめとけ。

みなさん、ありがとうございました。今やったらできました。
うまく動きました。これでいいんですよね？
昨日は夜中これと格闘していました。なんか本当に頭こんがらがってきてしまった。

Option Explicit

Private Sub Command1_Click()
　　Unload Me
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim RtnMsg As Integer
　　RtnMsg = MsgBox("終了しますか？", vbYesNo)
　　If RtnMsg = vbYes Then
　　　　Cancel = False
　　ElseIf RtnMsg = vbNo Then
　　　　Cancel = True
　　End If
End Sub

おお　まとれす復活（´∀｀　）

それはいいとして
>>709
ＭＳＤＮは加入するとＣＤ送ってくる
タダではない
Ｓｔｕｄｉｏ買った者には１年間無料でＣＤ送付である（英語＋日本語版両方）
そのあとは有料
加入にもレベルがあって
ＯＳ込みのものもある
ただし、ふつうの最低レベルのものはＭＳＤＮサイトで一般公開しているものだ
まあインストールできるぶんだけ使い勝手は違う
おっと　まとれすも言われてるように
ＭＳＤＮＨＥＬＰは新しくなっている
よりブラウザ風である
ＸＰ対応スペックないと重いかも知れない（´Д｀；）
まあ使えることは使える
使えないという意味は　今までのＭＳＤＮＨＥＬＰとは互換性がない
内容は相変わらずだｗ
日本語版が”糞”というのは普遍である（´∀｀　）

関係ないんだけどOfficeXPとMSDN2002/01のスタイルが大ッ嫌い。
なんでわざわざフラットにするのかね。遅いし。VS6じゃ使えんし。くそ。

ラベルコントロールに表示した文字に、境界線を付けて表示する事ってできないんでしょうか。
境界線は、あくまで文字の境界線で、（いわゆる縁取りって奴です）オブジェクトの境界線ではないのですが・・・。

MSDNみても、オブジェクトの境界線についてしか書いてないし、調べても出てこないのですが。

VB6.0なのですけど
印刷データ（外部ファイル）をVBで読み込んで
印刷用アプリにAPIで読み込んだデータ引き渡そうとしていたのですが
VBでSTRING型変数読み込んだ時点でUNICODE変換されて
外字データが壊れると言う現象が発生してしまいました

BYTE型の変数に格納しても、そのままでは化けたままなので
使えません
このファイルを読み込んで、データを壊さず(UNICODEに変換されず)
そのままDLLの関数に引き渡す方法はないのでしょうか？

データベースを初めてやってmdbファイルでメール管理しようとしたら
レコードの各フィールドには文字数の上限があるのをしらずに最後までつくちゃった。
いたたた

>>☆
そのVB、買ったのか？

>>715
気にかけてくれる人がいる、ってのはうれしいもんだ。ありがとう

>>716
遅いかどうかはあまり気にならないが、目次ツリーを取得するツールが動かなく
なったのが痛いぞ

>>717
AutoSizeプロパティをTrueにして、コントロールの境界線を表示、ぐらいしか
できないな。あとは、自分で描画するしかない

>>718
バイト配列に読み込んで、バイト配列のままAPIに渡す。「化けたまま」ってのが
よくわからんが

>>719
ロングバイナリとかでどうだ？ もしくは、キーだけ格納して、大きくなるところは
別ファイルにするとかな

MP3のﾀｸﾞ情報っていうんでしょうか、ｱｰﾃｨｽﾄ名とか曲名とかの情報は
VBで取得したり、書き換えたり出来ませんでしょうか。

>>722
出来るよ。やり方は知らんけど。

>>722
自力でもできるけど、
VBMP3.dll使わせてもらえば楽チン。

文字列の反転表示ってどうするんだっけ？

>>725
API叩いてね。

>726
何のAPIだっけ？

>>727
それくらい調べてね。

>>728
なんだコイツ

>>729
http://www.google.co.jp/search?hl=ja&q=vb+%95%B6%8E%9A%97%F1+%94%BD%93%5D&lr=

>>725
Text1.SelStart = ○
Text1.SelLength = ○
Text1.SetFocus
じゃダメ？

>>731
ああ、そうか、ごめん。俺の説明不足。
テキストボックスじゃなく、TextOutでのXOR処理のこと。

一応BitBltのSRCINVERTとTextOutと別バッファで今自己解決したけど、
もっとスマートな方法があるはずだと思う。

#ごめんね。

>>717
縁取りではないが、ラベルコントロールを２枚重ねれば影付き表示ができる。
前面のラベルは縁なし、背景透過でな。

そうじゃなく文字の周り全部に縁をつけたいなら、
PrintメソッドでPictureBoxなりFormなりに自前描画。

Public Sub PrintEx(ByRef obj As Object, _
ByVal sText As String, _
Optional ByVal mForeColor As OLE_COLOR, _
Optional ByVal X As Single, _
Optional ByVal Y As Single, _
Optional ByVal mBackColor As OLE_COLOR, _
Optional ByVal Huti As Single = 1)

Dim i As Single
Dim j As Single
Dim tmpForeColor As OLE_COLOR

tmpForeColor = obj.ForeColor

obj.ForeColor = mBackColor

For i = -Huti To Huti 'Step Huti
For j = -Huti To Huti 'Step Huti
obj.CurrentX = X + i
obj.CurrentY = Y + j
obj.Print sText
Next
Next

obj.ForeColor = mForeColor

obj.CurrentX = X
obj.CurrentY = Y
obj.Print sText

obj.ForeColor = tmpForeColor
End Sub

VBAのlistboxの操作をいろいろしたいのですが、
Columnの使い方を教えて下さい｡

ヘルプを見てください

いや、マジで質問のレベル低いぞ。

すみません。listboxに入っているある位置のデータを
別のlistboixの指定した位置にｺﾋﾟｰしたいのですが
やり方を教えて下さい。

考えてください

>>738
そりゃひどいぞ

>>737
自分の使うコントロールのプロパティとメソッドくらい把握してください。

適当だけど
List2.AddItem List1.ItemData(Index1), Index2
こんな感じでよし。

VBAでJANｺｰﾄﾞ別の売上金額を集計して更に
店舗別に商品ごとの売上集計をするものを作って
いるのですがlistboxのところでつまづいているので
わかるかた教えて下さい。

すっごく間違えた。
ItemDataぢゃなくてListね。
List2.AddItem List1.List(Index1), Index2
ﾌﾟﾌﾟﾌﾟ

>nosu
質問の仕方が悪い。
現在どうなってて何をしたいのかが見えづらい。
MSDNのヘルプ見ればわかることばかりだ。

バイナリファイルの扱いについて質問です。
バイナリの入出力ってPut/Getを使うしかないですか？
２つのファイルを結合して１つのファイルを作ったり、その逆（分割）をしたいのですが。
VC++でDLL作って利用、みたいなことがネットに乗ってましたけど、もってないっす…

>>745
fopen

>>745
CreateFile あたりを調べてみるとよいのでは．．．

>>745
http://zero-city.com/fcs/vb.html
ここらへんは？

>>745
それもGetPutで出来るよ。

厨房質問で恐縮ですがコンボボックスのテキストに
フォーカスをTrueにしたいのですがどうしたらよいのでしょうか？
Defaultじゃ無理でした。

>>745
VB4.0の頃、PutとGetで作ったよ。
んなむつかしいもんじゃないよ

setfocus

>>751
VB4もUnicodeだっけ？

>>750
コンボボックスの特定の行を選択状態にしたいってこと？
フォーカスをTrueに出来るのはコントロールだけだよ。

>>753
どーゆー意味だ？
Unicodeに対応しているかってことか？

>>755
Unicode変換さえなければ、文字列変数がそのまま使えて楽ってこと。

>>756
まあ、ファイルの分割/連結ぐらいなら、素直に Byte 型使うんじゃない
かと...。

>>757
まあ、そうなんだけど。
大きなファイルだと遅くなるから、CのDLL使うわけで。

レスしてくれた方々ありがとうございました。
数メガ単位のファイルを結合するのでやたら遅い気がして…（実装が悪いのか）
あ、別に怪しいソフトを作ってるわけじゃないですよｗ

>>759
ファイル処理はどの言語でやっても早さは大して変わらん。
HDDの速度のほうがずっと遅いから。

どうしても早くしたいならキャッシュを使ったりするんだけど、そこでなら
VC++の方が少しは早くできるかな。でも大して変わらんだろうな。
OSにもキャッシュ機能付いてるから時間の無駄か。

フレキシブルグリッドの複数選択したセルをドラッグアンドドロップ処理ってできますか？
私はいろいろやったけどできませんでした。
やったことあるって人やこうすりゃできるって思った人、教えてくれませんか？

>>759
ファイルマッピングをすれば多少は早くなるかもとか言ってみるテスト。

こっちが最新スレだよage

あるフォームと、あるフォームの辺をくっつけて、
どちらかを移動させると、２つのフォームが同時に
移動していくみたいな良い方法知りません？

>>764
WM_MOVINGを処理して、移動処理を書くしかないな

＃どうも、うちのプロバイダから書き込みができなくなったようだ。そのうち来れなくなるかもしれん

>>764
Timer使って監視する方法が初心者向け。

これが初心者質問スレか…
レベル高いな…

あの、ドラッグするとコントロールの大きさの線が出ますよね？
あれって消したりできるんですか？

モニターの電源ボタンを押せば消えます

>>765
串使ってもダメ？
スレ盛り上げ最大功労者の１人なのに。

>>764

>>765のまとれす氏のが正解。（実際、やったことあり）

でも、サブクラス化は、正直、かなり危険。

>>767
中級者質問スレが無いせいもある。
出来たとしても廃れるのが確実だということもある。

VBプログラマーの実務ではどういうものが一番需要があるのですか？
ネットワークですか？データベースですか？
私はグラフィック関係（サークルやラインなど）がかなり苦手なのですが,
これはちょっとやバめですか？

>>767
そうだな。正直中級以上の質問も多いと思う。だが、初心者には、自分の質問のレベルが
どの程度かわからんだろう

>>768
普通はコントロールに任せてるから、自分で描画するのは大変だと思うぞ

>>770
今は、批判要望非難板で紹介されてた串を使ってる、しかし、いつ使えなくなるのかわからん

>>771
確かに、サブクラス化は危険が伴う。ウィンドウメッセージについてきちんと理解していないと
難しいし、デバッグもしづらいからな。しかし、VBでできないことをやりたいなら、理解しておいた
法がいいな

>>773
結局、その会社によるわけだが、俺の経験上データベースに接続するフロントエンド、
ってのが一番多いと思うぞ。データベースは、Accessに始まって、SQL Server、Oracle
あたりが多いな

ネットワークは、今のインターネット時代にあわせて、ちょこちょこ接続するとか、メールを
送るとかいった機能が求められることがある

グラフィック関係は俺も苦手なんだが、実のところ、仕事では一度も使ったことがない。
大体、画像表示とかで済んでしまうしな

この辺を考慮すると、VBで開発する上でVB以外で役立つ知識としては、

　1. データベース（SQL）
　2. C（APIやったり、DLL作ったり）
　3. ネットワーク（HTTP、FTP、SMTPとかの基本な）
　4. その他

って感じじゃねーか

VBでメモリークリーナーをつくりたいんですけど

Dim AAA() as Byte

Redim AAA(開放するメモリ量)
Erase AAA

が、VBの限界ですか？

>>776
(ﾟДﾟ)ﾊｧ?

>>777
確かにｗ

>773
VBメインな会社ならほぼ間違いなく業務システムを手がけているはず。
だから、やっぱデータベースでしょ。
VB(VBA)+SQLはセットと思っておいた方がいいと思う。

>777
>778
何かおかしいですか？
一応空きメモリは増えてるみたいですけど･･･

>>780
気のせい

>>776
そんなんシェアで公開するなよ。
どっかの馬鹿シェア作家みたいになるぞ。

GlobalMemoryStatusで処理の前後の値を見比べて
値が増えていても気のせいだと？

>>776
あなたの限界。つーか仕組み分かってる？

>784
いやよく解ってないから質問したんだけど、
GlobalAllocとGlobalLockでメモリブロックの先頭アドレスとって
0で埋めれば良いのでは？

>>785
VBでもAPIは使えるよ。

>>785
とりあえずメモリの解放と掃除するっていう意味を調べてからもどってらっしゃい。
ttp://hp.vector.co.jp/authors/VA017832/mclean/doc/faq_answer02.html#q63

>786
APIを使うとこまではいったんですけど、
メモリブロックの先頭アドレスを取ってからが…
ポインタが使えないのでAPIでやるのはあきらめたんですが…

>787
見てきました。サンクス。
いたずらに大きな変数を作ってもダメって事ですか、
VBでは無理なんですか？

>>788
varptrでポインタ
ByvalでなげればPcharと同じ動き
配列のアドレスはarr(0)で投げる

いったいなんの意味があるんだよ。ばかじゃねーの

>789
悪戦苦闘中です。varptrは変数のポインタを取るんじゃ…
やっぱりCで組まないとダメですかねぇ…

VBから使える素敵なフリーのエディタコンポーネントってないですか？
標準のTextBoxは64K（32K?）の編集容量制限があるし、
RichTextBoxはバグ満載だったりNT,2K,XPで不具合があったりと問題が多いみたいなので。

近い将来MSがVBから手を引くという噂は本当ですか？

>>792
あきらｍ（以下略

こんばんわ　すごく単純なことかも知れませんが
Userformを作成した時に　必ず出てきてしまう　
終了ボタン（右上の×マーク）を無効にする方法ってありませんでしょうか？？
又は、表示させないとか　押された時の処理をする　Sub　の作り方等々
インターネットで検索しても”これだ”という回答が見つかりません。

>>774
そっか、自分で描画するのは大変なのか・・・
あきらめようかなぁ。

unloadのcancelをtrueに

>>795
なんで、クローズボックス無効にしたいのか良くわからないんだけど...。
その手のボタン (=最大化、最小化、閉じる と システムメニュー) を全部無効
にするなら...

Option Explicit

Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal uFlags As Long) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Private Const HWND_TOP As Long = 0
Private Const SWP_NOSIZE As Long = &H1
Private Const SWP_NOMOVE As Long = &H2
Private Const SWP_NOZORDER As Long = &H4
Private Const SWP_FRAMECHANGED As Long = &H20

Private Const SW_SHOW As Long = 5

Private Const GWL_STYLE As Long = -16
Private Const WS_SYSMENU As Long = &H80000

Private Sub Form_Load()
　　Dim WindowStyle As Long
　　Const ChangeBit As Long = WS_SYSMENU

　　Call SetWindowLong(Me.hWnd, GWL_STYLE,_
　　　　GetWindowLong(Me.hWnd, GWL_STYLE) And Not WS_SYSMENU)
Call SetWindowPos(Me.hWnd, HWND_TOP, 0, 0, 0, 0,_
　　　　SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOZORDER Or SWP_FRAMECHANGED)
Call ShowWindow(Me.hWnd, SW_SHOW)
End Sub

でできるよ。(お約束だけど、エラーチェックしてないからね。)

単に、終了させたくないだけなら >>797 の方が安全で確実。

>>797,798
ありがとうございます。
ACCESSのＤＢ使っているんですが、クローズボックスで終わらされると
ＤＢクローズのステップを踏まないので終わってしまうんです。
ちと組み方が間違えている感じがするのですが　よく判らないので
だったら、クリックできないようにしてしまえ　と考えたのです。
やってみます。

>>799
DB クローズ処理ってどこに書いてます ? Form.Unlaod, Form.QueryUnload
もしくは Form.Terminate に書いてあれば、クローズボックスで終了された時も
実行されるはずだけど...。個人的には、>>798 みたいなやり方は、どうしても
それが必要な時に限るべきだと思う。

>>800
普通の　sub　の中で書いています。

rs1.close
rs2.close
unload userform1
unload userform2

という感じです。
いままで、ＤＢ使ったことなかったので　終わったら終わったでかまわなかった
ですが、
ありがとうございました。

>>795
http://www.gwork.com/magazine/issue/vb0008.htm
僕はこれ使ってます。
いや、つーか>>797さんの方法と同じなんだろうけど。
とりあえず・・・ね。

VBで作ったプログラムをコンパイルしてexeファイルを作ったところ、約170KBになりました。
これをもっと小さくする方法ってありますか？