VBプログラマ質問スレ(6.0以前) Part39
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルト
NGNG質問者は使用しているOS、VBのバージョン、サービスパック
何がしたくでどうしたけどどう困っているのかを明確に書きましょう。
○関連スレッド
VB.NETは別物なので、基本的に質問はこちらへ
VB.NET質問ｽﾚ (Part7)
http://pc5.2ch.net/test/read.cgi/tech/1096683017/l50
API関連の質問はこちらへ
Win32API質問箱 Build24
http://pc5.2ch.net/test/read.cgi/tech/1098967135/l50
MSDN Online Japan ホーム
http://www.microsoft.com/japan/msdn/default.asp
Visual Studio 6.0 Service Pack 6 正式リリース
http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx
http://www.google.co.jp/
※「まず自分で調べる」を身につけよう。
心得
一．質問する前に過去ログにも目を通してみる。
二．質問する前に MSDN などで調べてみる。
三．VBScript もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。
五．荒らしは相手しない。
六. VB情報募集中。
七．VB.NETの話題できるだけひかえる。
前スレ Part39 http://pc5.2ch.net/test/read.cgi/tech/1099737063/
0153デフォルトの名無しさん
NGNGいやだ
0154デフォルトの名無しさん
NGNGそんな面倒くさい事しなくても
sh1.Rows("1:5").Copy Destination:=sh2.Range("A1")
という一文でコピーできるよ。
0155デフォルトの名無しさん
NGNGおおサンクスです。
>>153悔しい？ｗ
0156デフォルトの名無しさん
NGNG0157デフォルトの名無しさん
NGNGクライアントにダウンロードさせたところ、PCの再起動がかかってしまいました
これを防止するようなはできないでしょうか？
環境は
VB 6.0 SP6
です
0158デフォルトの名無しさん
NGNGえすぱーじゃないんだから、それ聞いて何がわかるって思ってるんだ？
回答が欲しいならもう少し状況をきちんと説明しないとダメだろ。
まあ、とりあえず間違ってリセットボタン押したり、電源ボタン押したり、コンセント抜いてませんか？
0159デフォルトの名無しさん
NGNGたとえば構造体aをキーに指定とかcを指定にするといった具合です
typedef zzz
a as long
b as string
c as long
d as string
end type
Dim ppp(1000) as zzz
0160デフォルトの名無しさん
NGNGない。
0161159
NGNGもしかしたらと思ってお聞きしましたが無理ですね
レスありがとうございました
0162159
NGNG設定ファイルにtext.iniを使用していますがEXE自身に設定（記憶）させる
ことはできますでしょうか？
レジストリは使用したくないのですがこのようなことは可能でしょうか？
0163デフォルトの名無しさん
NGNGEXE自体を書き換えるのは、昔そういうソフトがあったけど・・・という程度。リスキーで高度です。
レジストリを汚したくない感覚、制約などは理解できるが、MSが推奨してるんだから従うのが吉。
そうじゃなければEXEと同一フォルダだけを汚すという制限で現状のINIで十分でしょ。
0164159
NGNG＞現状のINIで十分でしょ。
了解です、レスありがとうございました。
0165デフォルトの名無しさん
NGNG0166Orator
NGNGhttp://www.microsoft.com/japan/msdn/library/ja/jpdnw2k/htm/ntfs2000.asp
サンプルとしては、こんな感じ。(要NTFS。FAT32では不可)
Private FSO As Object
Private Path As String
Private Sub Form_Load()
Set FSO = CreateObject("Scripting.FileSystemObject")
Path = FSO.BuildPath(App.Path, App.EXEName) & ":MyData" '自分自身のフルパス + ":" + 任意の名前
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set FSO = Nothing
End Sub
Private Sub Command1_Click() '保存
Const ForWriting As Long = 2&
With FSO.OpenTextFile(Path, ForWriting, True)
.Write Text1.Text
.Close
End With
End Sub
Private Sub Command2_Click() '読込
Const ForReading As Long = 1&
With FSO.OpenTextFile(Path, ForReading, True)
If .AtEndOfStream Then
Text1.Text = ""
Else
Text1.Text = .ReadAll()
End If
.Close
End With
End Sub
0167デフォルトの名無しさん
NGNG偽装目的なら（偽装自体に合理性があるかどうかも興味があるが）
別に自分自身じゃなくてもダミーの.exeでもなんでも用意すりゃいいんだし
ユーザーの改変を避けたい（ただの意地悪じゃねえかこれ？）ってことなら
暗号化でもした方がよほど簡単かつ適切だと思うけど。
そこに山があるから、ってこと？
なら他にもっとチャレンジングかつ有意義な「山」がいくらでもあると思うが。
0168デフォルトの名無しさん
NGNG0169デフォルトの名無しさん
NGNG梅子に聞け。
0170デフォルトの名無しさん
NGNGタグ内の文字列を取得するとき、改行が含まれていると、取得できません。
検索キー <hoge>(.*)</hoge>
<hoge>ogeoge</hoge> の時は取得できる。
<hoge>oge
oge</hoge> こういうときは駄目。
MultiLine を Trueにしているのですが…判る人いますか。
VB6.0 SP5でVBscript5.5をつかってます。
0171デフォルトの名無しさん
NGNGMultiLineは全然関係ない。
たいていの場合、改行コードを全削除してから検索してると思う。
0172デフォルトの名無しさん
NGNG平然とウソをつくなよ。「たいてい」の範囲を明確にしろ。
かなり狭いだろ。
0173デフォルトの名無しさん
NGNGウソだという反証を示せばすむ話だ。
0174デフォルトの名無しさん
NGNG0175デフォルトの名無しさん
NGNGだから何？
0176デフォルトの名無しさん
NGNGその前に君の示す証拠はどれ？
0177>>170
NGNG汎用性を持たせて作りたかったんだけど、良くわからなかったので、決め打ちで検索するようにしました。
ありがとうございます。
0178デフォルトの名無しさん
NGNG・VB6.0で、音声通話
を実現したいと思っています。
DirectPlayVoice等も選択肢にはあるのですが、出来れば、
・既存ソフトをコマンドラインから制御
・ActiveXコントロールを貼り付けるだけでOK
程度で実現できるフリーのものが良いのですが、そういったものはありますでしょうか？
0179デフォルトの名無しさん
NGNGクリック以外のメッセージを拾うには
サブクラス化とかそういう手段しかないのでしょうか？
フォーカスを失った時にちょっとゴニョゴニョやりたいのですが。
0180デフォルトの名無しさん
NGNGフォルダを開くダイアログを表示させたいです。
※『ファイルを開く』ではないです
VB５を使用しています。お願いいたします。
0181デフォルトの名無しさん
NGNGSHBrowseForFolderでググればサンプルが山ほど見つかるよ。
0182デフォルトの名無しさん
NGNGありがとうございました。
0183デフォルトの名無しさん
NGNG0184デフォルトの名無しさん
NGNGVBVer. VB6.30 SP6
始めまして、うまく作れない処理がありましてご質問に参りました。
現在ActiveXEXEと標準EXEの組み合わせでクライアント･サーバシステムを開発しております。
1つのActiveXEXEを常駐させ、他の標準EXEからそのクラスをインスタンスし使用する、と云うものなのですが、
実際に動かすと標準EXEでインスタンスする度にプロセス上に新しいActiveXEXEが立ち上がり、
ActiveXEXE内標準モジュールのグローバル変数見ようとすると、当然ながらそれぞれが全く同期が取れておりません。
"標準モジュール"･"共有"･"ActiveX"･"常駐"と云ったキーワードで検索してみたのですが、
解決法を見つける事は出来ませんでした。
どのようにすれば上記の不具合を解消出来ますでしょうか。
宜しくお願い致します。
0185デフォルトの名無しさん
NGNG0186デフォルトの名無しさん
NGNGすみません、書き方が悪かったです。
求める仕様を実現出来ていない、ですね。
0187デフォルトの名無しさん
NGNG0188デフォルトの名無しさん
NGNGてっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっ
っっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっ
0189デフォルトの名無しさん
NGNGきとうなアドバイスですなー
0190デフォルトの名無しさん
NGNGどうして？
0191デフォルトの名無しさん
NGNGどうして？
0192デフォルトの名無しさん
NGNG質問者のレベルからして、「色々」をより具体的に書いて
あげないとダメそうだから。
0193デフォルトの名無しさん
NGNG不具合だよな。
0194デフォルトの名無しさん
NGNG不具合かどうかを判断するためには何か判断基準があるはず。
君の考えを聞かせてほしい。
0195デフォルトの名無しさん
NGNG質問者のレベルを判断するたねには何か判断基準があるはず。
何故君はてきとうだと判断したのか聞かせてほしい。
0196デフォルトの名無しさん
NGNG0197デフォルトの名無しさん
NGNGそうつっかかるなよ。マジで気に障っちゃったの？ごめんね。
0198デフォルトの名無しさん
NGNG君は誰でどれに対してレスしてるの？
0199デフォルトの名無しさん
NGNGお前は誰だよ
0200184
NGNG不具合と云う云い方は悪いです。
単純にそう作れない私が悪いだけです。
0201デフォルトの名無しさん
NGNG全然悪くねーよ。君が作りたい仕様に対して正しくないのだから
立派な不具合だよ。もし不具合という言い方が悪いと本気で
思っているならそっちを改めるべきだ。
0202デフォルトの名無しさん
NGNGソフトウェアの不具合だろ。それも分からずに書いた
>185が基地外なだけ。
0203デフォルトの名無しさん
NGNG0204デフォルトの名無しさん
NGNG私の中で不具合ってWinとかVBに元からある問題みたいなイメージがあるのですよね。
何はともあれ了解しました。
それで、どなたかヘルプを……
0205デフォルトの名無しさん
NGNGMutexじゃダメだったのか？
0206デフォルトの名無しさん
NGNG0207デフォルトの名無しさん
NGNGVB6.0で右クリックのメニューを表示する場合
PopupMenu mnuFile
等すれば良いのは分かったのですが、この、mnuFileの部分は、
できれば、mnuFileの部分を動的に作成したいのですが
メニューエディタで作成しなければならないのでしょうか？
0208デフォルトの名無しさん
NGNGttp://www1.harenet.ne.jp/cgi-bin/cgiwrap/unaap/lib/smp.cgi?c1=2&c2=2&function=CreatePopupMenu
のようなモノになるんじゃない？
俺は中身見てないけどな！！！
0209デフォルトの名無しさん
NGNGヘルプにもありませんよね。
VB6でMutexって少ないんですか?
0210デフォルトの名無しさん
NGNGやっぱりサブクラス化しかないですか(´･ω･｀)ｶﾞﾝﾊﾞｯﾃﾐﾏﾂ
情報どもどもなのでした。
0211デフォルトの名無しさん
NGNGそもそものMutexに関してはSDKのヘルプ読んだ？
0212デフォルトの名無しさん
NGNGCreateMutexって云うAPIだったんですね。
頑張ってみます。
0213デフォルトの名無しさん
NGNG予め実行しておいたActiveXEXEのクラスを使ってオブジェクトをインスタンスしたいのですが、
起動する標準EXEはそれを全く使用せずに別のActiveXEXEを開いていってしまいます。
プロパティを弄っているのですが、一向にうまくいきません。
こう云う場合、どのような箇所が何が問題なのでしょうか。
0214デフォルトの名無しさん
NGNGActiveXEXEのレジストの問題じゃないのか？
インストールか手動かしらんが、その動作環境でEXEが参照してるActiveXEXEがそっちを向いてる。
0215超初心者
NGNG要は、途中でStringに変えたいんですがどうすれば？？
0216デフォルトの名無しさん
NGNGおぃ！こら！何がしたいんだ！こら！
まあ、APIにNULLを渡したいなら、数値０を渡す。
DBにNULL値突っ込みたいなら、SQL文でNULLを渡す。連結コントロールの場合は使わないから知らない。
0217超初心者
NGNGテキストボックスに年を入力させて
それをテキストファイルに書き出すんですが
空欄の場合ＮＵＬＬを書き出したいんです。
それで、年に数字以外の入力された場合エラーにするために
IsNumeric使うんで、Integerで宣言してるんです。
0218デフォルトの名無しさん
NGNGえーと、TextファイルにおけるEOFについて一般常識を勉強されたほうが・・・。
0219デフォルトの名無しさん
NGNGInteger型は整数（-32,768〜32,767）しか入らない。
なので必要時に、普通にString型の変数へ入れ替えればいいよ。
流れ的には↓
―――――――――――――――――――――――――――
もしInteger型変数の内容が1未満だったら、
String型変数に、NULLを入れる
それ以外なら
String型変数に、Integer型変数の内容をそのまま入れる
―――――――――――――――――――――――――――
↑こんな感じ。
0220超初心者
NGNG0221超初心者
NGNGテキストボックスに、整数以外を入力
されないようにしたいのですがそうすれば？
0222デフォルトの名無しさん
NGNG吐いた日本語飲み込むなよこら！
で、KeyPressでやれば。
あと落ち着いて書け。それは初心者とか関係ない。
0223170
NGNG荒れる原因を作ってしまってすみません&どうもありがとうございました。
0224デフォルトの名無しさん
NGNG0225デフォルトの名無しさん
NGNG質問スレなんだから、そう書くならリンク出すなり、簡単に書くなりしろよ。
0226デフォルトの名無しさん
NGNGフォームプロパティのStartUpPositionをウィンドウズの規定値にすると
最小化の状態で起動することがありますが、これはどうしてですか？
すべてのプログラムがそうなるのではなく、
Shell関数から起動する
StartUpPositionを3にする
という条件でときどきおこります。
同じようなことがあった方がいましたらアドバイスお願いします
0227超初心者
NGNG0228２２６
NGNG個別でPGを起動すると画面のどこかに表示されます
ですがShell関数から起動するとある特定のPGだけ
最小化の状態で必ず出てきます ただのバグでしょうか///////
0229デフォルトの名無しさん
NGNG質問なのですが、テキストボックスに表示された文字列の中から
指定した行数番目の文字列を表示させたいのですが、どなたか
ご存知でしたら教えてくださいませ。。。
0230デフォルトの名無しさん
NGNGSplitで一旦配列に読み込んで、
後はゴニョゴニョと。
0231デフォルトの名無しさん
NGNG0232デフォルトの名無しさん
NGNGコピペまでブロックするとなると
Changeイベントで蹴飛ばすしかないな。
0233デフォルトの名無しさん
NGNGイベントで止めようとしても、キーの連打で上手い事通ったりするから注意だね。
業務でやった時はみんなKeyPressとかKeyDownとかKeyUpとかChangeとか組み合わせて絡み合わせてやってたよ。
0234デフォルトの名無しさん
NGNG自前でコードを書いてもいいんだけど、ActiveXコントロールを使ったほうが
楽だし完成度が高い。
業務ではInputManを使われることが多いと思うけど、個人で使うには高い。
VB6のﾌﾟﾛﾌｪｯｼｮﾅﾙやｴﾝﾀｰﾌﾟﾗｲｽﾞならマスクエディットコントロールが付いてるから
お試しあれ。
0235デフォルトの名無しさん
NGNG解雇していい？
0236デフォルトの名無しさん
NGNG君に次にね。
0237デフォルトの名無しさん
NGNG君に次にだって。
0238デフォルトの名無しさん
NGNGどのようにすればよいんでしょうか？
0239デフォルトの名無しさん
NGNGにくちゃんにあるよ。
Part31:
ttp://makimo.to/2ch/pc2_tech/1073/1073732636.html
Part32:
ttp://makimo.to/2ch/pc5_tech/1077/1077216109.html
# JavaScriptをONにして、表示されるまでマターリ待つべし。
0241デフォルトの名無しさん
NGNGまじありがとうございますっ！
目的のもの見つかりました（つд｀)
0242デフォルトの名無しさん
NGNGクリスタルレポートで帳票を出力したいのですが
制御はＶＢ側で行いたいのです。(クリスタルレポートは項目を配置するだけ)
クリレポの項目にデータをセットすることは
出来たのですが改ページのコマンドが分かりません。
どなたか分かる方いませんか？
0243困った
NGNGＶＢ６で、フォーム上のコントロールをドラッグして、位置を変えたいのです。
コントロールが１つのときは、ｘｘｘ.drag でうまくいくのですが、複数のとき
どうしてもうまくいきません。なにかいい案、願いします。
0244デフォルトの名無しさん
NGNGまず、製品版かVBオマケ版か書く。
で、改ページはグループ毎にとかの指定しか出来ないと思った。
なんで、隠しでもいいからグループ化して、そこに適当なデータをいれて制御。
>>243
掴んだら、対象コントロールと別に枠だけのPictureなんかで移動を表現。
マウス移動にあわせてその枠を移動して、離したら移動用枠を消して、掴まれたはずのコントロールをそこに出す。
つまり、各コントロール自体を移動するのではなく、それっぽくみせるだけ。
0245デフォルトの名無しさん
NGNG後半のアドバイスはちょっと意味不明。まあ質問者の質問の仕方も悪いが。
>>243のようなUIで問題になるのは、
(1)複数のコントロールの選択をどのような操作で実現するか
(2)選択されているコントロールをどう表現するか
これだけのはず。
選択されているコントロールが規則正しく並んでいる保証はないから
「枠」というのは不適切だし、そもそもあえてコントロールそのものを移動しない
理由があるとは思えない。すくなくとも現在ではね。
0246デフォルトの名無しさん
NGNG（mdbは古いOffice（Office97）で作ったサンプルです。
そのサンプルではJet3.51でした。）
フォームにグリッドコントロール、データコントロール2個、テキストボックスがあります。
それぞれDataGrid1、Adodc1,Adodc2,Text1という名です。
Adodc2のプロパティにはConnectionStringとレコードソースが設定されています。
同じ内容をAdodc1にコードで設定します。
で、DataGrid1のデータソースをAdodc2にすると問題なく動きますが
Adodc1にするとデータが表示されず、グリッドの枠がデフォルトのまま
表示されるのみです。Refreshしてもうまくいきません。
レコードセットがちゃんと設定されてないのかと思ったのですが
Text1のデータソースをAdodc1にすると、ちゃんと取得していて
指定したデータフィールドを表示させることができます。
だからAdodc1のせいではないようです。
で、データコントロールを介せず、直接レコードセットをグリッドコントロールに
設定してもやはり同様に動きません。
何がいけないのでしょうか？
0247デフォルトの名無しさん
NGNGその次にファイルをオープンする方法がわかりません。
Excel.Applicationは使いたくないのですが・・・。
よろしくお願いします。 m(_ _)m
0248デフォルトの名無しさん
NGNGクリレポは製品版です。
普通には改ページは出来ないのですね
記述方法で試してみます。
0249248
NGNG0250デフォルトの名無しさん
NGNG何のために開くの？
ユーザがExcelで編集するためなら
Shell関数か何かで開いてもいいんじゃない。
0251247
NGNGありがとうございます。
ユーザーが作ったエクセル・ブックを確認するための機能です。
Shell関数ですね。
調べてきます。
0252何でも略しゃいいと思ってる奴を煮込む俺 ◆1xdL.Dyf.I
NGNG■ このスレッドは過去ログ倉庫に格納されています