1001コメント288KB

(´д`)ｱﾊｧ… VB初心者質問スレ Part24

レス数が1000を超えています。これ以上書き込みはできません。

0001デフォルトの名無しさん

NGNG

0002デフォルトの名無しさん

NGNG

0003デフォルトの名無しさん

NGNG

http://www.hitachi.co.jp/Prod/comp/OSD/pc/ha/prod/mid/ha8000_170/spec.html

0004デフォルトの名無しさん

NGNG

>>1
乙

0005デフォルトの名無しさん

NGNG

六. ﾌﾞﾋﾞﾀﾝ情報募集中。

↑すいません、おちてました…うわーん。

0006前スレ993

NGNG

>>5
漏れが抜いた。
>>1の文章も変わってるっしょ。
馬鹿みたいだったからね。いえー。

00071(元992)

NGNG

了解しますた。

さて、では早速質問いかせていただきまっす。

PictureBoxに読み込んだ画像の指定したドットのRGB値を知りたいのですが、
VB.NETではどのように処理をすればいいのでしょうか？
VB6では使えたpoint文で処理することが出来たのを、.NETではGetPixelを
使うようになったところまでは分かったのですが、色々ソースをこねてみても
うまくいきませんでした。

現状、下記にあるような感じになっているのですが、■■■のところに何を
入れればいいのか分からず途方に暮れています。
根本的なところで間違ってる可能性もありますが、よろしくご指導願います。

Dim lngRGB As Long
Dim pic_hndl As Long
Dim red As Long
Dim gre As Long
Dim blu As Long

pic_hndl = ■■■

lngRGB = GetPixel(pic_hndl, 1, 1)
red = &HFF& And lngRGB
gre = (&HFF00& And lngRGB) \ 256
blu = (&HFF0000 And lngRGB) \ 65536

TextBox1.Text() = Str(red) + "/" + Str(gre) + "/" + Str(blu)

0008デフォルトの名無しさん

NGNG

しらけるな！

0009デフォルトの名無しさん

NGNG

>>7
http://www.microsoft.com/japan/developer/library/jpgdipf/_win32_getpixel.htm
どうやらデバイスコンテキストを渡せばいいらしい。
pic_hndl = GetDC(PictureBox.hWnd)
…
lngRGB = GetPixel(pic_hndl, 1, 1)
…
ReleaseDC(pic_hndl)

ただ、VB.NET 使ったことないから、そこらへんは何とかがんがれ。

00101(元992)

NGNG

>>9
早速のお答えありがとうございます。
まだうまく動かないのですが、スキルアップのためにも頑張ってみます。

0011デフォルトの名無しさん

NGNG

VB6.0からxls形式のファイルから読み取りや書き込みをするとき
エクセルを起動せずに行う事はできないのでしょうか？

0012デフォルトの名無しさん

NGNG

>>11
自作で関数作るか、ADOでも使ったらどうかね。

001311

NGNG

>>12
ありがとうございます。
ＡＤＯだとできるのですね。
ＤＡＯでやっていたのですが、読み書きの度にエクセルが起動するので
処理が重くなって困っていました。
さっそく調べてみます。

00141(元992)

NGNG

おかげさまで、できましたー。
それぞれAPIを登録したら、↓コレでOKみたいです。

pic_hndl = GetDC(PictureBox1.Handle.ToInt32)
lngRGB = GetPixel(pic_hndl, 20, 20)
ReleaseDC(pic_hndl)

以上、記録＆報告でした(^^)

0015デフォルトの名無しさん

NGNG

>>7
Bitmap.GetPixel() ってのは使えんのか？

>>13
おいおい。DAOでやるときは、Excelは不要だぞ。Excelクリエータとかのコンポーネントを
使うのもひとつの手だな。

0016デフォルトの名無しさん

NGNG

VB.NETのC/Sプログラムを作ってます。
クライアントからADO.NETで接続。XMLWEBサービスを使わないで、
SocketオブジェクトでXMLファイルまたはDataSetオブジェクトをクライアント
に送信できますか？
やはりStringバイト文字列しかオブジェクトしか渡せませんか？

0017デフォルトの名無しさん

NGNG

＞Stringバイト文字列

俺、XMLってテキストだとずっと思ってた。

0018デフォルトの名無しさん

NGNG

>>16
.NETの話題はこっちだね。
http://pc2.2ch.net/test/read.cgi/tech/1043629429/

0019デフォルトの名無しさん

NGNG

申し訳ございません。
そちらで質問します。
>>17
ありがとうございます。
でもXMLテキストって改行とか入ってるし、1行ずつ送信するのは時間かか
りませんか？いっぺんに送りたい。。

0020デフォルトの名無しさん

NGNG

>>19
＞でもXMLテキストって改行とか入ってるし

俺、改行ってASCII文字だとずっと思ってた。

0021デフォルトの名無しさん

NGNG

そもそも、Stringバイト文字列ってのが謎。

0022前スレ988

NGNG

>> 前スレ989
ヒントどうもです。おかげでなんとかできたよ。最終的には
ThisWorkbook.SaveAs ってを見つけたので原本から直接別ファイルにセーブす
るようにしました。あんがとー。

0023デフォルトの名無しさん

NGNG

<<20
じゃあSocketでXMLテキストファイルを送信できるって事でしょうか？
でもコードは書けないんでしょ？

0024デフォルトの名無しさん

NGNG

Access2000　VBA　で
リストボックスの選択(反転)状態を
全て解除したいのですが、
オブジェクトが必要です。
と実行時エラーが発生してしまい、うまくいきません。

Public Sub NoSelectItem(lst As ListBox)
Dim obj As Object
Dim i As Integer
Dim ctrl As Control

If lst.ListIndex <> -1 Then
For Each obj In lst.ItemsSelected
obj.Selected(i) = False
Next
End If

End Sub

どこがおかしいのか指摘してもらえませんか？
VBAなのですが、VBの問題かと思い、
こちらに書き込みました。
よろしくお願いします。

0025デフォルトの名無しさん

NGNG

ObjはObject型なので、Selectedなどというプロパティが存在しないから。

ついでに言えば、

Dim I as Long
For I=0 to lst.Count -1
　　lst.Selected(I) = False
Next I

ではだめなのか？

0026デフォルトの名無しさん

NGNG

>>25
> ObjはObject型なので、Selectedなどというプロパティが存在しないから。
それは関係ない。Objectの場合、レイトバインディングになって
実際に入っている型のプロパティが参照される。

>>24
リストボックスの説明をよく読もう。(しかし変な仕様だな。)
> ItemsSelected コレクションは、オブジェクトのコレクションではなく、
> バリアント型 (Variant) 変数のコレクションであるという点で、
> 他のコレクションとは異なります。各バリアント型変数は、
> リストボックスまたはコンボボックスの選択行を参照する整数インデックスです。
分かりにくいかもしれんが例を参照すれば一目瞭然。

ItemSelectedがVariantのコレクションなのでobjはVariant型でなくてはならない。
そして、その値が選択行オブジェクトではなく選択行インデックスなので
obj.という参照は出来ない。ついでにコレクションのとしての参照なのでIfで要素が
空かチェックする必要はない。よって正しくは次のようになる。

Public Sub NoSelectItem(lst As ListBox)
　　Dim obj As Variant　'←Variantに変える。

　　For Each obj In lst.ItemsSelected
　　　　lst.Selected(obj) = False　'←参照の仕方を変える。つーかiはどこからきてたのよ？
　　Next
End Sub

まだまだ初心者っぽいのでかんばってくれ。

0027デフォルトの名無しさん

NGNG

その教え方もどうかなぁ。

0028デフォルトの名無しさん

NGNG

間違ってないし。煽り見たいな事言うなよ。

002924

NGNG

>25-26
ありがとうございます。
無事解決しました。

>選択行オブジェクトではなく選択行インデックス
なるほど、この辺の仕様を理解できていなかったようです。
ありがとうございました。

0030デフォルトの名無しさん

NGNG

職場のルール
・Variant型の使用禁止
・While Wend の使用禁止

0031デフォルトの名無しさん

NGNG

Command1.Left = 1 とやらんで直接メモリをいぢって強制的にプロパティの値を変える方法教えて

0032デフォルトの名無しさん

NGNG

何の理由で？

003331

NGNG

>>32
プロパティに設定できる限界値を超えたいためです

0034デフォルトの名無しさん

NGNG

>>33
カプセル化を無視したい，と

003531

NGNG

>>34
そうですね
少なくともプロパティのウラで保持している値を変えないとダメなようです

0036デフォルトの名無しさん

NGNG

すみません、CommandButtonの文字の色って変更出来ませんか？
裏技とか無いかなーとかTIPSを探したのですが、見つかりませんでした。
最悪の場合、文字を画像として貼り付けようと思ってます・・・

0037デフォルトの名無しさん

NGNG

>>36
Windowsの画面のプロパティ弄ってみ。
あと、画像貼るのは常套手段。

0038デフォルトの名無しさん

NGNG

>>36
つかコマンドボタンのプロパティにはForeColorって無かったっけ？

いや、VB自体4.0しか持ってないので、今となっては自信を持って言えない
んだが、とりあえずオフィスのコマンドボタンにはあったぞ。

0039デフォルトの名無しさん

NGNG

>>31
プロパティの限界を超えても、ウィンドウの限界は超えられないんじゃないか？

>>36
無理。別のコントロールにするのが楽。もしくは、チェックボックスをボタン状態
で使うとか。

>>38
あるかもしれないけど、変更は効かない。オフィスの奴は、MSFormsのコントロール
だから別物。

004031

NGNG

>>39
逆にウィンドウの限界を超えるのはフックすればできるのよ
ただごく一部のコントロールでサイズ変わってんのに
プロパティの値は変わらん現象があってね

004136

NGNG

>>37,38,39
やっぱり基本的には無理なんですね。
別コントロールで代用できないか探ってみて、
駄目そうだったら画像貼り付けます。
画像貼り付けが常套手段って聞けただけでも心強いです。
ありがとうございました。

0042デフォルトの名無しさん

NGNG

>>39
どーゆー方法でやってるのか知らんけど、VBで用意されている方法じゃない(フックだとかメモリ書き換えだとか)のに、
VBで用意されている方法（プロパティ）に反映したい、ってのがそもそもおかしな話じゃないか？

0043デフォルトの名無しさん

NGNG

不具合が起きないようにプロパティが値を制限しているのだからそれを超えるべきではない

というのが初心者スレ的な優等回答かと

0044デフォルトの名無しさん

NGNG

限界超える仕様のソフトって、何の意味はあるんだろう。
ただのｱﾌｫとしか…。

0045デフォルトの名無しさん

NGNG

何の意味はあるんだろう・・・

0046デフォルトの名無しさん

NGNG

サードパーティ製のOCXを使うってのはこの場合邪道でせうか？

0047デフォルトの名無しさん

NGNG

もうね

004834

NGNG

>>43
初心者でなくてもそうだと思う。

0049デフォルトの名無しさん

NGNG

>>47
省略し過ぎ。
吉牛のコピペだと気付くのに、10秒以上掛かったよ・・・。

0050デフォルトの名無しさん

NGNG

ファンクションキーを押すことによって、
割り当てられているテキストをTextBoxに置くにはどうしたら良いですか？

0051デフォルトの名無しさん

NGNG

>>50
KeyPressイベントでヘルプ

0052デフォルトの名無しさん

NGNG

ありがとうございました

0053デフォルトの名無しさん

NGNG

すみません。VBのコンパイルで悩んでいます。

exeを作って実行するとvbpを開いて実行するより１０倍実行時間がかかります。
私は初めての経験なんですが、よくある事なんでしょうか？
（コンパイルエラーも実行時エラーも無し）

タスクマネージャでプロセスのCPU使用率を見ると
vbpの場合：７０～１００％
exeの場合：５～７％

exeの場合で、もっとCPUを使って実行時間を短くするにはどうすればよいで
しょうか。

環境は
Windows2000Pro SP3、VB6.0 SP5、InputMan6.5、Oracle8.1.5(oo4o,Net8)

oo4oの問題かもしれないのですが、問題の切り分けもできなくて、ここに
書きました。よろしくお願いします。

0054デフォルトの名無しさん

NGNG

とりあえず、P-Codeコンパイルしとけ

0055デフォルトの名無しさん

NGNG

53です
54様、ありがとうございます。

コンパイルのオプションも色々変えて実行時間を測ってみたのですが、
ほとんど差が有りませんでした。

P-Code、ネイティブ、ネイティブで詳細設定を全部チェック　等々やっても
だめでした。

0056デフォルトの名無しさん

NGNG

使いもしないOCXとかライブラリとかたくさん組み込んでない？

0057デフォルトの名無しさん

NGNG

53です

テスト環境にはOCXとかは、てんこ盛りですが、本番環境は、ほぼ最低限の物を
デフォルトでインストールしてありました。本番環境でも同様の結果が出ますので
関係ないかと思っていました。

VBPに組み込んである物は、最低限の物だけです。

0058デフォルトの名無しさん

NGNG

EXEで実行するときもVBPで実行するときと同じ正常な結果が出てるのかな？
EXEの時は何か条件が不足していたり設定ミスがあったりして、内部でエラーに
なっているという可能性もあるよ。
あとは・・・もしかしたらOracle周りかもしれんのう。ｽﾏｿ、漏れはＤＢには詳しくないので解らんけど

0059デフォルトの名無しさん

NGNG

58様、53です。

　とりあえず解決しました。

　EXEで実行してもDBは同様に更新されていました。
　OracleのWebに8.1.6用のoo4oが有り、8.1.5でも使えると書いてありましたので
入れて見ました。
　そうすると、exeでもvbpでも同様の時間で更新できるようになりました。
　どうやら、言われる様に内部でエラーになり時間がかかっていたのではないかと
思います。

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

　ちなみに、他社が作ったシステムで、あまりに実行時間が遅かったのですが
そこでは、原因が追求できずに、私の所に回ってきた案件でした。

0060デフォルトの名無しさん

NGNG

>>59
詳しい人によると、8.1.7以外の8系はすべてやばいらしい。

0061デフォルトの名無しさん

NGNG

VisualBasic を始めたいから教えてくれ、って知人に言われたんですけど、
よく考えたらまず何から教えればいいんでしょう。

その人は、C は普通に使える、Java はちょっと、オブジェクト志向は
だいたい（細かいところは×）できる感じなんです。VC++ の経験は無し。

お勧めの本、サイトなどもありましたらよろしくお願いします。

0062デフォルトの名無しさん

NGNG

>>61
まず
「VBなんてやめておけ、VC++にしろ」
と言ってあげるのが真の友達。

0063デフォルトの名無しさん

NGNG

>>61
今からなら、C#がいいんじゃない？SDK+SharpDevelopなら無料だし。

006461

NGNG

>>62
就職のためなんだそうです。
VB ができるのが条件だとか。

0065デフォルトの名無しさん

NGNG

VB6なのかVB.NETなのか。
どちらにしろ、まずは使ってみるのが先決だ。

0066デフォルトの名無しさん

NGNG

>>61
まずは、VBをダウンロードして手にいいれる方法を教えてあげるとか

0067デフォルトの名無しさん

NGNG

すみません、どうしてもわからないので教えてください。
コントロールが発行するイベントを
クラスモジュールのオブジェクトが受け取るように出来ますでしょうか？

0068デフォルトの名無しさん

NGNG

>>67
WithEvents

0069デフォルトの名無しさん

NGNG

>>64
VBっていうより、ADO本とかでDB廻りをVBでかけるようにっていうのは？

あと、Cはできるっていうひとに、イベントをまともに扱えない人がおおいんで、
その辺書いてあるほんとか。

0070デフォルトの名無しさん

NGNG

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

漏れとしては、VBは素人に扱い切れる代物ではないと思う。
まともに設計ができない香具師が使うと悲惨なことになるので、C++やJavaを勧める。

0071デフォルトの名無しさん

NGNG

時期OfficeのVBAはVB.NETベースになるのでつか？

0072デフォルトの名無しさん

NGNG

>>71
まずならない。素人が扱えるレベルではないから。
あと、マクロの記録等のことを考えると、リリースするのに3年くらいは
かかってしまうから。

0073デフォルトの名無しさん

NGNG

windows2000(sp3)､vb6(sp5)環境で winsockが正常動作しないのですが、
情報知っている方居れば教えて下さい。
windows2000(sp2)までは普通にwinsockが使えたのですが・・

0074デフォルトの名無しさん

NGNG

>>73
当方では正常ですが。
どう動かないのか書いた方が情報もあつまりやすいかと。

0075デフォルトの名無しさん

NGNG

リストボックスの外枠を消すには？

0076デフォルトの名無しさん

NGNG

>>75
リージョン指定

007775

NGNG

>>76
なるほど

0078デフォルトの名無しさん

NGNG

そういわれて即分かるレベルなら質問すな。

0079デフォルトの名無しさん

NGNG

>>78
属性で変えられんものかと思ったのよ

0080デフォルトの名無しさん

NGNG

リージョンってなんですか？
まずはググれ、話はそれからだ
検索したけどわかりません。初心者なんで優しく教えてくれても良いじゃないですか
お前みたいな坊やは四辺にPictureBoxでも置いてごまかしてろYO

↑みたいな展開を期待していたオレ

008176

NGNG

ユーザコントロールの内在コントロールにするって手もあったな

008275

NGNG

>>80
スマソ (w
コンテナは即考えたがリージョンは気付かなかった
ためにはなったよ

>>81
実は今そうやって使ってる

単体で配置する際は有効な手法のひとつだね

0083デフォルトの名無しさん

NGNG

なんかつまらね

0084デフォルトの名無しさん

NGNG

そーでもない

00851 ◆ExGQrDul2E

NGNG

うちのスレにこのスレの住民が来て困ってます。首輪でつないでおいてください。

0086デフォルトの名無しさん

NGNG

>>85
どこよ。
もう少し送り込みますのでアドレス貼ってくれる？

00871 ◆ExGQrDul2E

NGNG

>>86
知らないほうがしあわせだからいい。

0088デフォルトの名無しさん

NGNG

VBでPCXを表示したいのですがどうすればいいでしょうか？
PCX　→　bmpの変換方法も知りたいです。

0089デフォルトの名無しさん

NGNG

http://www.wotsit.org/download.asp?f=pcx
でpcxのフォーマットが分かるからそれに沿って読み込んで表示するコード書けばよろしい。
出来ない場合、vbではあきらめた方が

0090デフォルトの名無しさん

NGNG

出来ない場合って、出来ないならvb以外でも無理でしょ。

009188

NGNG

>>89
煤i・∀・）力技ってことですか？

009288

NGNG

PCXが使えるコンポーネントがあればよいのかな？

0093fushianasan

NGNG

リストボックスに横スクロールバーを付けたいのですが、どうしたらいいですか

0094デフォルトの名無しさん

NGNG

>>93
あえて言おう、Columns プロパティがあると。

多分やりたいこととは違うんだろうけどね。
何で水平スクロールさせたいの？

0095fushianasan

NGNG

Columns プロパティではダメなようです。。。

>何で水平スクロールさせたいの？
単純に表示する文字が長くて最後まで見えないからです。

0096デフォルトの名無しさん

NGNG

>>95
リストボックス自体を横長にしたらダメなの？
（ここでUIに関する説教が10分ほど続きます）

たとえばリストボックスには必要最低限の情報だけ表示して
残りは別のテキストボックスやステータスバーに表示するのも一つの手段。

0097デフォルトの名無しさん

NGNG

アイテムごとにツールチップ出すようにするのは?
どこかのvbサイトにサンプルあったよ。忘れたけど

0098デフォルトの名無しさん

NGNG

>>95
リストビューじゃいかんの？
リストボックスに水平スクロールも悪いとは思わないが、キーでスクロール出来なかったりすると暴れたくなる。

0099デフォルトの名無しさん

NGNG

ちっちゃいフォーム至上主義なヤシは、一度誰かに厳しい目で
テストしてもらうと良い。
実戦では絶対操作のしやすさが求められるから。

0100デフォルトの名無しさん

NGNG

大きいフォームでも項目数が多いと置ける範囲は小さくなるよ。

0101山崎渉

NGNG

（＾＾）

0102デフォルトの名無しさん

NGNG

0103デフォルトの名無しさん

NGNG

PCには既にVB6.0ラーニングエディションがインストールされてるんですが、その上から
新たにVB6.0プロフェッショナルエディションをインストールしても大丈夫なのでしょうか？
それとも、一旦ラーニングエディションをアンインストールしてからプロフェッショナルエディションを
インストールした方が良いのでしょうか？

0104デフォルトの名無しさん

NGNG

>>103
一応アンインストールしてからやったほうが安全かと

0105デフォルトの名無しさん

NGNG

>>104
CD-ROMを入れたら、自動的にインストールされているファイルを検索して
削除した後、更新してくれるんじゃなかったっけ？

0106デフォルトの名無しさん

NGNG

０（ゼロ）とEMPTY を区別して扱いたいのですが
どうしたらいいでしょうか？教えてください
宜しくお願いします　

0107デフォルトの名無しさん

NGNG

emptyってどういう場合に使ってるのよ？

0108デフォルトの名無しさん

NGNG

え～っと　
For v = 1 to 1000
atai(v)　←ここに様々な値を代入していく
next v

のですが、その際に与えた値の中に空の値のとき（EMPTY）
普通に数字で０（ゼロ）の値を代入するケースがあるのですが
その後　入れたデータを振り分ける際にゼロを代入したデータが
EMPTYのデータと一緒のほうに振り分けられてしまいます
こちらとしてはゼロを入力したデータはその他の数字を代入した
データと同じ方に振り分けられてほしいわけです。

長くなってしまいましたが、
なんとなくイメージしてもらえるでしょうか？

0109デフォルトの名無しさん

NGNG

テストで0点と未受験を分けるようなものか？
数値以外を入れるならVariantしかないよ。
構造体にして受験フラグをつけるって手もあるけどね。

0110デフォルトの名無しさん

NGNG

まさにそうですね、０点と未受験をわけるようなものです
簡単にやる方法ってありますかね？
構造体にして受験フラグをつける方法？ってよくわからないのですが
何かよい方法などあるでしょうか？

0111デフォルトの名無しさん

NGNG

あぁ、また構造体と書いてしまった。
VBではユーザ定義型ね。調べて。

0112デフォルトの名無しさん

NGNG

>>110
atai()をStringで宣言すれば、
if Len(atai(v)) then
　　'EMPTY
Else
　　'値あり
End if
で振り分けられる。

0113112

NGNG

まちがった
if Len(atai(v)) then
　　'値あり
Else
　　'EMPTY
End if
だ。

0114デフォルトの名無しさん

NGNG

ataiが何の値か知らないけど、
本来数値であるべき所を文字にするようなことはやめてね。

0115デフォルトの名無しさん

NGNG

>>110
入れる数値で使わない数値をEmptyとして考えたら？

0116デフォルトの名無しさん

NGNG

フォームにリストボックスを配置して、フォームの高さが変わるとリストボックスの
高さも変わるようにしたのですが、ガクガクとサイズが変わってしまいます。
無段階でサイズ変更できるようにするにはどうしたらいいでしょうか？
よろしくお願いします。

0117デフォルトの名無しさん

NGNG

>>114
気持ち悪いのはわかるけど
Variant使うより速いんじゃん？

それと、ユーザー定義型使わなくても２次元配列で済むかと。

0118デフォルトの名無しさん

NGNG

ありがとうございます
できたみたいです　本当に助かりました
これでなんとか頑張ってみます

0119デフォルトの名無しさん

NGNG

厨な質問ですみませんが、ＶＢのフォーム上にドラッグ＆ドロップしたファイルのファイル名を取得する方法を教えてくだつぁい。

0120デフォルトの名無しさん

NGNG

>えてくだつぁい。
人にものを聞くのにふざけてますね。

0121デフォルトの名無しさん

NGNG

>>116
IntegralHeightプロパティをFalseに。

0122デフォルトの名無しさん

NGNG

>>119
Form_DragOverでドラッグドロップされているのがファイルかどうか判定してそのときに応じてEffectの値を変更し
Form_DragDropでファイル名を取得する

0123122

NGNG

s/DragOver/OLEDragOver/
s/DragDrop/OLEDragDrop/
ですね、ｽﾏｿ

0124デフォルトの名無しさん

NGNG

>>117
Stringにしたら計算などで一回数値に(暗黙的に)変換しなきゃならないじゃん。
逆に遅くなる場合も考えられるよ。
たとえばオレの環境で次のコードはStringの方がVariantより20倍かかる。

> それと、ユーザー定義型使わなくても２次元配列で済むかと。
ユーザ定義型のほうが直感的なのに2次元配列を使う理由は無いでしょ。

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Sub Main()
Dim atai As Variant又はString
Dim l As Long
Dim t As Long
t = timeGetTime
atai = 0
For l = 0 To 10000000
atai = atai + 1
Next l
MsgBox timeGetTime - t
End Sub

0125116

NGNG

>>121
ありがとうございました。灯台下暗しでした…

0126デフォルトの名無しさん

NGNG

すみません。BV６．０で
A（例）というテキストボックスに
入力された文字を、保存。印刷するプログラムを組んでるんですが
この場合どういった処理をしたらもっともシンプルにいくでしょうか？
教えてください。

Private Sub A_LostFocus()
If CheckInput(Me.A, "N") = Felse Then Exit Sub
End Sub
と、ボックスの中はとりあえず出来てるんですが
しかも普通に印刷するのではなく特定の文章ファイルに＠A＠とかいう形式で
埋め込み出力したいのです。

どうかよろしくおねがいします。

0127デフォルトの名無しさん

NGNG

BV６．０

0128デフォルトの名無しさん

NGNG

Felse

0129便乗教えてクン

NGNG

27時間31分50秒ほどかけましたが、未だ VB で PCX を扱えません。
どなたか、軽く、10行ぐらいの効率的な
VBでの模範ソースを書いていただけませんでしょうか。

BMP ファイルをメモリーバイト配列へ ENCODE するものと、
PCX ファイルをメモリーバイト配列へ DECODE するものを
書いていただければ、教えてクン冥利に尽きます。

あ、全ビット(1,4,8,24)対応版でお願いします。

0130デフォルトの名無しさん

NGNG

>>129
商用云々はしらんが、個人で使うとかなら
Susie32 PCX Plug-inとかでも使ったら？

0131デフォルトの名無しさん

NGNG

>>129
5秒。
http://www.google.co.jp/search?q=PCX+VB&ie=UTF-8&oe=UTF-8&hl=ja&lr=
で、
http://perso.wanadoo.fr/vbfrood/english/projects/pcxread.htm
が見つかったけど？

0132126

NGNG

ほんと教えてください。
仕事で行き詰ってるので・・・
VBなんて誤字は許してちょーよ

0133デフォルトの名無しさん

NGNG

>>132
なにがしたいんだ？

0134デフォルトの名無しさん

NGNG

誤字なんかより質問内容に問題ありまくり。
ホント、何がしたいんだか・・・

0135デフォルトの名無しさん

NGNG

Felseとか書いてるヤシが仕事で使っているとは思えないな（ｗ

0136デフォルトの名無しさん

NGNG

なんとなくだけど、埋め込みの部分を教えてほしいって事？
replace() しれ。

印刷はホントに前提条件ないの？
何かのレポートコントロールでないと駄目とか。

つか、
>この場合どういった処理をしたらもっともシンプルにいくでしょうか？
シンプルでない処理すら思いつかなくて聞いてるように見える。

つか、こんなもんシンプルも糞もなさげ。

0137デフォルトの名無しさん

NGNG

しゅくだいでせう

0138便乗教えてクン

NGNG

>>130-131
ありがとうございました。
可読性の高いシンプルなコード、それでいて速度は
私が二晩心血を注ぎ、やっとの思いで作った物の3倍は出ているようです。

エンコーダーのサンプルが無いのは残念ですが、この模範を糧に、
冗長で重い自作エンコーダーの精製に励みたいと思います。
それでは、39時間20分15秒ぶりに、食事でもしてきます。

0139132

NGNG

今不動産管理ソフト作ってるんで、
それに使うプログラムなんですが・・・確かに説明が悪くてｽﾏｿ
現在フォーム側はコンナ感じ。
Private Sub A_LostFocus()
If CheckInput(Me.A, "N") = False Then Exit Sub
End Sub
Private Sub Cmd_Click()
Dim wProcNm
sQRY("A") = CCur(NVL(Me.A, "0"))
End Sub
Private Function SetData(Obj As Object, Rs As Recordset)
Dim i
Obj.A = Format(NVL(Rs("A"), "0"), "##")
End Function
印刷関連は別フレーム（印刷プレビュー用）で
Case "＠A＠": Def(TBL_TX_TEXT, wPos) = NVL(tmpQRY("A"), "")
っての上記を印刷するときの部分
で、.zmnっつー独自仕様のファイルが印刷するときのﾃﾝﾌﾟﾚだから
＠～＠って書いてあるところが埋め込みなのです。

ところが『つなぎ』の部分のプログラムがｻﾊﾟｰﾘなので教えて頂けませんでしょうか。
しごとぢゃなくてバイトなんです。
社長がDQNだからHTMLが出来ればVBもできるだろ？
とか言われて１っ週間５万出すって言うから手を打ったのだが・・・ﾑﾘﾎﾟなんで
２ｃｈに救援要請しますた。

0140デフォルトの名無しさん

NGNG

DQNだな・・・

0141デフォルトの名無しさん

NGNG

>>139
んなむちゃくちゃなコードがあるか。出来もせんのに引き受けるな。

0142132

NGNG

>出来もせんのに引き受けるな。
半ば強制ったので・・・当初は不動産物件の図面をCADれっていう契約内容
だったんでつが、このｿﾌﾄ作ったﾌﾟﾛｸﾞﾗﾏが今手一杯だから、仕事を回された感じ。
どうか助けてください。

0143デフォルトの名無しさん

NGNG

正直最初の質問から本買えといいたかったんだが。今ごろ買ってるひまもないな。

0144デフォルトの名無しさん

NGNG

諦めろ。ダメな奴は何をやってもダメ。

0145デフォルトの名無しさん

NGNG

悲惨な>>132に幸あれ

0146デフォルトの名無しさん

NGNG

ガケから落ちる途中の車を助ける事が出来る器用な人はあまり見かけない。

0147132

NGNG

もはやﾅｰﾑｰか、スパッッと諦めますわ。
ﾚｽ付けてくれただけでも感謝です。THX。
もうこんなとこ早く辞めよっと。

0148デフォルトの名無しさん

NGNG

>>139

Dim strOutputLine As String
strOutputLine = Me.A.Text
strOutputLine = "@" & strOutputLine & "@"

ってことか？それとも

strInputLine = ' Get する処理
strOutputLine = Replace (strInputLine, "@A@", Me.A.Text)

ってことか？ナニがしたいのか、意味すらわからん。
上司の方に
あと、HTMLはマークアップ言語、VBはプログラミング言語って社長に
教えてあげてください。

0149148

NGNG

>>139
書いてやるからどっかにソース上げれ

0150社長

NGNG

>148

あ゛？

0151148

NGNG

>>150
おぃ、しゃちょー。おめーナニ考えてんだよ。遊んでばっかいねーで仕事しる！

0152デフォルトの名無しさん

NGNG

遊んでいるようにしか見えないとは・・・・嘆かわしい。

0153社長

NGNG

おれは接待でいそがしいのだ
おまえらさぼってると首だぞ

0154148

NGNG

>>153
社長，もう首切り過ぎて首にする社員がいません!

0155デフォルトの名無しさん

NGNG

>>154
おまえがいるだろ

0156デフォルトの名無しさん

NGNG

つまらないショートコントだなぁ。

0157139

NGNG

やってくれるの？ありがたいー。
しかし、開発中のソフトだからみだりにｿｰｽ晒せないし…。

仕方ない。
雇います。出来高払いで。完全にできたら2万払います。ｿﾌﾄ自体はもう形になってるから上記の他にも30個位あるｴﾗｰの修正のみ。ﾌﾟﾛなら簡単に出来ると思われ。
メアドなら晒せるから。
vb暦だけ書いて送って下さい。メッセがあったほうがいいです。
頼りは2chだけだ。宜しく頼みます。漏れマジ必死(w
振込み方法とかもﾒｰﾙで。返信すんの11時位になるかも…

0158148

NGNG

>頼りは2chだけだ。
日本（というかこの会社だけか?）の未来は暗いな。（わ

0159デフォルトの名無しさん

NGNG

>>157
そんなことすんな。ちょっとひくっちゅーの。
2chで生メアド晒しだなんて。
捨てアド取って貼れよ馬鹿。

という注意とかね。

0160デフォルトの名無しさん

NGNG

>>157
アタック依頼ですか？通報しました。

0161139

NGNG

いや、もう捨てるメアドですから安心してください。
Bﾌﾚに乗り換えるし。いちおう捨てアドも張っとく。

0162デフォルトの名無しさん

NGNG

というか、きちんと面接してちゃんと金出してやれよ。
こんなとこで必死になって馬鹿としか言いようがない。

0163デフォルトの名無しさん

NGNG

えっと盛り上がってるとところに、水を差すようなのですが、
VBのShellでFTPコマンドを行うために

Shell("ftp -n -s:" & FtpScript, vbHide)

といったソースを記述し、テストをした結果
うまくＦＴＰできたのですが
ＦＴＰのログを出力する方法がわかりません。
どなたか教えてはいただけないでしょうか？

0164デフォルトの名無しさん

NGNG

これからやろうと思うものですが。
やっぱり.NETの方がいいですか？

0165デフォルトの名無しさん

NGNG

>>164
どうだろうなあ
VB6を手に入れるのが難しくなりそうだし、
.NETは.NETが動くPCしか動かないし(利点でもあるが。VB6でもランタイム必要だし・・・)
VB.NETやるよりはC#のほうがよさそうだし
WEBや本での情報が充実してるのは(今は)6だし
上げ出したらきりがないな

0166163

NGNG

追記です。
ＤＯＳコマンドで

ftp -n -s: C:\test\FtpScript.FTP > C:\tes\FTP.log

と入力したときと同一の結果をShellにて行いたいのですが、
未だにうまく動作しません。
どのようにコーディングすればよろしいでしょうか？

0167デフォルトの名無しさん

NGNG

>>166
http://pc2.2ch.net/test/read.cgi/tech/1050078087/226-

0168デフォルトの名無しさん

NGNG

VB+ADSI使って、ＡＤ内にある全てのcn,ouを列挙したいときはどう書くの？

0169デフォルトの名無しさん

NGNG

最強の開発言語
http://www.borland.co.jp/delphi/personal/

0170デフォルトの名無しさん

NGNG

ﾃﾞﾙﾌｨ

0171デフォルトの名無しさん

NGNG

whitespaceが最強です！偉い人には略

0172デフォルトの名無しさん

NGNG

VBで複数宛先を指定して同じ文章を送りたいのですがどうすればいいのでしょうか。
教えていただけませんか？
ちなみにMAPIMessagesとMAPISessionを使用しています。

0173デフォルトの名無しさん

NGNG

>>172
スパムメールですか？死ねよ厨房

0174デフォルトの名無しさん

NGNG

>172
通報しました。

0175デフォルトの名無しさん

NGNG

VB6の良書を教えてください。
DB（オラクル8i）、SQLを使用しています。
DB、SQLは網羅してなくてもいいんで…。
自分はVB初めて。プログラム経験も乏しいです。

0176動画直リン

NGNG

http://www.agemasukudasai.com/movie/

0177デフォルトの名無しさん

NGNG

ExcelをＤＡＯで読みこもうとすると文字の入っているセルをNULLにされてしまいます。
うまく読みこむ方法はないでしょうか？

Set DB = OpenDatabase(FileName, False, False, "Excel 8.0;")
Set RS = DB.OpenRecordset(xlSheetName)
Do
LblName(i).Caption = RS.Fields(1)
i = i + 1
RS.MoveNext
Loop Until RS.EOF

ちなみにこう書いています。数字の部分は上手く読みこめているようです。

0178デフォルトの名無しさん

NGNG

>>177
文字の「入っていないセル」じゃないの？
LblName(i).Caption = RS.Fields(1) & ""
でNullなら""として認識。

0179177

NGNG

>>178
いえ、それが文字の入っているセルなんです。
数字の1や50とかは読みこむのですが、
｢あ｣や｢a｣はなぜかNullとされてしまうんです。

0180172

NGNG

スパムしか思い浮かばないのですか･･･。
>>173-174
単にお得意先への挨拶メールでそれを使用したかっただけなのでつが。
スパム怖いので出来ません。性格的に。
むしろスパムにいらつく方です。うぜぇよｺﾞﾙｧって感じで。
自分がイラつくことは他人に出来ません。
っつーかそれしたら人間失格っしょ。

0181デフォルトの名無しさん

NGNG

スパムソフトを作れというやつがたまにいるから
とりあえず叩いてみるというのがこの板の慣習になっている。

0182172

NGNG

>>181
そういう事ね･･･。
そんなカスはどんどんやってﾀｲｰﾎされてください、と思ってますvv

0183172

NGNG

ってかもしスパムだったらアドレス自動作成して手当たり次第に送ってしまえばよろしいでしょ。
私がわからないのは
複数以上の宛先を一度に指定して送信が一度で終わる方法です。
どうかご教授ください。

0184デフォルトの名無しさん

NGNG

送信先の件数分送れば良いんじゃないの。

0185デフォルトの名無しさん

NGNG

>>183
だからさーその手の話題はみんな答えたくないんだよ。

0186デフォルトの名無しさん

NGNG

>>183
知らんがこんなのは。
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_t08_1.htm

0187デフォルトの名無しさん

NGNG

172 がいうところのカスにも情報を与えることになるわけだしね。

0188172

NGNG

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

>>184
それだと送信メールボックスにたくさんたまってしまいますんで････。

>>185
スパムごとき簡単に作れるんじゃないか。
まぁまともな人間ならばやらないが。
スパムメール教えてくださいと言うのは
ボクまともな人間じゃありませーん人間やめてまーす
と言っているようなもん。

0189172

NGNG

>>187
それもそうか･･･。
質問するところ間違えたかな･･･ｼｮﾎﾞｰﾝ

0190デフォルトの名無しさん

NGNG

>179
パターンは？
8行以上のパターンで、カラムがNull,Date,Double,Int,Stringとのみなしで固定されるよ。(Int未検証)

ウチの場合は式でテンプレ作って、ダミーにも同じ型を付けるようにしてSQLレベルで回避した。
ADOでしかやっていないけどね。

0191デフォルトの名無しさん

NGNG

LAN内のマシンのMACアドレスを取得する方法を教えてください。

＃自分のマシンのMACアドレスは取得できました。

0192デフォルトの名無しさん

NGNG

>>191
GetIpNetTable

0193デフォルトの名無しさん

NGNG

>>172
おまえの言ってる事は

「ピッキングのやり方教えてください。
他人の家には入りません、自分の家のカギを無くしただけです。」

って言ってんのと一緒なんだよカス。少し考えてから質問しろ

0194山崎渉

NGNG

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

0195デフォルトの名無しさん

NGNG

>>188
> スパムごとき簡単に作れるんじゃないか。

と言っているが、

> 複数以上の宛先を一度に指定して送信が一度で終わる方法です。

これもスパムの一部でもあるだろうに。

0196デフォルトの名無しさん

NGNG

VB+ADSI使って、ＡＤ内にある全てのcn,ouを列挙したいときはどう書くの？
ソースが見つからない。ソースあるとこおしえてけれ。

0197デフォルトの名無しさん

NGNG

191です
説明不足なので追記します

LAN内のマシンのMACアドレスを取得する方法を教えてください。

＃自分のマシンのMACアドレスは取得できました。

仕様
LAN内のマシン名を入力する

該当マシンが起動してる場合MACアドレスを取得する。

といったものです。

GetIpNetTableはうまくいきませんでした。

0198デフォルトの名無しさん

NGNG

VBでCSV形式のファイルを生成させ、生成したファイルをExcelで開きたいと思っています。
ところがCSVファイルの１フィールド内に改行が含まれている場合Excelで開いたときに同一セル内に入ってくれず、
改行以降が次のセルに入ってしまいます。
これを回避するためにCSVファイルを生成するときになにかしら実装することで回避したいと思っています。
どうすればいいか教えて下さい。宜しくお願いします。

0199デフォルトの名無しさん

NGNG

厨な質問ですが、
m=objFolder.SubFolders.Count
としたとき、mにはフォルダの個数がはいるのですが、
m=objFolder.SubFolders
ならmにはなにがはいるんでしょう？

0200デフォルトの名無しさん

NGNG

>>199
オブジェクト変数

0201デフォルトの名無しさん

NGNG

>>198
こういう質問はよく見かけるが、
根本的に改行コードが含まれるようなデータを
ＣＳＶにしようという意図がわからん。
そもそも改行なんかが含まれるデータを
Excelで保存しようとしただけで怒られるだろうに。

0202デフォルトの名無しさん

NGNG

>>198
CSV形式って改行までが1レコードだろう。
って事でCSVを捨てろ！

0203202

NGNG

ダブった。スマソ。

0204202

NGNG

>>198
ヒント：
1. Excelで改行を入れて出力してみれ。
2. CSVだけがテキストファイルじゃぁない。

0205デフォルトの名無しさん

NGNG

VBで作られアプリで、Accessのファイルが入っているんですが
自分のＰＣにはAccessが入っていないんですが
なぜ、動くのですか？
Accessで作ったものをVBに埋め込んだと言う解釈でいいのですか？

0206デフォルトの名無しさん

NGNG

VB6.0を入手したいのですが、

ttp://www.microsoft.com/japan/msdn/vs_previous/vstudio/vs6discon.htm
Visual Studio 6.0 Enterprise Editionを除いて出荷停止とのことで。

Visual Studio 6.0 Enterprise Editionだと19万円くらい出さないといけないので、

Visual Basic 6.0 Enterprise Edition / Professional Edition /

あたりを単体で手に入れることはできるでしょうか？
また、その値段もわかればありがたいです。

0207デフォルトの名無しさん

NGNG

まだ在庫のある店があるかも?

0208デフォルトの名無しさん

NGNG

VB+ADSI使って、ＡＤ内にある全てのcn,ouを列挙したいときはどう書くの？
ソースが見つからない。ソースあるとこおしえてけれ。
せっかく聞いてるんだからオマエらちゃんと調べろよ！

0209デフォルトの名無しさん

NGNG

>>205
access データベース用のランタイムみたいな物があると思って良い

一緒にインストールされたか、先にインストールしてあったかは知らんけど。

0210デフォルトの名無しさん

NGNG

>>196
少しは自分で努力しろ

0211デフォルトの名無しさん

NGNG

>>197
arp

>>198
vbLF

>>199
ウォッチしてみろ

>>205
違う。Accessに接続するためのミドルウェアを使ってる

0212デフォルトの名無しさん

NGNG

>>199
エラーになるか、デフォルトプロパティだろうな。Setがないから。

0213デフォルトの名無しさん

NGNG

いま時計を作ってるんだけど、VBで外国の時間を表示させるにはどうするの？
時差が分ってれば、Time$に式を加えるんだろうけど、その式が分かりません・・・

0214デフォルトの名無しさん

NGNG

俺だったらもう何も考えず、表示したい国の時差テーブル持っちゃうけどなぁ。
嫌なにょ？

0215デフォルトの名無しさん

NGNG

>>213
SystemTimeToTzSpecificLocalTime() ってのがあったぞ。

0216213

NGNG

例えばExcelだと、NOW() -"07:00:00"で現在時刻より7時間前が表示されるでしょ？
同じようなことは、VBではどうやるのですか？　

0217213

NGNG

>>215
すまん。リロードしないで書き込んじゃった。SystemTimeToTzSpecificLocalTime()ての
どうやって使うか、探してみる。

0218デフォルトの名無しさん

NGNG

>>216
DateAdd() を使う。

>>217
ちなみに、NT系専用ね。

0219132

NGNG

ご迷惑おかけしました。やっぱり不可能でした。
もうこんなとこ辞めてやります。

協力してくださった148さん感謝です。ありがとうございました。
ﾌﾟﾛｸﾞﾗﾑ板ってｲｲ!!人多いですねｗ

あ、そういえば生ｱﾄﾞ晒したのに今のとこｽﾊﾟﾑ一通も着てないです
２ｃｈも平和になったもんですね。
あと30分ぐらいで、社員会議が終わったらDQN社長に怒られます・・・
無理に決まってんのに・・・非道会社だ

0220デフォルトの名無しさん

NGNG

君が馬鹿だからさ。
みんな馬鹿だって分かってるからさ。

0221デフォルトの名無しさん

NGNG

d=array()
i=0
For Each filenames In objdir.subfolders
d(i) = filenames.Name
i = i + 1
Next
有効でないと突きつけられるのですが、どのようにすれば
配列ｄに名前をいれていけるのでしょう？

0222デフォルトの名無しさん

NGNG

d=array()
こりゃ何をしているのかね。

0223デフォルトの名無しさん

NGNG

VB6.0sp5で、特殊なコンポーネントは一切使わず、
使うコントロールのフォントは全て手動で指定してやったら（日本語版ランタイム無し対策）、
どのバージョンのWindowsから素で起動できますか？

0224デフォルトの名無しさん

NGNG

VBランタイムはいるんじゃ？

0225デフォルトの名無しさん

NGNG

アプリケ－ションを終了する際、showで開いたウィンドウがあるかどうか
チェックしたいのですがどうすればいいですか？

0226デフォルトの名無しさん

NGNG

Windows98以降ならOKでしょ。
でも日本語版（vb6jp.dll）は入ってないからフォント指定してないコントロールが文字化けする。

0227148

NGNG

>>221
Dim d() As String
Dim i As Long
ReDim d(0 to objdir.subfolders.Count - 1) As String

でやってみ

0228148

NGNG

>>216
DateDiff でいけるとおもわれ

0229デフォルトの名無しさん

NGNG

>>225
Forms ?

0230デフォルトの名無しさん

NGNG

すみません、ほかのスレに書いた質問なんですけど、こちらに転載してもいいですか。

724 名前：質問[sage] 投稿日：03/04/21 09:56
VB6.0 + JetDB + ADO で
sql = "CREATE TABLE HOGE("
sql = sql & "Year CHAR(2),"
sql = sql & "Time CHAR(36)"
sql = sql & ")"
vCom.CommandText = sql
vCom.Execute
などとすると、"フィールド定義の構文エラーです。"(-2147217900）が発生します

Year とか Time がそのまま使えないキーワードの用ですが
どうやってエスケープしたらよいのでしょうか
シングルクオートで囲むと、そのままシングルクオートを含んだフィールドが生成されてしまいました。

0231デフォルトの名無しさん

NGNG

>>229
使用例とか知ってます？

0232デフォルトの名無しさん

NGNG

>>230
どっちか取り下げろよ。
公開マルチじゃねーか。

0233デフォルトの名無しさん

NGNG

>>230
予約語は
[　]で囲う。

0234148

NGNG

>>225
閉じたいんなら

Dim objForm as VB.Form
For Each objForm In Forms
Unload objForm
Next

とかでいけるはず

0235デフォルトの名無しさん

NGNG

ＶＢについて知識０なんですけど
オーディオの切り替えとかってできるのでしょうか？？

ＵＳＢとオンボードとか

0236お

NGNG

>>235
Win32APIの知識さえ豊富なら、
後はVBを覚えるだけだと言ってみる。

0237デフォルトの名無しさん

NGNG

>>234
サンキューっす

0238デフォルトの名無しさん

NGNG

>>232
なんか、あっちはふざけたレスしか帰ってこないような場所みたいだったもので、
あっちを取り下げます。

VB+ADOだと回避出来ない代物なんでしょうか。

0239デフォルトの名無しさん

NGNG

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

0240デフォルトの名無しさん

NGNG

>>239
Year とか Time の予約語は避けないと、あとあと問題が多発するよ

0241デフォルトの名無しさん

NGNG

Form_Unloadで他にウィンドウが開かれてるかチェックしてメッセージを出しているのですが
そのままアプリケーションが終了してしまいます。何かいい方法はないでしょうか？

0242デフォルトの名無しさん

NGNG

>>241
Cancel使ってる？

0243デフォルトの名無しさん

NGNG

Form_QueryUnload

0244デフォルトの名無しさん

NGNG

>>241
各フォームのQuery UnloadイベントのところでCancel=1と書いておくべし。
Private Sub Form～ Query Unload
If ウィンドウを閉じたくない then
Cancel=1
End If
End Sub

0245デフォルトの名無しさん

NGNG

http://yahooo.s2.x-beat.com/linkvp/linkvp.html

0246デフォルトの名無しさん

NGNG

>>245
参考になりました。

0247デフォルトの名無しさん

NGNG

山崎渉はPerlスクリプトで自動書き込みをしてるんですね。わかりましたありがとうございましたお前ら死んでください

0248デフォルトの名無しさん

NGNG

>>247
　　　　/＼＿＿_／ヽ　　ヽ
　　／　　　　::::::::::::::::＼　つ
　 . | 　,,-‐‐　　‐‐-､ .:::|　わ
　　|　､_(o)_,:　 _(o)_,　:::|ぁぁ
. 　 |　　　　::<　　　　 .::|あぁ
　　＼　 /( [三] )ヽ ::／ああ
　　　／｀ー‐--‐‐―´＼ぁあ

0249206

NGNG

VB6.0探し中の>>206ですが、ネット通販ではどこでも
Visual Studio 6.0 Enterprise Edition以外は手に入らないようでした。

店舗回って探すのもちょっと大変なので、引き続き入手情報お願いします。

0250デフォルトの名無しさん

NGNG

質問

aspをローカルでテストしたいんだけど、やりかた忘れた。
検索してもそれらしい方法が出てこないので、教えてほしいんだけど。
ｏｓはwin98で、http/cgi実行環境は入れてあります。

0251デフォルトの名無しさん

NGNG

>>250
127.0.0.1
localhost

0252デフォルトの名無しさん

NGNG

ようやく解決しますた。

>251
ありがと

0253デフォルトの名無しさん

NGNG

開いている２３２Cポートのハンドルを、
ポート番号から取得するにはどうすればいいですか？
具体的に使用するAPIなどを教えてもらえるとたすかります。

0254213

NGNG

「dateAdd() 時差」でググったところ、
Now()-7/24
で7時間前が表示されることが分かりました。
ヒントをくださった方ありがとうございます。

0255デフォルトの名無しさん

NGNG

>>254
あほだろ。DateAdd関数使えってアドバイスなのにな。

0256デフォルトの名無しさん

NGNG

>>255
はいはい。よかったね

0257デフォルトの名無しさん

NGNG

Dreamweaverのようなテキストとタグのうち片方を変更するともう片方も同時に
変更されるようなHTMLエディタを作っているのですが、同期がなかなか
うまくいきません。
なにかいい方法ないでしょうか。
WinXP + VB6.0 SP5

0258デフォルトの名無しさん

NGNG

>>257
現在の問題点を書いたほうがレスがつくでしょう。
たぶん。

0259257

NGNG

えっと、左と右にRichTextBoxがあります。
左はテキスト（フォント情報を含み）だけの編集でタグはないです。（HTML表示みたいなもの）
右は左のやつがタグを含んで表示されるようにしています。
左のテキストを変更すると同時に右のタグの部分も自動で変更したいのですが、
位置の取得やどのタグとつながっているかなどをどうすればいいか悩んでいます。

0260デフォルトの名無しさん

NGNG

>>257
同期もなにも、Changeイベントで他方を再描画するだけじゃん。
循環イベントが発生しないように、Clickイベントで作業フラグを立てて。

0261デフォルトの名無しさん

NGNG

>>260
そういう問題なのか？

0262デフォルトの名無しさん

NGNG

VBでやろうとする辺り男よのう。

0263デフォルトの名無しさん

NGNG

みなさん　すいません　教えて下さい　

下記の検索文字テーブルと検索対象テーブルを比較して検索文字テーブル存在する
検索対象テーブルのデータ前後に決まった文字列を可能なのでしょうか

・検索対象テーブル
　［内容］
　　可能表現には人が意志を持って何かをする

・検索文字テーブル
　［内容］
　可能表現
　人が
　意志を
　持って

・検索結果格納テーブル
　［内容］
　 <A>可能表現<B>には<A>人が<B><A>意志を

<B><A>持って<B>何かをする。

最終的に　ＨＴＭＬに変換したいので宜しくお願いいたします

0264初心者

NGNG

ドコモのＮシリーズの、作動を止めたり、メモリを消したりするプログラムを探しています。そうゆうのって実在しますか？

0265デフォルトの名無しさん

NGNG

>263　マルチ氏ねよ

0266デフォルトの名無しさん

NGNG

>>263
マルチな上に意味不明。
＞決まった文字列を可能なのでしょうか

>>264
なんでこのスレに？
携帯板でも逝けよ。

0267264

NGNG

携帯板いったら、ここをすすめられたのですが…。ここじゃわからないですよね、すいません。ぷろぐらまー板で聞くべきですか？

0268デフォルトの名無しさん

NGNG

>>267
本当にVBｽﾚで聞くように言われたのか？
携帯板の領分だろ。最悪でもソフト板か。
君の言うプログラムとは出来ているソフトのことだろう。
ここは、そのソフトを作るプログラムの話をする板だ。

携帯板逝くか、店で聞け。
要望が要望だけにどこ逝っても嫌がられるだろうけどな。
特に君の知識ではヤバい。そこまで困ってないなら諦めた方が賢明だよ。
興味本位で動くと後悔しそうだ。

0269デフォルトの名無しさん

NGNG

それ以前に日本語がｱﾚだって事に気付け。

0270デフォルトの名無しさん

NGNG

すまん。263は俺が作った人口知能だ。
まだうまくしゃべれなくてみんなに迷惑かけた。
改良します

0271デフォルトの名無しさん

NGNG

すまん。270は俺が作った人工知能だ。
まだうまくしゃべれなくてみんなに迷惑かけた。
改良します

0272デフォルトの名無しさん

NGNG

>>271
いや、お前と同程度には喋れていると思われ

0273デフォルトの名無しさん

NGNG

マ板に行ったら更に板違いだな。その次はオカ板か？

0274デフォルトの名無しさん

NGNG

すまん。>272は俺が作った人工知能だ。
幼児レベルまではなんとかなったおかげで、煽りだけはできるようになった。
もっと改良します

0275デフォルトの名無しさん

NGNG

放置しろ

0276デフォルトの名無しさん

NGNG

すまん。>275は俺が作った人工知能だ。
乳児レベルまではなんとかなったおかげで、「放置しろ」だけはいえるようになった。
もっと改良します

0277デフォルトの名無しさん

NGNG

>>275 ｽﾏｿ

0278デフォルトの名無しさん

NGNG

ﾂﾏﾝﾈ

0279デフォルトの名無しさん

NGNG

>>276
ｻﾑｽｷﾞdeath

0280デフォルトの名無しさん

NGNG

すまん。>275は俺が作った人工知能だ。
すくりぷと覚えたおかげで、「ｻﾑｽｷﾞdeath 」だけは自動書き込みできるようになった。
もっと機能アップします

0281デフォルトの名無しさん

NGNG

>>280

0282デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧ… VB初心者質問スレ Part24

　　　　第一部　　野望編　　完

0283デフォルトの名無しさん

NGNG

>>264 実在するよ。その携帯組み込みのOS。

0284デフォルトの名無しさん

NGNG

VBで人工無能の作り方をおしえれ。

0285デフォルトの名無しさん

NGNG

Sub Main()
Form1.Caption = 284
End Sub

0286デフォルトの名無しさん

NGNG

どなたか教えて頂きたいのですが、環境はVB6・SP5です。
テーブルにレコードを追加するときに、値が入ってないとエラーがでます、
そこで下記のコードを記述たのだが、思うように回避できません。
Private Sub Check()　　
If txtId.Text = "" Then
MsgBox "IDを入力してください"
Exit Sub 'ここで中断したいのですが
End If
End Sub
Private sub cmdAdd_Click()
Call Check
rs.AddNew
txtId.SetFocus
End Sub
ばかな質問で申し訳なですが、どなたかご教授おねがいします。

0287デフォルトの名無しさん

NGNG

Private Function Check() As Boolern　　
If txtId.Text = "" Then
MsgBox "IDを入力してください"
Check = True
Exit Sub
End If
End Sub
Private sub cmdAdd_Click()
If Check = True Then Exit Sub
rs.AddNew
txtId.SetFocus
End Sub

0288デフォルトの名無しさん

NGNG

>286

値をいれてください

0289286

NGNG

>>287さん
すばやい回答本当に有難うございます。
無事解決しました。
もっと勉強して迷惑かけないよう頑張ります。

0290デフォルトの名無しさん

NGNG

VB6でSetLayeredWindowAttributesを使わないで
Formを半透明化するには
どのような方法があるか教えていただけませんか・・・？

0291デフォルトの名無しさん

NGNG

>>290
基本的には無理。マスク状のリージョンを作ってそれを適用するとか、適当な
タイミングでフォーム下の背景とアルファブレンドしたイメージを描画するか。かな。

0292デフォルトの名無しさん

NGNG

>>290
どっかのサイトにあったんだが、遅くて使い物にならんかった。

0293デフォルトの名無しさん

NGNG

>>249
MSDN Professional のサブスクライバダウンロードにVS6Proがある

0294デフォルトの名無しさん

NGNG

ツールバーのアイコンって自分で作るんですか？
エクセルやワードで使われてるものを使いたいです。どこかに用意されたり
はしてないのでしょうか？

0295デフォルトの名無しさん

NGNG

>>294
CDの中をICOで検索。

0296デフォルトの名無しさん

NGNG

CDの中をBMPで検索。

0297デフォルトの名無しさん

NGNG

俺は昔VB増強で配ってた開発者向けアイコン集みたいな奴のつかってる。
あれはすごい。
よく使うやつがほとんどそろってる。

0298294

NGNG

>>295-296
見つかりました。素早いﾚｽありがとございます。助かりました。

0299デフォルトの名無しさん

NGNG

電話番号の入力形式をチェックをしたいのですが、
どうしたらいいのでしょう。
地域によっても違うし、携帯だと桁まで違うし・・・

0300デフォルトの名無しさん

NGNG

>>299
何をエラーにしたいのですか？
国番号とかもあるし、0123-xxx-xxx#1234 などもあるし。
また、桁は増えないともかぎりません。かけて繋がるか以外は難しいのでは。

0301299

NGNG

>>300
返答ありがとう
一応数字とハイフン以外だとえらーにしたいのです。

0302デフォルトの名無しさん

NGNG

>>301
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Chr(KeyAscii)
Case "0" To "9", "-", vbKeyReturn, vbKeyTab
'OK
Case Else
KeyAscii = 0'Error
End Select
End Sub
あとは色々考えて下さい。

0303デフォルトの名無しさん

NGNG

>>302
それだとコピペに効かないという罠が。
(BS等の編集キーもきかない？)
チェンジイベントでチェックも欠かせない。

0304デフォルトの名無しさん

NGNG

>>302は考える余地を与えてあげてんでしょ。
勉強のね。

0305デフォルトの名無しさん

NGNG

>>303
BS等はわざとだが、コピペは忘れてた。
昔、痛い目にあったんだがな・・・

0306301

NGNG

ありがとうございました。
なんとか頑張ってみます・・・。

0307デフォルトの名無しさん

NGNG

マスクエディットコントロールを使うのはどうよ。反則？

0308デフォルトの名無しさん

NGNG

Functionプロシージャを再起的に使ってるのですが
戻り値を返したり、返さなかったりします
何が原因なのでしょうか？

0309デフォルトの名無しさん

NGNG

それだけの情報でどう答えろと・・・

0310デフォルトの名無しさん

NGNG

>>308
おまえ

0311308

NGNG

'再起的に画像のあるフォルダを検索
Private Function SearchFldPrev() As String
'**前のフォルダに移動
idx = List1.ListIndex
Debug.Print "idx=" & idx
If idx > 0 Then
idx = idx - 1
List1.ListIndex = idx
Dir1.Path = List1.List(idx)
File1.Path = Dir1.Path

If File1.ListCount = 0 Then
'ファイルが無ければさらに前へ
Debug.Print "ファイルが無ければさらに前へ" & Dir1.Path
SearchFldPrev
Else
'ファイルがあるならパスを返す
Debug.Print "ファルがあった" & Dir1.Path　　’ここではちゃんとパスが通っている
Debug.Print "list1.list(idx)" & List1.List(idx)　
SearchFldPrev = Dir1.Path　’ここでからっぽの値を返している
End If
Else
'リストが先頭なので終了
End If
End Function

List1にはサブフォルダが列挙されてます。ファイルがないので再起を何度か繰り返して検索し、ファイルがあったので
そのパスを返すのですが、からっぽのが返ります。
ファイルがあればそのパスをちゃんと返すのですが、無くて再起を繰り返すと値を返さなくなる

0312308

NGNG

見え難いのでもういっちょコピペ

'再起的に画像のあるフォルダを検索
Private Function SearchFldPrev() As String
'**前のフォルダに移動
　　　idx = List1.ListIndex
　　　Debug.Print "idx=" & idx
　　　If idx > 0 Then
　　　　　　idx = idx - 1
　　　　　　List1.ListIndex = idx
　　　　　　Dir1.Path = List1.List(idx)
　　　　　　File1.Path = Dir1.Path

　　　　　　If File1.ListCount = 0 Then
　　　　　　　　　'ファイルが無ければさらに前へ
　　　　　　　　　Debug.Print "ファイルが無ければさらに前へ" & Dir1.Path
　　　　　　　　　SearchFldPrev
　　　　　　Else
　　　　　　　　　'ファイルがあるならパスを返す
　　　　　　　　　Debug.Print "ファルがあった" & Dir1.Path　　’ここではちゃんとパスが通っている
　　　　　　　　　Debug.Print "list1.list(idx)" & List1.List(idx)　
　　　　　　　　　SearchFldPrev = Dir1.Path　’ここでからっぽの値を返している
　　　　　　End If
　　　Else
　　　　　　'リストが先頭なので終了
　　　End If
End Function

0313308

NGNG

戻り値受け側では
strReturn = SearchFldPrev
Debug.Print "strreturn=" & strReturn
このように確認してます

0314デフォルトの名無しさん

NGNG

VBから少しズレるかもしれないのですが、
http://ja.gotdotnet.com/quickstart/winforms/doc/WinFormsIeSourcing.aspx
これと同じようなことをしたいのですが、
ここのサンプルを動かそうとしても、オブジェクトはロードされるものの実行されません。
.Net Frameworkはv1.0.3705が入っています。
何かやるべきことがあるのでしょうか？

0315デフォルトの名無しさん

NGNG

>>313
SearchFldPrev = SearchFldPrev()

0316315

NGNG

>>313
補足
>>312の2個目のIfの中な。

0317308

NGNG

>>315
おおお！うまくいきました
ありがとうございます！！

SearchFldPrev = SearchFldPrev()
これはいったいどういう意味なのでしょうか？

0318315

NGNG

>>317
いや、どうもこうも、
>SearchFldPrev = SearchFldPrev()
これがまさに、再起呼び出しといわれる部分じゃねーのか？
自分自身で呼び出したSearchFldPrev()の戻り地を受け取ってやらにゃ。

0319デフォルトの名無しさん

NGNG

>>318
・・・・・・・・。

0320315=318

NGNG

>>319
なんか間違ってる？
間違ってるなら教えてください。

0321308

NGNG

'サブフォルダを再起的にすべてリストに書き込む

Private Sub SubFldGet(dirpath)
Dim fs, f, sf

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(dirpath)
Set sf = f.subfolders

'フォルダを列挙する

List1.AddItem dirpath

'***サブフォルダを検索
'書き込みできないエラーを抑制
On Error Resume Next
For Each sf In f.subfolders

SubFldGet dirpath & sf.Name & "\"　　'******再起呼び出し部分
Next

On Error GoTo 0
Set fs = Nothing
Set f = Nothing
Set sf = Nothing
End Sub

この場合はSearchFldPrev = SearchFldPrev() こういう書き方しなくても
再起できますよね・・・・。Function特有？

0322デフォルトの名無しさん

NGNG

>>321
そっちのコードは引数渡してるじゃん。

0323315=318

NGNG

>>321
308=319なのか？

そりゃおまえ、Functionだろうが、Subだろうが中で何をしているかによるだろ。
>321のSubの場合は、Sub内でList1に書き出しているから、
何回Subを再起しようがList1は更新されるだろ。
>312のFunctionは最終的な結果としてFunctionの戻り値を必要としているだろ。
SearchFldPrev=SearchFldPrev
としなかった場合、再起呼びしたSearchFldPrevの戻り地はどこへ消えるんだ？
一番最初に呼びだしたところまで、一番最後に呼び出したFunctionの戻り値を
持っていかなきゃいけないんだぞ？

0324308

NGNG

んーなんとなくわかるようなわからないような・・
戻り値はDir１に書き出してるのでいけるかと思ったのですが・・・
もう少し勉強しまっす

ちなみに>>319は私ではないです

0325308

NGNG

ちなみに再起ではなく再帰でした

0326315=318

NGNG

>>324
おいおい、Dir1が必要ならそのままで問題ないんじゃないか？
おまえ>>308で
>戻り値を返したり、返さなかったりします
っていってるから、戻り値を返す方法を教えたんだぞ。

0327308

NGNG

いや、戻り値が必要です
ファイルが見つからなかったことを確認するために

ただ、わからないのが

Debug.Print "ファルがあった" & Dir1.Path　　’ここではちゃんとパスが通っている
SearchFldPrev = Dir1.Path　’ここでからっぽの値を返している

このように直前までDir1.Pathがあるのに値が戻らないのが理解できなくて

SearchFldPrev=SearchFldPrev

これをしなければ、どこに値を返していいのかわからなくなるから
値がちゃんと戻らないって理解でいいですか？

0328308

NGNG

再帰って内部はチェイン構造になってるのかな？
リンクさせないとデータが相互利用できないのかな？

0329315=318

NGNG

>>327
>SearchFldPrev = Dir1.Path　’ここでからっぽの値を返している
ここでは空の値は返してないぞ。
空の値を返しているのは、
File1.ListCount = 0
だった場合だ。

ステップ実行で追ってみろ。
空の値を返す場合はIf ～ Then側を
空の値を返さない場合はElse側を通っているはずだ。

0330308

NGNG

>>329
ステップ実行してきました

流れは　
SearchFldPrev
と
SearchFldPrev=SearchFldPrev()
ではまったく一緒でした
でも戻り値は
SearchFldPrev
ではありませんでした
最終的にどちらもelse側を通って（ファイルがあったので）います。

>空の値を返す場合はIf ～ Then側を
>空の値を返さない場合はElse側を通っているはずだ。
確かに、一度もif～then側を通らなければ空じゃないのですが
一度でも通ると空になります

SearchFldPrev=SearchFldPrev()
これは参照値を引き継がせているのですね

0331デフォルトの名無しさん

NGNG

本日のスペルミス
on erroro gogo

0332デフォルトの名無しさん

NGNG

デバッグのやり方を手取り揚げ足取り、一から親切に教えてくれるスレはここでつか？

0333デフォルトの名無しさん

NGNG

>332

ちがうからとっととうせろ

0334デフォルトの名無しさん

NGNG

あるアプリ内で、自作のＤＬＬをDeclareでステートメントでフルパスで宣言しています。
これをVisual Studioがインストールされているマシンでコールした時は問題なくコールできるのですが、
Visual Studioが入ってないマシンで実行すると、そのDLLが見つからないらしく、
実行時エラー'53'が発生してしまいます。
試しにフルパスをやめて、そのDLLをMSDNに書いてある、EXEのディレクトリやカレント、
システムディレクトリ、Windowsのディレクトリなどに置いてもファイルが見つかりません。
この現象はどうやったら回避できるのでしょうか。

0335334

NGNG

ちなみにOS:Windows2000、VB6.0（SP5)です。

0336動画直リン

NGNG

http://homepage.mac.com/hitomi18/

0337デフォルトの名無しさん

NGNG

>>334-335
その DLL 自身に必要なランタイムとかがねーんじゃないの

0338334

NGNG

>>337
そのとおりでした。
失礼しますた。

0339デフォルトの名無しさん

NGNG

金額を入れるテキストボックスに3桁ごとの区切りカンマを入れたいのですが、
カンマだけ消した時の処理とかすごくややこしくなって困っています。
こういう時は、通常、どういう処理をするものですか？
カンマ入れること自体しないのが正解でしょうか。

0340デフォルトの名無しさん

NGNG

changeイベント毎に
text1.text=format(replace(text1.text,",",""),"###,###,###,###")
text1.selstart=len(text1.text)
じゃだめ？

0341デフォルトの名無しさん

NGNG

>>339
ぐれーぷしてぃに頼め

0342デフォルトの名無しさん

NGNG

VBScriptのwindow.clipboardData.setData "text", 文字列
でダブルクオーテーションを文字列の部分に加えたいんですよ。
で、どうやったら"を加えられるでしょう？

0343デフォルトの名無しさん

NGNG

0344デフォルトの名無しさん

NGNG

>>339
Excel風に表示だけ、が無難。仕事なら341の通り。
ガンコな客には金をふんだくってから。趣味なら好きにしれ。

0345デフォルトの名無しさん

NGNG

""text""

0346342

NGNG

自己解決。
window.clipboardData.setData "text", chr(34)+"文字列"+chr(34)

0347デフォルトの名無しさん

NGNG

>>346
>>343、>>345は無視かい。

0348デフォルトの名無しさん

NGNG

複数のコントロールを1つにまとめたような形で扱いたいのですが
何かいい手段はないでしょうか？
クラスでいくつかコントロールを組み込んだ形で使おうとしましたが
エラーがでて駄目でした。
基本的に表示、非表示、移動をスマートにできればいいです。

0349デフォルトの名無しさん

NGNG

>>348
ピクチャーボックスの上にでもコントロールを作ったらいーんじゃねーの？

0350デフォルトの名無しさん

NGNG

>>348
UserControlにでもしては?

0351デフォルトの名無しさん

NGNG

質問。
IDEのエディタで改行関係無しにカーソル移動できませんか？
いちいち出る警告は消せたのですがこれができないのは個人的に嫌なので。

0352デフォルトの名無しさん

NGNG

↑なんか文章おかしいけどﾖﾛｼｸ

0353デフォルトの名無しさん

NGNG

改行でカーソルの位置の制限が無いエディターを使う。

0354デフォルトの名無しさん

NGNG

>>353
ｳﾜｰﾝやっぱそうなのかよー
ｻﾝｸｽ

0355デフォルトの名無しさん

NGNG

OSがWinXPだけに起こる問題だと思うのですが、
「FileListBox」に黒い枠が必ず表示されてしまい、プロパティを色々いじっても消せません。

黒い枠線を消す方法は無いのでしょうか？

0356デフォルトの名無しさん

NGNG

>>351
VB.NET なら、そういう設定にもできるよ。

0357348

NGNG

>>349-350
なるほど。ピクチャーボックスの方が簡単そうですが、
UserControlのほうが拡張性が高そうですね。
参考になりました。有難うございました。

0358デフォルトの名無しさん

NGNG

sdiフォームで作成しているのですが、windowsの画面領域サイズを縮小すると
画面に収まりきらず途切れてしまいます。これを回避する方法はMDIフォームに
する以外方法はないのでしょうか？よろしくお願いします。

0359デフォルトの名無しさん

NGNG

>>358
スクロールバーつけて自力で動かす。

0360デフォルトの名無しさん

NGNG

>>359
収まらなかった部分は本当に切れちゃっていてないんです；
右1/4、下1/4ばっさりなくなっちゃうんです・・・

0361デフォルトの名無しさん

NGNG

>>360
たとえば
Picture1.AutoRedraw = True
にしてもダメだというの？

0362358

NGNG

>>361
これから試してみます。そんなものがあったのですね。無知で恥ずかしいです。

0363358

NGNG

>>361
結果からいうと駄目でした；　現象は同様で途切れてしまいます。
MDIフォームにするしかないんでしょうか？

0364デフォルトの名無しさん

NGNG

>>363
画面よりもでかいソフトを作りたいわけ?

0365358

NGNG

>>364
はい。表示環境に依存することなく、画面より大きくても一応使用可能なものを
つくりたいなと思っているんです。

0366デフォルトの名無しさん

NGNG

>>365
ならばUIを考えないと。
というか、他のソフトがどんな作りをしてるか、参考にしましょう。
やってるのは一つの画像表示だけ？

0367デフォルトの名無しさん

NGNG

>>366
そうですか。わかりました。他のアプリを調査してみます。

>やってるのは一つの画像表示だけ？
画像というか知人（先輩）の作ったOCXでグラフを一つ表示してます。こいつ
ソースがわからないため自分じゃ小さく出来ないんです。あ、いっそのこと
画面が規定の大きさ以上でなければグラフを表示させないというのもいいかも
しれないですね。そうすれば文字列だけのコントロールばかりなのでなんとか
なるかもしれないです。

0368358

NGNG

みなさん、ありがとうございました。また自分なりに頑張ってみます。

0369デフォルトの名無しさん

NGNG

>>339
LostFocusやValidateでカンマを入れるのが普通。
あるいはそういうコンポーネントを購入するのが普通。

つうか、リアルタイムで単純にカンマを入れた場合、
ユーザインタフェース的にも使い勝手が悪くなる可能性大。

0370初心者でごめん

NGNG

VB.netでデータベースを作っていますが、メイン・サブフォームへの
編集内容が更新できません。データベースからの情報の取得は、メイン・サブ
両方できるのでリレーションには間違いがないと思いますが・・
dlete insert update Command内クエリビルダのSQL構文はデータベース確認
を終了しています。コードの間違いも特にないようです。
どんな間違いが考えられるか教えてください。

0371デフォルトの名無しさん

NGNG

VB.NETってどうやってexeファイルに変換するんですか？？

0372デフォルトの名無しさん

NGNG

age

0373デフォルトの名無しさん

NGNG

>>371
説明書を読んで下さい。

0374デフォルトの名無しさん

NGNG

>>370
DataAdapter.Update() をしてないだけだったりして。
とりあえず、コードをさらせば？

>>371
ビルドする

0375デフォルトの名無しさん

NGNG

どうでもよいが、どうしても旧バージョンの習慣が抜けきれず、反射的に
[Shift] + [F2] (=定義箇所へのジャンプ)を押してしまうよ・・・。

ところで、VB6.0の[Ctrl] + [Shift] + [F2] (元の箇所に戻る)のショート
カットは.NETではどうなってるんでせうか？

0376デフォルトの名無しさん

NGNG

プリンタで印刷をして、その終了をキャッチしたいのですが、どのような方法があるでしょうか？

0377デフォルトの名無しさん

NGNG

>>376
EnumJobs API とかで監視、かな。

0378初心者でごめん

NGNG

>>374さん有難うございます。本で見ているので、デザイン上のエラーは
　　ないと思います。UPDATEするデータはTEXTなのですがこれが原因かも？
　　（本ではinteger)。長くなりましたがよろしくお願いします。
Private Sub MainConnection_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.OleDb.OleDbInfoMessageEventArgs) Handles MainConnection.InfoMessage
End Sub
Private Sub MenuKokyaku_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
KokyakuAdapter.Fill(MainDS, "顧客名簿　本社")
KoujiAdapter.Fill(MainDS, "オーダー表")
MenteAdapter.Fill(MainDS, "メンテ表　本社")
TalkAdapter.Fill(MainDS, "会話履歴＿本社")
Call RecordPosition()
End Sub
Private Sub ChkEdit() '会話履歴の更新
Me.BindingContext(MainDS, "顧客名簿　本社.KokyakudeTalk").EndCurrentEdit()
End Sub

Private Sub MenuEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuEnd.Click
Call ChkEdit()
KokyakuAdapter.Update(MainDS, "会話履歴＿本社") 'エラー箇所
'エラーメッセージはSystem.Data.OleDb.OleDbException() '
'のハンドルされていない例外が system.data.dll で発生しました。
Application.Exit()
End Sub

0379デフォルトの名無しさん

NGNG

>>375
キーボードスキームでVB6を選べば、同じショートカットが使える。
ともあれ、「View.NavigateBackward」で検索してみそ。

0380デフォルトの名無しさん

NGNG

>>378
SqlException などを捕捉して、もっと詳しい情報を調べてみろ。
単に、フィールドのデータ型と変数のデータ型があってない、とかいうことじゃねーの？

0381デフォルトの名無しさん

NGNG

>>379
知りませんですた。(感謝)

0382355

NGNG

過去ログ見れないだよ。

誰か、「FileListBox」の黒い枠を消す方法を教えてください。
WinXP,VB6(SP5)です。

0383デフォルトの名無しさん

NGNG

VB6です。
最近VSSを入れて使い始めているのですが、VBのIDEからフォームモジュールを
チェックアウトすると、.frmと.frxの双方がチェックアウトされた形になります。
バイナリファイルの多重チェックアウトはNGらしく、この状態だと複数の端末で
1つのフォームモジュールに変更をかける事ができなくなります。

VSSから.frmだけチェックアウトすればソース部分だけを多重チェックアウトでき
るのですが、これをVBのIDEから行う事って出来るのでしょうか？

0384初心者でごめん

NGNG

>>380さんありがとうございました。がんばってみます。

0385bloom

NGNG

http://homepage.mac.com/ayaya16/

0386デフォルトの名無しさん

NGNG

0387デフォルトの名無しさん

NGNG

>383
.frmをいじれば.frxも自動的に変更されちゃうからねぇ。
VSSを多重C/Oできるようにするか、VSSやめてCVSにすれば。

0388９９９９

NGNG

超初心者VBすれ追い出されちまった。
　VBでDBするとき、でっかいほどでもない中くらいの
データの塊はどう処理するんだろ。

たとえば１レコードが
ID
名前
日付
画像
なら画像は別のファイルを作って保存するよな。そうかい？

ところが、１レコードが
ID
名前
日付
データ 100*100のinteger
見たいな時、一本のDBに保存したいな。やっぱし。
データマネージャ使うと、配列は登録できないし、どうするべ、
しこしことフィールドを１００個並べるのも癪だし。

0389デフォルトの名無しさん

NGNG

>388
あのスレで聞いてる以上ネタだと思ってたのだがマジなのかい・・・

0390９９９９

NGNG

>389
マジだよマジ。何でネタなんだよ。

0391デフォルトの名無しさん

NGNG

嗚呼ｳｻﾞｲﾉｶﾞｷﾀﾅ!

0392９９９９

NGNG

>391
　じゃ釜しい、てめえおよびじゃねーんだよ。

0393デフォルトの名無しさん

NGNG

DBでのデータの保持の仕方に関する事ならスレ違いと思われ。
DBスレにでも行って聞くがよい。

0394デフォルトの名無しさん

NGNG

>>388
バイト配列にコピー汁

0395デフォルトの名無しさん

NGNG

>>388
Integerってことは、16Bitだわな。ってことは、2バイトだと。
2*100*100の文字列フィールドを用意して、そこに入れるって手もあるわな。

0396デフォルトの名無しさん

NGNG

>>374
どうやってビルドするんでしょうか・・・。

0397９９９９

NGNG

＞３９４
　VB６．０だがバイト配列つくれるか？　できんだろ。
>395
それができれば最高だが、できんだろ。代入時にエラーしると思う。
　それに1フィールド２５６だし。

0398デフォルトの名無しさん

NGNG

>>396
メニューを全部見てみろ。ビルドってのがあるから。

0399デフォルトの名無しさん

NGNG

＞VB６．０だがバイト配列つくれるか？　できんだろ。
実用的なプログラミング言語として致命的な気がするが。

0400デフォルトの名無しさん

NGNG

>>397
Dim b() As Byte

>>398
どんな腐ったDB使ってるんだ？
SQL Serverなら、textやntext、Accessなら、Memo型があるだろ？

0401デフォルトの名無しさん

NGNG

>>400
後半も、>>397へのレスな。つけ間違えた。すまそ。

0402デフォルトの名無しさん

NGNG

バイト配列が作れなかったら致命的かもしれんな。
もちろんVB6は実用的な言語なんで作れるよ。

0403デフォルトの名無しさん

NGNG

VB6がバイト配列作れないと誤解して、
馬鹿にしようとして逆転された瞬間。

0404394

NGNG

>>397
ヒントやってんだからちゃんと調べろや
MoveMemory とかでメモリのコピー
Access なら OLE オブジェクト型 (他は知らん)

0405９９９９

NGNG

>.... おまいら、なんか勘違いしてねーー。
VB6 の　adin->VisualDataManager てあるだろ
あれでテーブル作ってる。MDB7.0どこの腐ったDBなんだよ。
俺が聞きたいわ。
　byte型はあるけど、サイズは推しても引いても１byte固定、しかできんぞ。

>400　何、メモてのはLONGTEXT (メモ型)　てなってるなー。
　こいつをバイト配列の変わりにつかえるのか？

>394
まじかよー。MoveMemoryでテキストに叩き込めってことね。
　VBでできんのかよ。　なんか期待薄ーー。
　JET３．５互換なら　OLEオブジェクト型なんてないな。
　よくわしらんが、とりあえずやってみる。

0406デフォルトの名無しさん

NGNG

>>405
とりあえずVBの基礎からやり直し。
そんな状態でVBでできんのかよ。
とか言ってもただの無知だと笑われるだけ。

0407名無し＠沢村

NGNG

おまいらよ、ＶＢってＢＡＳＩＣだよな？
おれはよ、ＭＳＸでＢＡＳＩＣいじってた頃Ｃ言語の本を本屋で立ち読みしたんだよ。
そしたすごく難しそうで「これはおれにはさっぱり理解できん」と感じたね。
だがＣやＣ＋＋を使いこなすいまＶＢのコードを見てもさっぱりわからんのよな…。
どうよ？

0408デフォルトの名無しさん

NGNG

＞おまいらよ、ＶＢってＢＡＳＩＣだよな？
違います。はい、次。

0409９９９９

NGNG

>406 VBにも基礎があるのか？　ドンなんで中華？

0410デフォルトの名無しさん

NGNG

>>409
ないよ。

0411デフォルトの名無しさん

NGNG

放置推奨。以下何事もなかったように（略

0412名無し＠沢村

NGNG

>>409
おれはＶＢは知らんが、ＶＢに基礎がることだけはわかるぞ。
というのはＶＢとはＶｉｓｕａｌＢａｓｉｃの略でＢａｓｉｃは「基礎」を意味する言葉だからよ。

0413デフォルトの名無しさん

NGNG

また沢村か

0414デフォルトの名無しさん

NGNG

>>413
そんなレスして楽しいのか？頭大丈夫？

0415デフォルトの名無しさん

NGNG

>>414 沢村ってこの板によく出没する荒らしだけど？

0416デフォルトの名無しさん

NGNG

414は沢村

0417デフォルトの名無しさん

NGNG

>>412　
そうだmsはもっと基礎（Basic)を大切にすべき。
マニュアルの整備だとか。
バグフィックスだとか。
　お客様が、何で基礎をやり直さなきゃいかんのか？
そこんとこをよく考える。

0418デフォルトの名無しさん

NGNG

放置推奨。以下何事もなかったように（略

0419デフォルトの名無しさん

NGNG

>>417
＞　お客様が、何で基礎をやり直さなきゃいかんのか？

アホか。

0420デフォルトの名無しさん

NGNG

417は沢村

0421zero

NGNG

今、計算機をプログラム化しようという課題が出ているんですが
どうも少数の読み込みに手間取っています。なんか良いアイディアがあったら教えてください。
簡単に言うと入力した物を判別し数字とドット以外だったら即エラー、以下のような物ならそのまま出力する。
123.456→123.456
使用言語はMicrosoft visual c++ 6.0です。
どうかおひとつお力貸してください！（＞。＜）SOS

0422__

NGNG

0423デフォルトの名無しさん

NGNG

VB の質問スレで VC++ のことを聞くのはどうかと思うが。
strtod

0424デフォルトの名無しさん

NGNG

>>421
>どうも少数の読み込みに
少数って何？

0425デフォルトの名無しさん

NGNG

>>424
まいのりてぃー

0426デフォルトの名無しさん

NGNG

りぽーと

0427デフォルトの名無しさん

NGNG

レジストリの特定のキー以下をREGファイルに保存したいんですが、どう書けば良いですか？

0428デフォルトの名無しさん

NGNG

>>427
自分で書き出してください。アレ、レジストリエディタの機能です。

0429デフォルトの名無しさん

NGNG

>>427
wsh使えば簡単。

0430デフォルトの名無しさん

NGNG

>>427
regedit /e [ファイル名] [キー]

0431デフォルトの名無しさん

NGNG

>376
どもです。

0432デフォルトの名無しさん

NGNG

OpenPrinter API関数の戻り値は、いつも１が返ってきますが、これは正常終了の値でしょうか
？

0433デフォルトの名無しさん

NGNG

たびたびお伺いします。
EnumJobsで情報を得た後、ジョブのStatusでは、印刷中以外のジョブでは5A66066など非常に大きな値が入っています。
これらの値には意味がでしょうか？
Tipsを見る限りでは上位のビットまではの定義は見つからないので、もし定義されていたらおしえていただきたいです。

0434デフォルトの名無しさん

NGNG

>>433
たしかプリンタメーカーが独自拡張してるんじゃなかったかな。

0435デフォルトの名無しさん

NGNG

初歩的な質問です。
MacでVBはできるのでしょうか？

0436デフォルトの名無しさん

NGNG

>>435
Virtual PCを入れればできると思うよ。

0437デフォルトの名無しさん

NGNG

>>435
MacにはRealBasicってのがありますよ。ま、金払ってやるより、ただでついてくる
ProjectBuilderの方がいいと思うけど、いずれにせよVB自体をネイティブには
できん。

0438デフォルトの名無しさん

NGNG

ExcelとかのVBAはできる

0439デフォルトの名無しさん

NGNG

みっ、水野女史ｷﾀｰ!?

0440デフォルトの名無しさん

NGNG

>>439
黙れ

0441デフォルトの名無しさん

NGNG

水野女史はまだ独身ですか？　プロポーズしたいのですが。

0442デフォルトの名無しさん

NGNG

>>441
http://www.d9.dion.ne.jp/~redroses/EnglishSchool.htm

これいいよ
VB厨は見習え

0443デフォルトの名無しさん

NGNG

もう終わったことだ。パンドラの箱をまた開けるでない。

0444435

NGNG

>>436
>>437
>>438
ありがとうございます。もうひとつ質問おねがいします。
プログラマー志望の無知な工房なのですが将来のためなら
どの言語を覚えたほうがいいでしょうか？
よろしくおねがいします。

0445デフォルトの名無しさん

NGNG

>>444
日本語と英語。

0446デフォルトの名無しさん

NGNG

>>444
何か一つの言語を言う奴は全部間違い。

0447427

NGNG

「regedit/e HKEY_USERS\.DEFAULT\AppEvents\Schemes\Apps\MPlayer >d:\aa.txt」
と、MS-DOSでやってみましたが何も保存されません。スクリプトを用いた書き出し方を教えてください。
>>429
ぜひ、教えてください

0448デフォルトの名無しさん

NGNG

>>444
Delphiがいいよ。

http://www.borland.co.jp/delphi/personal/

0449デフォルトの名無しさん

NGNG

>>448は荒らしです。放置推奨。

0450デフォルトの名無しさん

NGNG

>>448
自分の巣へｶｴﾚ

0451デフォルトの名無しさん

NGNG

>>447
MS-DOSにレジストリはないからです。

0452デフォルトの名無しさん

NGNG

>>447
">"はいらねーよ

0453デフォルトの名無しさん

NGNG

VB6でポインタは使えないでしょうか？
ObjPtrで構造体のポインタの取得方法はわかりましたが、
そのポインタから構造体の値を取得するやり方が分からないんです。
どなたか教えていただけないでしょうか？

0454デフォルトの名無しさん

NGNG

>>452
つーか、ファイル名とレジストリ名の位置も逆だし。
あとreg.exeというのもあるね。

0455デフォルトの名無しさん

NGNG

>>453
ポインタを直接使うのは時代に逆行しているわけだし、
そんな使い方はしない方がいいと思うけどね。
どうしても使いたいなら、メンバのバイト数計算してCopyMemoryとか使えばできるよ。

0456デフォルトの名無しさん

NGNG

>>453
ByRefを使えばいいよ。

0457453

NGNG

>>455
ユーザーコントロールを作ってまして、そこで画像表示が必要になってきたんです。
その画像表示には、他で使われているその構造体の値がどうしても必要でして。
内部だけで済ませたい処理だったので外部にサブルーチンとかの形は不細工ですし。
その構造体をパブリックにしてもよかったんですが
ユーザーコントロールはできるだけ独立性を保ちたかったんです。
勉強になりました。有難うございました。

0458453

NGNG

>>456
レス有難うございます。
>>457のような処理でByrefだとどうしても不細工な形になってしまうんです。
ユーザーコントロールでForm1とかでイベントをキャッチして
そのまま画像表示のサブルーチンへその構造体とマル投げ。
ちょっとスマートじゃないのが嫌でして。

0459デフォルトの名無しさん

NGNG

構造体をラップするクラスを作るっていうのはダメかな

0460デフォルトの名無しさん

NGNG

VB6(SP5) + Windows2000 環境で面白い現象を見付けました。

新しいプロジェクト(標準)を作成
コンポーネントで「Microsoft Windows Common Controls 6.0 (SP4)」を選択
フォーム上にツールバーを配置
Form_LoadイベントにEndステートメントを記述
コンパイル

上のようにして作成したファイルを実行するとEndステートメントが実行された後にフォームが表示されます。
この状態ではイベントに反応するコードはすべて無視されます。

通常の動作をさせたい場合の対処をご存じの方、方法をご教示願います。

0461デフォルトの名無しさん

NGNG

Endなんて使うヤシは

0462460

NGNG

>>461
できれば使いたくないんですが、社内共通のプロシージャに使われてしまっているのです。
私にそのプロシージャの修正権はありません。

0463デフォルトの名無しさん

NGNG

ＶＢ初心者です。
WindowsMe上のディストリビューションウイザードで作成した配布プログラムは
WindowsXP上で実行しても大丈夫なんでしょうか？　
WindowsNT/2000ではだめだった記憶がありますが・・・
宜しくご教授お願いします。

0464デフォルトの名無しさん

NGNG

>>463
やってみたら？

0465463

NGNG

>>464
それが会社にXPのマシンがない為、試す事ができないでおります。
XPだと大丈夫な様な気もしますが・・・
XPのマシンのレンタルも考えましたが１日レンタルが見つかりません。
ユーザ様のインストール作業（本番）＝テスト　にならない様にしたいのですが
どなたかご存知の方教えてくださいませ。

0466な

NGNG

>>460
Endする前に、unload me すればうまくいくようです。

なぜうまくいくのかは知りませんが。

0467デフォルトの名無しさん

NGNG

>>465
XPでこそダメだった気がしますが定かではありません。
心配ならInstallShieldやVisual Studio Installerなど
複数のインストーラで作って持ってくとかでどうですか。

ttp://www.asia.microsoft.com/japan/msdn/vstudio/downloads/vsi/default.asp

0468463

NGNG

>>467
そうですか参考になりました。ありがとう御座います。

0469デフォルトの名無しさん

NGNG

MSFrexGridの使い方が分かりません。
どうにかしてください。おながいします。

0470デフォルトの名無しさん

NGNG

↑放置で

0471デフォルトの名無しさん

NGNG

そんなこと言わないでホントおながいします。困ってるんです。助けて下さい。

0472デフォルトの名無しさん

NGNG

↑報痴で

0473デフォルトの名無しさん

NGNG

分かりました。
あなた達も分からないなら分からないって言えばいいじゃないですか。
わたしだって恥を忍んで、こうやって聞きに来ているんです。
それをなんなんです？
放置ですか？
人としておかしいと思わないんですか？

0474デフォルトの名無しさん

NGNG

【Microsoft FrexGrid Control 6.0】
１．貼りつけて，任意の大きさに調節してください
２．忘れないうちにｵﾌﾞｼﾞｪｸﾄ名を変更してください
３．ﾌﾟﾛﾊﾟﾃｨﾍﾟｰｼﾞを表示して「行」「列」を変更してください
　　（他のはどうでもいいっス）
４．必要に応じて .TextMatrix(行,列) で値を利用してください

0475デフォルトの名無しさん

NGNG

>MSFrexGridの使い方が分かりません。
>どうにかしてください。おながいします。

「使い方を教えれ」とは書いてないね・・・

0476デフォルトの名無しさん

NGNG

>>473
何がわからないか書いてないのにどう答えろと言うのだ
すべて説明せよと言うのかな。

0477デフォルトの名無しさん

NGNG

>>473

> 人としておかしいと思わないんですか？

>>473はあきらかに人としておかしいね。

0478デフォルトの名無しさん

NGNG

たのみますみなさん。

　　　　　　　　　　　　　　　　　　放　　　　　　　　　　　置　　　　　　　　　で　　

0479427

NGNG

できました!!感動です。どうも>>430さん、>>452さんありがとうございます。（何か、すれ違いですが）

0480460

NGNG

>>466
ありがとうございます。
ですがEndステートメントは共通のプロシージャ内にあるためUnloadできません。

仕方がないのでtoolbarの使用をあきらめました。

0481デフォルトの名無しさん

NGNG

>>480
修正権が無いのは分かるが、ここら変の事情を上に伝えたか？
下のものは下のものらしく自分だけで解決しようとするなよ。

0482デフォルトの名無しさん

NGNG

被害を食うのは客/ユーザだからな。

0483435

NGNG

>>446
>>448
ありがとうございます。勉強になります。
>>445
ﾜﾗﾀ

0484デフォルトの名無しさん

NGNG

>>483
おぃ・・・445は真面目に書いたんだぞ・・・

0485デフォルトの名無しさん

NGNG

マジで英語は覚えておけ。
日本語（ローマ字含む）のフィールド名を平気で使おうとするへたれプログラマーは逝くべきだ。

0486デフォルトの名無しさん

NGNG

>>483
接続詞の使い方、句読点の使い方くらいは最低でも抑えておくべきだね。>日本語

0487デフォルトの名無しさん

NGNG

>>483
>>445を冗談としか取れない香具師はプログラマーになるな。

0488デフォルトの名無しさん

NGNG

txtNamae
txtJyuusyo
txtDenwa

　　…　(´･c_・｀)

0489デフォルトの名無しさん

NGNG

>>488
住所は Zyusyo or Jusho だと思う
少なくともJyuではない

0490デフォルトの名無しさん

NGNG

ローマ字だと「ジュ」は「Jyu」であってると思うが。
少なくとも「Zyu」これは無理矢理だなぁ。

0491デフォルトの名無しさん

NGNG

>>490
小学校で何を習ったんだ…
http://www.johoka.net/warpro.htm

0492デフォルトの名無しさん

NGNG

VB6(SP5)でWin2000環境なんですが、VBからデバイスマネージャ（devmgmt.msc）を開いて
デバイスの更新をさせたいのですが直接devmgmt.mscを開く方法はありますでしょうか。

現在はshellでsysdm.cplを開いてsendleysでTABとENTERを送ってデバイスマネージャを
開かせているのですがsendkeysはどうも不安定といいますかたまにしくじってしまいます。

ご教授よろしくお願いいたします。

0493斉藤せいろく

NGNG

ByVal, ByRef

0494デフォルトの名無しさん

NGNG

>>485
漢字，かなは論外だが、日本の役所などのシステムでどうしても英語にしづらい
モノが大量にあるときは、ローマ字は可でしょう。

0495デフォルトの名無しさん

NGNG

みんなは日本語の変数名を使わないの？

0496通りすがり

NGNG

使います。

0497デフォルトの名無しさん

NGNG

>>495
変数1 = 1024 とか？
使う必要が無いからな。

0498デフォルトの名無しさん

NGNG

>>496
同士発見!!

>>497
分かりやすくていいじゃねーかよぉ

0499デフォルトの名無しさん

NGNG

なんか混乱してるようなので。
「じゅ」のローマ字表記
ヘボン式：「Ju」
外務省パスポート式：「Ju」（ヘボン式ベース）
日本式・訓令式：「Zyu」
JISX4063：原則「Ju」で亜流として「Jyu」を容認

自分としてはヘボン式に慣れ親しんでいるため
「Zyu」「Jyu」には違和感がありますが。

0500496

NGNG

実例
１：ＤＢの項目が日本語で定義してある場合
２：英語だと馴染みにくく、わかりにくい場合
　（金融の用語なんか英語にするとまぎらわしくてわからん）

可読性を高めるためには、たとえ自分がわかっていても
あえてローマ字による表記をとるのは普通のことだと思う。
マジレス

0501デフォルトの名無しさん

NGNG

俺は変数には使わない。いちいち漢字変換するのがめんどいからな。
効率が悪い。

0502デフォルトの名無しさん

NGNG

分からないからってaとかbとかvar1とかvar2とかやるよりは、ローマ字使った方がよほどいい。

0503超漢字

NGNG

おまえらバカか？

0504デフォルトの名無しさん

NGNG

超漢字にVBを移植してくれないかな

0505496

NGNG

>>503
単にバカっていうよりゃ論拠を示して
こうだからバカっていったらどう？
これじゃただの煽り。

0506デフォルトの名無しさん

NGNG

>>505
通りすがりがいつまでも居座ってんじゃねーYO

0507デフォルトの名無しさん

NGNG

なんつうのか、
ただの煽りがいるな・・・。

0508デフォルトの名無しさん

NGNG

たとえわずかな可能性であっても余計なトラブルをしょいこみたくない＆
個人的な好みから、ダブルバイトの変数名は使わないようにしている。
だが、前に作った複雑な予算計算用のシステムでは、やむをえず
漢字の変数名を使用。特に問題は起きなかった。

0509デフォルトの名無しさん

NGNG

>495
M$が公式に「オブジェクトや変数の名称に日本語使うな」と言っている以上使うべきではない。

0510デフォルトの名無しさん

NGNG

>>495
見たい！ソースｷﾎﾞﾝﾇ

0511デフォルトの名無しさん

NGNG

M$が「今回のバージョンからマルチバイトの変数はできません」
といわれたら終りだからなあ

0512デフォルトの名無しさん

NGNG

わざわざIME起動してまで日本語変数名使う理由が解らん。

0513デフォルトの名無しさん

NGNG

Form1、Form2があるとして、Form1からForm2を呼んだときに
Form2を閉じるまでForm1がアクティブにならないようにするにはどうしたらよい('A`)？

0514デフォルトの名無しさん

NGNG

>>512
ケースバイケースでしょ。
好き好んで日本語変数名使うﾔｼは少ないと思われ。

0515513

NGNG

ああ、vbModalだったか・・・
なんか他にいい方法あったらﾖﾛｽｸ('A`)ﾉ

0516デフォルトの名無しさん

NGNG

>>513
Form2.Show vbModal
だったっけかな。モーダルで開け。

0517デフォルトの名無しさん

NGNG

>>513
Form2.Show vbModal, Me

0518513

NGNG

>>516
>>517
レスｻﾝｸｽｺ('A`)ﾉ

激しく初心者質問で正直すまんかった

0519デフォルトの名無しさん

NGNG

>>518
ここは初心者版だから気にせずなんでも聞いとくれ。

0520デフォルトの名無しさん

NGNG

読むに値しない糞スレはここですか。

0521デフォルトの名無しさん

NGNG

って読んでるやん。

0522デフォルトの名無しさん

NGNG

>520さんは何かいやなことでもあったのですか？

0523デフォルトの名無しさん

NGNG

GWとれなかったやつのうめき声

0524デフォルトの名無しさん

NGNG

>>523
うめき声について調べテレポートかけ。

0525デフォルトの名無しさん

NGNG

テレポートは無理。

0526デフォルトの名無しさん

NGNG

>>525
warata

0527522

NGNG

>523

今日とか休みなの？

0528デフォルトの名無しさん

NGNG

GW中に徹夜ですが，何か？

0529デフォルトの名無しさん

NGNG

VB.NETで質問なのですが、
TextBoxの入力可能な文字を、特定の英数字にしたいのですが、
KeyDownイベントの処理の中でで、その特定の英数字以外は
無処理(キーが押されなかった事)としたいのですが、どうすればいいのでしょうか？

0530bloom

NGNG

http://homepage.mac.com/ayaya16/

0531デフォルトの名無しさん

NGNG

Ｄｅｌｐｈｉを使いましょう。
走すればあなたに幸せが訪れます。多分に。

0532デフォルトの名無しさん

NGNG

>>529
VB.NETスレへどうぞ

0533デフォルトの名無しさん

NGNG

マウスを押し続けているときに、その動作をキャッチするにはどうすればいいでしょうか？
（スクロールバーで、上下のボタンを押し続けたときのような時です）

0534デフォルトの名無しさん

NGNG

>>533
Down して Up してなきゃ押しとる罠

0535デフォルトの名無しさん

NGNG

>>534
そうすね。どもす。

0536460

NGNG

>>481
もちろん連絡済です。
ありがとございました。

0537デフォルトの名無しさん

NGNG

>>534
ボタンをプレスしたままマウスを移動してアクティブウインドウ外でボタンを放されると困る罠。

0538デフォルトの名無しさん

NGNG

マウス情報を取得する関数などありますか？

0539デフォルトの名無しさん

NGNG

>>538
マウス情報とやらを定義してください。

0540デフォルトの名無しさん

NGNG

>>537
んなもん矩形領域の判定でどうにでもなる罠。

0541デフォルトの名無しさん

NGNG

>>540
マウスキャプチャの話が出てこないところが何ともVBスレらしい。

0542デフォルトの名無しさん

NGNG

　　　　　　　　　　　　 ll==============ll
　　　　　　　　　　　／￣￣￣￣＼:::::::::::||
　　　　　　　　　（　　人＿＿＿＿）　要はマウスキャプチャなんだよ。
　　　　　　　　　＿｜./　　ー◎-◎-） :::::||＿＿＿＿＿
　　　　　　　／..　（６　　　　　(_　_)　）＿||　　　　　　／
　　　　　　／　　　｜　.∴　ノ　　３　ﾉ＿__〕　　　　／∥　＿＿＿_
　　　　／　　　　　ゝ　　　　　　　ノ　ヽ／　　　／　 ∥／　　　／|＿
　　　／　　　　　　／　　　　￣￣　　）＿＿／　　　∥|三三三|／／|
　　　￣∥￣￣　（＿　　　　　　　＿／　　∥　　　　　　　_|三三三|／
　　　　 ∥　　　　　（　　　　　　　　）　　　 ∥　　　　　　　|＿＿＿|／
　　　　 ∥　　　　/（　　　　　　　　）~⌒） ∥　　　§～～　　　＿ /__／
　　　　　　　　　（　　　　　　　　　　　　/　　　　　　⊂二⊃　／| ./／／|
　　　　　　　　　　＼,＿＿_λ__＿＿,,,ノ　　　　　　　＼__／　|￣￣￣|／

0543デフォルトの名無しさん

NGNG

自分の画像付き投稿かよ。

0544デフォルトの名無しさん

NGNG

VBでWM_CAPTURECHANGEDを受け取るにはどうすればいいですか？

0545デフォルトの名無しさん

NGNG

　　　　　　　　　　||￣￣￣￣￣￣￣￣￣￣￣||
　　　　　　　　　　|| M マウス　　　　　　　Λ_Λ　　いいですね。
　　　　　　　　　　|| C キャプチャ.　＼　(ﾟーﾟ*)
　　　　　　　　　　||＿＿＿＿＿＿＿＿⊂⊂ |
　　∧ ∧　　　 ∧ ∧　　　 ∧ ∧　　　 |￣￣￣￣|
　 (　　∧ ∧　(　　 ∧ ∧　(　　∧ ∧　|　　　　　　|
～（＿(　　∧ ∧ __(　　∧ ∧__(　　 ∧ ∧￣￣￣
　　～（＿(　　∧ ∧＿(　　∧ ∧＿(　　 ∧ ∧ 　は～い、先生。
　　　　～（＿(　　,,)～（＿(　　,,)～（＿(　　,,)
　　　　　　～（＿__ﾉ　　～（＿__ﾉ　　～（＿__ﾉ

0546デフォルトの名無しさん

NGNG

　　　　　　　　 ∧＿∧
　　　　　　 ⊂（´･ω･`)つ-、キャプチャ取りたい？キャプチャ・・・こぶ茶
　　　　　／／/　　 /_/:::::/ ねえ。コンビニでこぶ茶買ってきてくんない。
　　　　　 |:::|/⊂ヽノ|:::| ／」
　　　／￣￣旦￣￣￣／|
　　／＿＿＿＿＿＿／ | |
　　| |-----------| |

0547デフォルトの名無しさん

NGNG

Del厨が荒らし始めたぞ(ﾜﾗ

0548デフォルトの名無しさん

NGNG

>>547
なぜDel厨と決め付ける？

0549デフォルトの名無しさん

NGNG

>>541に逆上した>>540の仕業にしか見えん。

0550デフォルトの名無しさん

NGNG

>>544
メッセージを受け取りたいときは、サブクラス化。

0551デフォルトの名無しさん

NGNG

>>492はスルーされてしまった。。。

0552デフォルトの名無しさん

NGNG

いいかげんVB.NETを使いましょう。

0553デフォルトの名無しさん

NGNG

VB.NETに逝くくらいならC#に逝くよ。

0554デフォルトの名無しさん

NGNG

VBScript で質問です。ASPで前のページから<textarea name="csv"></textarea>
で受け取った文字列を、一行ずつ取り出したいんです。
perl で言うところの while ( <STDIO> ) {} みたく。
どうすればいいのでしょうか？

0555A5304T

NGNG

VBで任意の形の変形フォームを作る方法を教えていただけませんか？ヽ(´Д｀；)ノ
IEを支援するツールで表示領域を工夫したいんです。
よろしくおねがいします

0556デフォルトの名無しさん

NGNG

その前にぐぐれ。「ＶＢ　リージョン」で。

0557A5304T

NGNG

どうもです。リージョン辺りまではやったんですけどね、
なんかやたら処理に時間が掛かったりうまく抜き出せなかったり…
バックグラウンドの色を判定要素にしてたんですが問題ありですか？

0558デフォルトの名無しさん

NGNG

MsgBoxのボタンを無効にすることってできないのでしょうか・・・？
(OKを無効とか

0559bloom

NGNG

http://homepage.mac.com/ayaya16/

0560デフォルトの名無しさん

NGNG

>>558
なんで、そのタイミングでメッセージボックスを出しちゃったかを恨め。

0561デフォルトの名無しさん

NGNG

>>558
OKを無効にしちゃったら、どうやって閉じるの？フォーム右上の閉じるボタンだけ？
なら、そういうフォームを作って Modal で表示するのが簡単だろうね。

0562デフォルトの名無しさん

NGNG

>>554 For Each と Split で取り出すんじゃ駄目かな？

<%
Dim sTmp,sCsv
For Each sTmp In Split(Request("csv"),vbNewline)
sCsv = sCsv & sTmp & "<br>"
Next
%>
<%= sCsv %>

0563558

NGNG

すみません！
VBSでです・・・・

0564デフォルトの名無しさん

NGNG

>>563
状況を詳しく書け。

0565デフォルトの名無しさん

NGNG

saeとか書くなら普通にageろと。

0566デフォルトの名無しさん

NGNG

Excelのインストールされていないマシンで、
Microsft Excel *.* Object Libraryを使わずに
既存のエクセルのファイルを操作することは可能ですか？

0567デフォルトの名無しさん

NGNG

>>566
CreateObject

0568デフォルトの名無しさん

NGNG

>>567
おれは566じゃないんだが、Excel入ってないPCでも使えるの？
試せる環境が今ないから試せないが。

0569デフォルトの名無しさん

NGNG

ムカ

0570デフォルトの名無しさん

NGNG

>>568
無理です。DAO/ADO を使うか、サードパーティ製のコンポーネントを使うか、
独自で Excel ファイルを解析する必要があります。

0571デフォルトの名無しさん

NGNG

>>566 OLEでぐぐってみなされ。なぜ無理なのかが良く解る。

0572554

NGNG

>>562 回答ありがとうございます。

そのデータが数万行なんですけど、これだとループごとに
splitの分割処理が入りませんか？って確かめてないんですけど。

今考得てるのは、splitで数万行の配列に分けてしまうやりかたなんですけど。ううう。

0573　

NGNG

>>572
なりません。

0574デフォルトの名無しさん

NGNG

ＶＢでポインタを使うケースってあるんですか？
あったとしたらどんな場合？

0575　

NGNG

ポインタを使用するAPIを使用する場合

0576デフォルトの名無しさん

NGNG

なるほど。

0577554

NGNG

>>562 >>572 ありがとうございました。できそうです。

0578558

NGNG

状況は
VBSで表示させるダイアログの
OKボタンを無効にできませんんか・・・？
（再試行、無視、キャンセルで無視だけ無効とか

0579デフォルトの名無しさん

NGNG

>>578
お前レスもらってるだろ。
自らそれっぽいフォーム描画しろって。
もしくはダイアログの質問の仕方変えてYesNoにもっていくか。

0580558

NGNG

>>579
VBSでフォームの描画の方法を教えてください
できるんですか？

0581デフォルトの名無しさん

NGNG

>>580
>>579でないが、再試行、無視などが表示されるって事はエラー時？
>>579の2番目の案じゃ駄目なの？
エラーメッセージの後に"再試行しますか"という一文入れるだけでvbYesNoに変えられると思うが
具体的に書いてちょー

0582558

NGNG

>>581
VBSでフォームの描画方法がわからないです（無理だったはず）
ダイアログのボタンを無効にすることができるか
ということが知りたいだけなので・・・
（できるならやり方も・・・

0583デフォルトの名無しさん

NGNG

>>582
んじゃ、無理。残念。

0584デフォルトの名無しさん

NGNG

>>582
http://n76cd-01p05.ppp11.odn.ad.jp/old/00100.html#00088
これとか参考にして、OKボタンのウィンドウハンドルを取る。
あとはEnableWindowなりで無効にしる。そこまでやる必要があるか分からんが。

0585デフォルトの名無しさん

NGNG

>>584
知識が無いやつがやったらやばいアプリになるだろうな

0586デフォルトの名無しさん

NGNG

>>584
いい加減VBSだってこと分かれよ。

0587デフォルトの名無しさん

NGNG

というか、3ボタンのダイアログを出さないといけない理由がない。
ｱﾌｫは無視しる。

0588デフォルトの名無しさん

NGNG

一番のｱﾌｫはVBSってことを理解せず延々と間違ったこと言っている奴だとおもうがな。

0589デフォルトの名無しさん

NGNG

>>586
APIラップしたCOMとかいくらでも転がってると思うが…

0590デフォルトの名無しさん

NGNG

掛け算ソフトつくってるんだが小数点ってどうやって計算させるようにするんだ？

0591デフォルトの名無しさん

NGNG

>>590
型の話ならDoubleとかでｸﾞｸﾞってみ

0592デフォルトの名無しさん

NGNG

>>587
アホか・・・。

0593デフォルトの名無しさん

NGNG

590だが
Private Sub Command1_Click()
Dim intAsk1 As Long
Dim intAsk2 As Long
Dim intAnser As Long
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "未入力のデータがあるので計算できません。", vbExclamation
Exit Sub
End If
If IsNumeric(Text1.Text) = False Or IsNumeric(Text2.Text) = False Then
MsgBox "数値以外の文字が存在するので計算できません。", vbExclamation
Exit Sub
End If
If Text1.Text > 10000000 Or Text2.Text > 10000000 Then
MsgBox "10000000より大きい数値は入力できません。", vbExclamation
Exit Sub
End If
intAsk1 = Text1.Text
intAsk2 = Text2.Text
intAnser = intAsk1 * intAsk2
Text3.Text = intAnser
End Sub
何を追加したらよろし？

0594デフォルトの名無しさん

NGNG

>>593
偉そうだな。新人君。

0595デフォルトの名無しさん

NGNG

594みたいな奴には聞いてないのでﾄﾞｯｶｲｹ

0596デフォルトの名無しさん

NGNG

誰かインデント入れてくれ
めんどい

0597デフォルトの名無しさん

NGNG

Private Sub Command1_Click()
　Dim intAsk1 As Long
　　Dim intAsk2 As Long
　　　Dim intAnser As Long
　　　　If Text1.Text = "" Or Text2.Text = "" Then
　　　　　MsgBox "未入力のデータがあるので計算できません。", vbExclamation
　　　　　　Exit Sub
　　　　　　　End If
　　　　　　　　If IsNumeric(Text1.Text) = False Or IsNumeric(Text2.Text) = False Then
　　　　　　　　　MsgBox "数値以外の文字が存在するので計算できません。", vbExclamation
　　　　　　　　　　Exit Sub
　　　　　　　　　End If
　　　　　　　　If Text1.Text > 10000000 Or Text2.Text > 10000000 Then
　　　　　　　MsgBox "10000000より大きい数値は入力できません。", vbExclamation
　　　　　　Exit Sub
　　　　　End If
　　　　intAsk1 = Text1.Text
　　　intAsk2 = Text2.Text
　　intAnser = intAsk1 * intAsk2
　Text3.Text = intAnser
End Sub

0598デフォルトの名無しさん

NGNG

　　>

↑>>597がデカすぎるので縮小してみた。

0599デフォルトの名無しさん

NGNG

>>593
何がしたいの？

0600デフォルトの名無しさん

NGNG

>>589
> APIラップしたCOMとかいくらでも転がってると思うが…
知っているなら答えてやりな。
知らないなら、APIをラップしたCOMを作れというのが普通のレスだよ。
存在するかどうか分からないAPIをラップしたCOMを使用するのを前提に話す奴はいない。

0601デフォルトの名無しさん

NGNG

>>600
「あるだろう」と仮定して調べものすることって多いけどな。
そして、ある程度コンピュータやプログラミングの経験があればたいていその仮定は当たる。

君もプログラマならそれくらいは解るっしょ。

0602デフォルトの名無しさん

NGNG

「あるだろう」と仮定して調べるのは普通だけど
「あるだろう」と仮定して答えをだすのはただの馬鹿だよ。

0603589

NGNG

まずひとつ。>>589と>>601は別の人間ね。
だれか弁護(?)してくれたみたい。

で。自分は絶対に正しいと保証された事を言うつもりはなかった。
ただ、自分ならこういうものがあるかどうか調べるよ、多分あると思うよ、と言っただけ。
それはあるかもしれないし、ないかもしれない。どうするか決めるのは回答者。
つまり、答えは出してないの。答えだと思って突っかかる人間が馬鹿。

これ以上やるとすれ違いっぽいのでやめ。

0604589

NGNG

>>603
s/どうするか決めるのは回答者。/どうするか決めるのは回答者じゃない。/
鬱氏

0605デフォルトの名無しさん

NGNG

ラップという言葉がでるとは意外とみんなあっちのスレの影響を受けてるな（w

0606デフォルトの名無しさん

NGNG

Rich TextBox てやつ使おうと思ったんだけど、
このコンポーネントのライセンス情報がなんたらかんたら・・・
で、使えません。ＶＢ5.0だったりします。
別に使えなくてもいいや、、　くそお・・・

0607デフォルトの名無しさん

NGNG

>>603
スレ違いというより話が違ってるよ。
VBSではAPIを使うことも独自のフォームを作ることも出来ない。
それなのに、APIやフォームを当たり前に使えるような感じで
回答をしている奴が馬鹿なんだ。
それじゃ初心者を混乱させることにしからなんよ。

0608デフォルトの名無しさん

NGNG

>>605
HEY!YO!YO!YO!YO!
お前はアホだYO!自覚しろYO!

0609デフォルトの名無しさん

NGNG

SendMessageで、ウィンドウを非表示にするメッセージを送りたいのですが、どうすれば良いですか？

0610デフォルトの名無しさん

NGNG

>>609
素直にShowWindowではダメなのかと小一時間。

0611デフォルトの名無しさん

NGNG

>>610
ret = SendMessage(Lockhwnd, WM_SHOWWINDOW, 0, 0)
Lockhwnd :対象ウィンドウ
これだと駄目のようなんですが…

0612デフォルトの名無しさん

NGNG

標準モジュールに関数を作成し、フォームモジュールから呼び出しているつもりが

ｺﾝﾊﾟｲﾙｴﾗｰ：
ﾓｼﾞｭｰﾙではなく、変数またはﾌﾟﾛｼｰｼﾞｬを指定してください。

となってしまいます。

どこをどうすればコンパイルエラーがなくなりますか？

0613デフォルトの名無しさん

NGNG

>>612
どう呼んでいるか晒してみ

0614VB初心者

NGNG

vbを使ってMOUS試験の模擬問題集なるものを作ろうと思っているんですが
VBで試験開始ボタンを押すとWordの指定したファイルを開き指定サイズのウィンドウにしたいのですが、処理がわかりません・・・
seell関数を使うのですか？
申し訳ないのですが、やり方を教えてください・・・

0615デフォルトの名無しさん

NGNG

>>614
http://www.google.com/search?num=50&lr=lang_ja&q=%56%42%81%40%57%6F%72%64%81%40%43%72%65%61%74%65%4F%62%6A%65%63%74

0616612

NGNG

>>613
Private Sub Form_Load()
Dim intReturn As Integer

intReturn = stTest
End Sub

で標準モジュールの方で
Public Function stTest() As Integer
　　'あーだこうだ
End Function

0617デフォルトの名無しさん

NGNG

>>614
seell じゃなくて shell だろ？

0618デフォルトの名無しさん

NGNG

>>616
モジュール名は？
何か予約語とか付けてない？

0619デフォルトの名無しさん

NGNG

>>616
君が意図的に省いたとこにバグがあるよ

0620デフォルトの名無しさん

NGNG

>>605
どのスレ？ラップ自体は一般的な概念だが？TCP Wrapper とか、プログラミング
以外でもあるよ

0621612

NGNG

>>618
モジュール名：stTest
予約語は付けてないと思います

>>619
何も意識的には省いていません
なにか明示的にしなければならないんですか？

0622デフォルトの名無しさん

NGNG

>>621
stTestってFunctionとモジュール一緒の名前じゃん。
モジュールを呼ぶな、ってこと。

0623デフォルトの名無しさん

NGNG

Visual Vasic.NETでプログラミングをしようと思い、
参考書などを買い、サンプルプログラムのコードを入力してみたのですが、
「～は宣言されていません。」と表示が出ます。
宣言はしなくても一応動作すると聞いたのですが・・・。
今の設定では絶対に変数の宣言をしなくてはならないようになってるので
設定を変えたいです。どこをいじったら変えれるのでしょうか。
教えてください。

0624デフォルトの名無しさん

NGNG

偽物だからだろ
ちゃんと買えよ

0625デフォルトの名無しさん

NGNG

(*´Д｀*)ｧﾊｧhttp://www.hamq.jp/i.cfm?i=skyshame

0626612

NGNG

>>622

そういうことですか！

１晩、悩みました。
名前を変えたらできました！

みなさん、ありがとう！！

0627デフォルトの名無しさん

NGNG

　　　　 || 　　　　　　　　　　　｜｜
　　　　　∧||∧ 　　　　　　　　　｜｜
　　　　（ / ⌒ヽ　　　　　　∧||∧ 　　　　　　　　　
　　　　（ / ⌒ヽ
　　　　　| | 　　| 　　　　　　　
　　　　　∪ / ﾉ
　　　　　 | ｜|
　　　　　 ∪∪
日本ロジテムの子会社せいも素で過労による自殺者が出たんだってね。
http://www.samos.co.jp
http://society.2ch.net/test/read.cgi/traf/1046749189/l50
http://tmp.2ch.net/test/read.cgi/company/1046775680/l50
どうすりゃいい？

0628デフォルトの名無しさん

NGNG

>何も意識的には省いていません
モジュール名とか書いてなかっただろ（わ

よく言われるコーディング規約にのっとって、モジュール名は mdlHogehoge とか
ってつけるようにしたら、そういう問題はほとんど起きなくなるよ。

0629デフォルトの名無しさん

NGNG

>>623
>宣言はしなくても一応動作すると聞いたのですが・・・
宣言しとけ。宣言しないやつは上達しない。

0630デフォルトの名無しさん

NGNG

>>623
Vasicなんて知らん。
まぁ、ネタレスは置いといて参考書でも読め。
むちゃくちゃ基本的なことだから書いてあるはずだ。
宣言する事を激しく推奨するが。

0631デフォルトの名無しさん

NGNG

VBでプラグインを実現できますか？

0632bloom

NGNG

http://homepage.mac.com/ayaya16/

0633デフォルトの名無しさん

NGNG

>>631
プラグイン式のｱﾌﾟﾘｹｰｼｮﾝを作りたいのか、フォトショなどのプラグインを
作りたいのか、どっちなんだ。

0634デフォルトの名無しさん

NGNG

>633

プラグイン式のアプリケーションを作りたいのですがVBで可能ですか。

0635デフォルトの名無しさん

NGNG

>>634
できる。が、プラグインが作成できないというジレンマ。

0636デフォルトの名無しさん

NGNG

>635

Cで作ったDLLなら動的に使えるのですが
VBで作ったActiveX.DLLはダメみたいですね。
とくにDLLにこだわっているわけではないので
なにかアプリケーションに機能を追加できる仕組みってないですかね？

0637デフォルトの名無しさん

NGNG

>>636
メッセージと共有メモリでプロセス間通信するとかな。
パイプとかでも良いけど。　

0638デフォルトの名無しさん

NGNG

>637

返信ありがとうございます。
敷居が高そうな気がしますが少し調べてみます。

0639638

NGNG

>637

ちなみに、ActiveX.DLLをVB上で動的に呼び出し、使うことはできませんよね？

0640デフォルトの名無しさん

NGNG

>>623
プロジェクトのプロパティ。だが、絶対にお勧めしない

>>631
できる

>>635
やりようによってはできる

>>636
できる

>>639
できるってば。CreateObject()があるだろ？

0641638

NGNG

>640

CreateObjectで動的にDLLを呼び出せるんですか？
DLLをパスで指定することはできないですよね。
レジストリに登録して参照設定をしないダメじゃないですか？

0642デフォルトの名無しさん

NGNG

>>641
レジストリへの登録は当然必要。どうも、「動的」って言葉の定義が違うみたいね。
ま、それはそれとして、レジストリへの登録だって、実行時にできるぞ。

0643641

NGNG

>641

自己レスです。
CreateObjectするときは参照設定しなくて良いですね。

0644デフォルトの名無しさん

NGNG

質問です。
有名なダウンロードツールのiriaのような感じで
２次元配列のデータを扱いたいのですが、
どのコンポーネントを使えばよいのでしょうか？

0645デフォルトの名無しさん

NGNG

>>644
(ﾟДﾟ)ﾊｧ?

0646デフォルトの名無しさん

NGNG

ListViewを使いたいって事か？

0647デフォルトの名無しさん

NGNG

>>646
よくわかんないですが、以前GridDataというコンポーネントを使って挫折しました。

0648デフォルトの名無しさん

NGNG

1.Ctrl+Tでコンポーネントダイアログを開く
2.Microsoft Windows Common Controlにチェックを入れる
3.ツールパレットからListViewを使う

0649デフォルトの名無しさん

NGNG

>>648　サンクス子です。

0650デフォルトの名無しさん

NGNG

オブジェクト変数または With ブロック変数が設定されていません。
って表示されるんだが、イミフ。
　　誰か教えて。どうしたら解消されるの？
　マジレス希望！

0651デフォルトの名無しさん

NGNG

>>650
マジレス。死ね。

0652デフォルトの名無しさん

NGNG

>>650
処理によって違うので、ソース貼ってみそ。

0653デフォルトの名無しさん

NGNG

オブジェクト変数または With ブロック変数が設定されていません。
どういう意味なんだ！どうやったら解消されるんだ！
マジレス希望。

0654デフォルトの名無しさん

NGNG

>>651
マジレス厨死ね

0655デフォルトの名無しさん

NGNG

めちゃ簡単なプログラムなんだが、ダメなんす。
２回も同じのスマソ。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Button1
Button1.TEXT = "おはようございますた"
End Sub
End Class

0656デフォルトの名無しさん

NGNG

ド素人の癖にブチ切れ厨ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!　

0657デフォルトの名無しさん

NGNG

VB歴4年ですが。

0658デフォルトの名無しさん

NGNG

>>657
んじゃ、もうやめた方がいいよ。
周りが迷惑する。

0659デフォルトの名無しさん

NGNG

>>657
(･∀･)ﾆﾔﾆﾔ

0660デフォルトの名無しさん

NGNG

>>657
下手の横好き。

0661デフォルトの名無しさん

NGNG

4年前にインストールしてさわり始めたのがおととい。

0662デフォルトの名無しさん

NGNG

>>657
('A`) ﾀﾞﾒﾅﾔｼﾊﾅﾆﾔｯﾃﾓﾀﾞﾒﾎﾟ

0663デフォルトの名無しさん

NGNG

おまえら、VBやめてDelphiを使えば？

0664デフォルトの名無しさん

NGNG

ほら、>>657のせいで>>663のようなヤシが来るじゃないか。

0665デフォルトの名無しさん

NGNG

で報復と称して>>663がDelスレ荒らすわけか。

0666デフォルトの名無しさん

NGNG

さらに報復の報復としてまた>>663がこのスレ荒らすのか。

0667デフォルトの名無しさん

NGNG

んで>>655がシカトされていくわけか。
おもしろい

0668デフォルトの名無しさん

NGNG

>>667=>>655
ここは素人は書き込み禁止

0669デフォルトの名無しさん

NGNG

だって、こんなｱﾌｫみたいな失敗、2週間もやりゃ分かってくるべ

0670デフォルトの名無しさん

NGNG

>>667=>>655 =>>663
ここは素人は書き込み禁止

0671デフォルトの名無しさん

NGNG

VB使用者には女の子が多いというのは事実でしょうか。

0672デフォルトの名無しさん

NGNG

>>670
>>670もお前だろ。
ageてんの、お前だけだぞ。そろそろ気付け。

>>671
それ、どこの統計？

0673デフォルトの名無しさん

NGNG

マジレスなら笑ってんだろうな

0674デフォルトの名無しさん

NGNG

>>655
Button1 のインスタンスを作ってないのが問題。
フォームで宣言してあるんなら、Dim文は不要。

0675デフォルトの名無しさん

NGNG

>>671
あながち見当違いではなさそう。

少なくとも、俺の職場ではそう。
今は、俺(♂)が作成したアプリを♀に使わせている。
(不具合や改善要望等はフィードバックさせる)

在庫管理や販売管理のアプリ(VB + Oracle製)のオペーレーションも女性がやることが多い。

# そもそも女性が多い職場だから当然の帰結、という見方もある。

0676デフォルトの名無しさん

NGNG

>>675
俺と入れ替われ

0677デフォルトの名無しさん

NGNG

なんだ、VBユーザとVBアプリユーザをごっちゃにしているだけか。

0678デフォルトの名無しさん

NGNG

>>676

オバチャン率50%、不細工率(オバチャン除く)30%、既婚率約50%だが、
それでもよろしいか？

0679デフォルトの名無しさん

NGNG

>>678
補足。
書き忘れたが、先週金曜の新入社員歓迎会で、両隣を女性(不細工でなく、
オバチャンでもない)に挟まれて、幸せだった。（ｗ

わずか、20分ぐらいの間だったが。(涙

0680デフォルトの名無しさん

NGNG

えーと。
何のスレだっけか。

0681デフォルトの名無しさん

NGNG

Delphiのスレ

0682デフォルトの名無しさん

NGNG

ﾂﾏﾝﾈ

0683デフォルトの名無しさん

NGNG

>>641 遅レスですまん。
VBらしいプラグインを使うプログラムの作成だが、
多分今のあんたはObjectにしてレイトバインドでやる方法を考えていると思う。
ちなみに、インタフェースを使えばアーリーバインドでも出来る。

やり方だが、
ActiveXでインターフェースとなるクラスを作る。
各プラグインクラスはそのインターフェースをImplementsする。
アプリ側(プラグイン使用側)ではそのプラグインクラスをCreateObjectを使って作成し、
インターフェース型の変数に代入する。
アプリ側ではそのインターフェースを使ってプログラムする。

■InterfaceProject (ActiveX) インターフェース用のプロジェクト
・Interface (クラス)を作成

■PlaginProjectN (ActiveX) プラグイン用のプロジェクト InterfaceProjectを参照設定
・PlaginN (クラス)を作成
Implements InterfaceProject.Interface

■AppProject (標準EXE) InterfaceProjectを参照設定
Dim I As InterfaceProject.Interface
Set I = CreateObject("PlaginProjectN.PlaginN")

このようにすると、参照設定するのはインターフェースクラスのプロジェクトだけで、
各プラグライン自体は参照設定せずにすむ。
ちなみに、VB IDEのプラグインも同じような感じで作られている。

0684デフォルトの名無しさん

NGNG

VBっていくらですか？

0685デフォルトの名無しさん

NGNG

>>684
最安値は9000円らしい
http://www.kakaku.com/prdsearch/detail.asp?ItemCD=030000&MakerCD=121&Product=Visual%20Basic%20%2ENET%20Standard

0686355

NGNG

あれから１週間経ちました。

意地悪しないで、そろそろ答えを教えて下さい。(ﾟДﾟ#)ｺﾞﾙｧ!!

0687デフォルトの名無しさん

NGNG

>>686
この1週間おまいはいったい何をやっていたのかと小一時間(ry

0688684

NGNG

>>685
ありが㌧。体験版とかないですか？

0689355

NGNG

>>687
黒い枠がどーしても消せなかったので「FileListBox」を使うのやめました。
仕方がないので「ListBox」で代用してます。（面倒だ。。）

Bugだろ？SP6早くリリースして黒い枠を消せや　＞M$

0690デフォルトの名無しさん

NGNG

>>689
どういう枠線かわからん
もうちょっと詳しく書け

0691デフォルトの名無しさん

NGNG

黒枠のスクリーンショットｳpキボンヌ。

0692hage

NGNG

簡易電卓を作りたいときに、ボタン１を押したらテキストボックスに１、
ボタン２を押したらテキストボックスに２、という風にはできるのですが、
ボタン１と２を押して１２と表示させるにはどうしたらよいですか？

説明下手でゴメソ。優しく答えて（嘘

0693デフォルトの名無しさん

NGNG

>>692
これだな
http://pc2.2ch.net/test/read.cgi/win/1051007557/

0694デフォルトの名無しさん

NGNG

>>692
もうちょっと考えれと。そんなに難しくない。じゃぁヒント。
ボタン2などのクリックイベント時に
既にTextBoxにある数字を取得してなんかしてまたTextBoxに表示。
1をなんかすれば12になるわけだ。算数的なことだな。

0695デフォルトの名無しさん

NGNG

>>692
Private Sub Command1_Click ()
Me.TextBox1.Text = Me.TextBox1.Text & "1"
End Sub

Private Sub Command2_Click ()
Me.TextBox1.Text = Me.TextBox1.Text & "2"
End Sub

0696デフォルトの名無しさん

NGNG

質問するなら基本的なステートメントと関数、演算子の使い方ぐらいは
覚えてから来い。

0697デフォルトの名無しさん

NGNG

>>692
テキストボックスに表示する変数の型がStringなのか、Doubleなのかで
実際のコードは違ってくるけど、基本的にはテキストボックスの値と
入力された値を計算して、テキストボックスの値を更新するっつーのが普通だと思う

0698hage

NGNG

(*´д`*)ｳﾌ
分かりました！もっと勉強してきます。
あと2003回くらい本を読み直してきます。

0699デフォルトの名無しさん

NGNG

>>698
2003回じゃ全然足りん。65536回読み直せ。

0700デフォルトの名無しさん

NGNG

>>699
プログラマ失格

0701デフォルトの名無しさん

NGNG

本を読み直したって駄目だろ

実践して理解するんだよ

07021

NGNG

分かり、ました。
十戦して、理解、するですね。
やってみっまＳう

0703デフォルトの名無しさん

NGNG

>>1
君の場合は小学校行くのが先だ

0704デフォルトの名無しさん

NGNG

>>393
まず、電源の問題かどうか先に検証はしてるの？
テスト用の電流制限出来る電源持ってるなら、それで試しに負荷を測ってみたら？

0705デフォルトの名無しさん

NGNG

>>704 いちじるしく誤爆してる。

0706355

NGNG

>>690-691 消し方教えろ

http://www.connect-wired.net/2ch-hariita/src/1052115753858.jpg

0707デフォルトの名無しさん

NGNG

>>706
それぐらいは別に気にならないからそのままでいいよ

0708355

NGNG

>>707
鈍感な人が多いのか？　何で気にならないんだ？
うんこ拭いても拭いても拭ききれないような　(*‘ω‘ *)ｨｬﾝな気分だぞ。

0709デフォルトの名無しさん

NGNG

フォームを黒にしろ。目立たなくなる。

0710デフォルトの名無しさん

NGNG

>>708
分かった分かった。
自前で描画する技能が無いなら「無理」。
文句あるならMicrosoftにIE。
以上、この質問終了。

0711デフォルトの名無しさん

NGNG

>>686
ちゃんと嫁。答え書いてあるじゃねぇか。
以下に示す。６７４に感謝の言葉を書けや！！

674 ：デフォルトの名無しさん：03/05/04 21:28
>>655
Button1 のインスタンスを作ってないのが問題。
フォームで宣言してあるんなら、Dim文は不要。

なぁ書いてあるだろう？

0712デフォルトの名無しさん

NGNG

>>711
>>355はそいつ違うかと。

0713デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧ…

0714711

NGNG

何？激しく誤爆か？(*´д`*)ウヮ～～～～～～～～～ン、ヤッテモウタ。

0715デフォルトの名無しさん

NGNG

（ﾟεﾟ）ｷﾆｼﾅｲ!!

0716デフォルトの名無しさん

NGNG

PictureBoxにいろいろなコントロールを詰め込んで、
そのPictureBoxを動的に増やすことをやりたいです。

Load Picture1(1)
で作成すると、詰め込んだコントロールは作成させません。
PictureBoxの中のコントロールもいっしょに作成する簡単な方法はありませんか？

0717デフォルトの名無しさん

NGNG

ああ、それ俺もやりたかった奴だ。やりかた忘れた。

0718355

NGNG

>>710
なんだお！　だったら、最初っから出来ないって家！

Bug認定つーことで、　M$に(ﾟДﾟ#)ｺﾞﾙｧ!　だす。!
http://www.connect-wired.net/2ch-hariita/src/1052115753858.jpg

0719ももえ

NGNG

オススメ！カワイイ娘厳選の無料Hサイト☆！　～良心的です～
http://www.yahoo2003.com/moe/linkvp.html

0720デフォルトの名無しさん

NGNG

>>718
最初の方のやりとり漏れ絡んでないけどﾅｰ。

あー出せ出せ。放置されると思うが。ごくろうさん。

　　↓次の質問ﾄﾞｿﾞｰ

0721デフォルトの名無しさん

NGNG

VBSを使ってHTAで表示させるプログラムなんですが、
始めの画面で表示させたいリストを選択した後OKボタンを押したら
次のページに切り替わって、リストにあった画面を表示し、
そこで各項目を入力後、ボタン押したらデータを送信するっていうことを
したいのですがうまくいきません。
始めの選択するのと次の画面に出したい入力項目が一緒に出てきて
しまいます・・・
次の画面の処理の部分をcallで呼び出すようにするとちゃんと画面が
切り替わって値も渡してくれるのですがデータを送信させるボタンが
押しても無反応になってしまいます。
送信する画面のソースを見るとVBS部分が消えていて
表示しているHTML文しか書かれていません・・・
これを実行するのに何かうまくいく方法はありませんか？
または違うやり方でもいいので何かヒントください。

0722デフォルトの名無しさん

NGNG

>>718
1週間を無為に過ごすことができてよかったじゃん。次もガンバレよ！

0723デフォルトの名無しさん

NGNG

>>717
思い出していただけませんか？

0724デフォルトの名無しさん

NGNG

コントロール配列を動的に作成する方法を教えてください。
下のようにやっているのですが、エラーになってしまいます。

for i = 0 to 5
Form1.Controls.Add "VB.Label", "Label1", Frame1
next

for i = 0 to 5
Form1.Controls.Add "VB.Label", "Label1" & "(" & i & ")", Frame1
next

0725デフォルトの名無しさん

NGNG

Load じゃダメなの？あとIndexプロパティは？

0726デフォルトの名無しさん

NGNG

ちゃんとフォームも作ったのに、いざデバッグ開始してみると
変な何も書いてないフォームが出るのはなぜ？
教えてｸﾀﾞｻｲ

0727デフォルトの名無しさん

NGNG

>>726
(ﾟдﾟ)ﾊｧ!?
そんな質問で分かるか、と。

0728726

NGNG

すみません。説明不足でした。
VB.NETでちょっとしたチャットを作ってたわけです。
そしてデバッグを始めてみると、真っ白なフォーム（何もかかれてなくコントロールもない）
が出てくるんです。そしたら、もちろん自分の作成したチャットも出てきませんでした。
出てきたのは、その真っ白なフォームだけなんです。
別になにか設定をいじったわけでもないし、自分では何もしていないのですが。。
説明がめちゃ下手でスマソ。誰か答えて

0729デフォルトの名無しさん

NGNG

>>717
思い出していただけませんか？

0730デフォルトの名無しさん

NGNG

>>728
こちらこそ、すみませんでした。
あなたはこっちです。>>1嫁、と。
【老若】VB.net質問ｽﾚ【男女】 (Part2)
http://pc2.2ch.net/test/read.cgi/tech/1043629429/

>>729
(;´Д｀)ｼﾂｺｰ

0731_

NGNG

　 ∋8ノノハ.∩
　　川o・-・）ノ　＜先生！こんなのがありました！
http://www.japan.pinkserver.com/kaorin/hankaku/hankaku03.html
http://japan.pinkserver.com/kaorin/zenkaku/index.html
http://www.japan.pinkserver.com/kaorin/hankaku/hankaku02.html
http://japan.pinkserver.com/kaorin/hankaku/hankaku05.html
http://www.japan.pinkserver.com/kaorin/hankaku/hankaku09.html
http://japan.pinkserver.com/kaorin/hankaku/hankaku08.html
http://www.japan.pinkserver.com/kaorin/hankaku/hankaku06.html
http://japan.pinkserver.com/kaorin/hankaku/hankaku07.html
http://www.japan.pinkserver.com/kaorin/hankaku/hankaku10.html
http://japan.pinkserver.com/kaorin/hankaku/hankaku01.html
http://www.japan.pinkserver.com/kaorin/hankaku/hankaku04.html

0732デフォルトの名無しさん

NGNG

先生質問です
ＡＰＩを使ってメディアプレイヤー作っているのですが
MP3の場合ここは何入れればよいのでしょうか？
Case "WAV", "wav"
strType1 = "open " & Label1 & " type waveaudio alias WaveFile"
strType2 = "play WaveFile"

0733デフォルトの名無しさん

NGNG

>>732
どういうプログラム組んでるかいまいちつかみ辛いのだが…。
ベクター逝ってMP3再生DLLでも落としてきたら？

0734デフォルトの名無しさん

NGNG

そんなただ単に拡張子の文字で比較してたら、問題出まくるよ。

0735デフォルトの名無しさん

NGNG

>>725
Load の方が原始的だけど、イベントの取得まで考えてコード書くと圧倒的に
楽。だけど、716は簡単にはできなさげ。（できるかも）

0736デフォルトの名無しさん

NGNG

>>735
ユーザコントロール作るだけだろ・・・

0737735

NGNG

>>736
そだたー

0738641

NGNG

>683

こちらこそ遅レスですみません。
これでできそうです。
わかりやすい解説ありがとうございました。

0739デフォルトの名無しさん

NGNG

>>736
ユーザコントロールの作り方聞いたら怒られますか？
教えてください

0740デフォルトの名無しさん

NGNG

>>739
そりゃ怒られるだろうな。ググれ。
但し、「ユーザーコントロール」の方がヒット数は多そう。
あとクラスに慣れてないと辛いかも。

0741デフォルトの名無しさん

NGNG

指定したPictureBoxにCommandButtonとかをｌｏａｄするときの
記述方法を教えてください

0742デフォルトの名無しさん

NGNG

悪い悪い忘れた。たしかペアレントだかって（両親って意味の英語）プロパティを
使ってやった記憶がある。　

って７１７だが。

0743デフォルトの名無しさん

NGNG

>>742

もすこし詳しく

0744デフォルトの名無しさん

NGNG

>>728
初心者はここに来るな。
誰も教えてくれるわけねぇよ

0745デフォルトの名無しさん

NGNG

どなたか教えていただけますか。
市販されているソフトやフリーソフトって、
ソースが見れないですよね。
ところが自分で作成した練習用プログラム(JAVAとかCとか)って、
ソース見れますよね。しかも実行するときDOSプロンプトからしか、
実行できないですけど、
①そういうソフトってどうなって実行されているんでしょうか。
(たいていのやつは拡張子が.exeになってるやつをダブルクリックすると実行されるようですが。)
②あと、ソースはどうやったら見れるのでしょうか。

0746デフォルトの名無しさん

NGNG

>>745
(1)OSが実行できる状態のもの(exeとか)があれば実行できる。
(2)ソースをコンパイルしたものが実行できる状態のもの。
ソースがついてなく、ソースが欲しかったら作者に問い合わせないと見られない。

0747デフォルトの名無しさん

NGNG

>745
ほほぅ。
君の作ったClassファイルをメモ帳で開くとJavaのソースコードが
見られるのかね。そりゃすごい。

0748７４５

NGNG

けっきょく、バッチファイルに実行コマンドを書いといて
それをダブルクリックして実行しているということでしょうか。
でもローカルで実行してるので、
ソースがないと実行できないような気がするんですが。
すいませんもうちょっとどなたか教えてください。

0749デフォルトの名無しさん

NGNG

>>739
プロジェクト＞ユーザーコントロールの追加＞ユーザーコントロール
あとはピクチャーボックスを張ってコマンドボタンを張ってイベント書いて。
作ったユーザコントロールの窓を閉じればFormに貼れる状態にできるので
あとは試行錯誤をしてください。

0750デフォルトの名無しさん

NGNG

>>748
Wクリックしたらマシンが実行できるファイルを読み取って実行してるだけだろに。
ソースなんていらんだろ？

0751デフォルトの名無しさん

NGNG

つかVBの質問しろよ

0752デフォルトの名無しさん

NGNG

ttp://members.tripod.co.jp/naoki20000/bmp
始めまして。
こんな感じで電卓を作りたいと思ってるのですが、
四則についての記述の仕方がよく分かりません。
サンプルがあれば、お願いします。

0753デフォルトの名無しさん

NGNG

>>752
“電卓 VB ソース”などで検索しました?

0754デフォルトの名無しさん

NGNG

似たようなキーワードで検索しました。
ぼちぼちヒットするのですが、↑のデザインに合うような
ソースがありませんでした。
特殊な形の電卓のソースばかりでした。
お願いします。教えてください。

0755デフォルトの名無しさん

NGNG

デザインなんか関係無いだろ

あーもうBMPなんか貼るなよもう最悪

0756デフォルトの名無しさん

NGNG

>>754
計算方法などの作り方を見て自分のソフトに組み込め。

0757デフォルトの名無しさん

NGNG

http://members.tripod.co.jp/naoki20000/test.jpg
>>755　申し訳ありませんでした。
　　　　では、このようなデザインでも関係ないのでしょうか。

0758デフォルトの名無しさん

NGNG

>>743
Set Me.CommandButton1.Parent = Me.Picture1

0759デフォルトの名無しさん

NGNG

電卓でやってる処理なんて、メモリを操作するか演算するぐらいしか無いんだから、
デザイン云々言ってる方が的外れだろ

0760デフォルトの名無しさん

NGNG

>757
デザインが変わったら足し算の結果も変わるのか？
デザインとアルゴリズムは別物だ。

0761デフォルトの名無しさん

NGNG

>>749
神？
ありがと

0762デフォルトの名無しさん

NGNG

ショートカットをVBから起動したいんだがどうしたらいいの？

コマンドプロンプトや「ファイル名を指定して実行」からは
ショートカットのパス\ショートカット名.lnk
で起動できるんだが・・・

Shell "ショートカットのパス\ショートカット名.lnk" とやってみたがダメ
Shell "cmd /c ショートカットのパス\ショートカット名.lnk" もダメ
バッチファイルを作って Shell バッチファイル.bat もダメ・・・
誰か教えてください。

0763デフォルトの名無しさん

NGNG

>>762
ShellExecute などでもだめ？

0764デフォルトの名無しさん

NGNG

>>762
テキストエディタかなんかでリンクファイル強引に開いてもらったら分かると思うけど
ショートカット先のフルパス書いてあるよ。それを取得するプログラムじゃ駄目？

0765デフォルトの名無しさん

NGNG

>>760
まぁおちけつ。
UIは確かに関係ないが>>757のUIから見るところ
どう考えても>>752の目指す電卓ではなさそう。アルゴリズムもややこしそうだ。
とは言えども>>752にはもう少し頭をひねった単語で検索して欲しい所。
こんな感じで検索したらお望みの物っぽいのが出てきたぞ？
http://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&c2coff=1&q=VB+%E7%B0%A1%E6%98%93%E9%9B%BB%E5%8D%93+%E3%82%BD%E3%83%BC%E3%82%B9&lr=

0766デフォルトの名無しさん

NGNG

スットプウォッチを作ってみたいと思い、コーディングしてみたのですが、
うまく動作しません。文法的に間違えてるところがありますでしょうか？
どうか、見てください。お願いします Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim timer

Static stwch
Static tm
If stwch = False Then
tm = Timer
TextBox1.Text = "計測中"
Else
TextBox1.Text = Timer - tm & "秒経過"
End If

stwch = Not stwch
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class

0767デフォルトの名無しさん

NGNG

>>766は、センス無し！　　以上終了

0768デフォルトの名無しさん

NGNG

>>767　そんなことは自分が１番よく分かってます。
　　　だから努力してるんですよ。
　　　教えてください。お願いします。　
　　　

0769デフォルトの名無しさん

NGNG

>>768
やっぱVB歴4年？（ｗ

0770デフォルトの名無しさん

NGNG

ＶＢ歴２日目だ！
悪いか！

0771デフォルトの名無しさん

NGNG

>>770
ならば焦ることは無い。いろいろな本とかを見て頑張ってください。

0772デフォルトの名無しさん

NGNG

　↓次の質問どうぞ。

0773デフォルトの名無しさん

NGNG

>>764
特殊ショートカット（例：ダイヤルアップ接続のショートカット）
なのでダメなのですよ

0774762

NGNG

>>763
ShellExecuteダメでした。（WinExecも）
他のファイル（拡張子 txt html）等は実行できたので
ShellExecuteの記述にミスは無いと思います。

0775デフォルトの名無しさん

NGNG

>774
763じゃないけど ShellExecute はショートカットを起動できるよ。
解決しようと思うなら環境やコードを吊るすことだな。

0776762

NGNG

ShellExecuteでは一般のショートカットは起動できるようです。
>>773 のような特殊ショートカット？が起動できません。

×ダイヤルアップ接続のショートカット
×印刷キューのショートカット
○「電卓」へのショートカット

Private Sub Command1_Click()
Dim Ret As Long

Ret = ShellExecute(0&, "open", "プロバイダ接続.lnk", "", App.Path, SW_SHOWNORMAL)
Debug.Print Ret 'SE_ERR_ACCESSDENIED = 5

Ret = ShellExecute(0&, "open", "印刷キュー.lnk", "", App.Path, SW_SHOWNORMAL)
Debug.Print Ret 'SE_ERR_ACCESSDENIED = 5

Ret = ShellExecute(0&, "open", "電卓.lnk", "", App.Path, SW_SHOWNORMAL)
Debug.Print Ret 'OK = 42

End Sub

0777デフォルトの名無しさん

NGNG

'WindowsAPIのdrawStringをコールしたいのですが
'hDCプロパティを持たないコントロールに対してdrawStringするにはどうすれば良いのでしょうか。

0778デフォルトの名無しさん

NGNG

>>776
ならそのショートカットへのショートカットをどこかに作ってそれを起動すれば？

0779デフォルトの名無しさん

NGNG

WindowsAPIにdrawStringってあったっけ？

0780デフォルトの名無しさん

NGNG

>>778
ショートカットへのショートカットも特殊ショートカットになります。

0781デフォルトの名無しさん

NGNG

>>776
少なくとも "open" じゃねーよな
あとは自分で調べろや

0782デフォルトの名無しさん

NGNG

>>776
本当に
>コマンドプロンプトや「ファイル名を指定して実行」からは
>ショートカットのパス\ショートカット名.lnk
>で起動できるんだが・・・

なのか問いたい、問い詰め..

0783762

NGNG

>>781
"open" "print" "explore" NULL(0&) すべて試しました。
他のコマンドあるの？

>>782
できます。
ちなみに OSは Windows 2000 Pro & Server

0784762

NGNG

>>781
すいません、 NULL でできました。
783は無かったことに・・・
ありがとうございました。

0785デフォルトの名無しさん

NGNG

776>>
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim timer

Static stwch
Static tm
If stwch = False Then
baka = Timer
TextBox1.Text = "計測中"
Else
TextBox1.Text = Timer - tm & "秒経過"
End If

shine = Not stwch
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class

これであってると思う

0786デフォルトの名無しさん

NGNG

>>785
おいおい、それって・・・。
微妙に変えてあるのがミソだな。

0787動画直リン

NGNG

http://homepage.mac.com/hitomi18/

0788デフォルトの名無しさん

NGNG

ラジオボタンが二つ、ボタンが１つあるとします。
ラジオボタン１を選択している時にボタンを押したらＡの処理を。
ラジオボタン２を選択している時にボタンを押したらＢの処理を。
という風にし、テキストに反映させるには、どうしたらいのでしょうか？
処理の書き方がよく分かりません。
もし、良ければ教えて欲しいです。おながいします

0789↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑

NGNG

□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
□□□□□■□□□□■□□□□□□□□□□□□□□□□□□□□□□□□□
□□■■□■□□■■■□□□□□□□□□□□□□□□□□□□□□□□□□
□□■■■■■■■□□□□□□□□□□□□□□□□□□□■■■■■■■□
□□□□□■■□■□□□□□□□□□□□□□□□□■■■■■■■□□□□
□□□□□■□□■■■■□□□□□■■■■■□□□□□□□■■□□□□□
□■■■□■■■■□■□□□■■■■□□□■■□□□□□□■□□□□□□
□□■■■■■□■□■□□□□□□□□□□□■□□□□□■■□□□□□□
□□■■□■□□■□■□□□□□□□□□□□■□□□□□■■□□□□□□
□□■■□■□■■□■□□□□□□□□□□■■□□□□□□■□□□□□□
□□■■□■□■□□■□□□□□□□■■■■□□□□□□□■■■□□□□
□■■■■■■■■■■■□□□□□□■■□□□□□□□□□□□■■■□□
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□■□□□□□□□□□■■□□□□□□□□□□□□
□□□□□□□□□□□□■□□□□□□□□□■■□□□□□□□□□□□□
□□□□□□□□□□□□■■■■■□□□□□■■□□□□□□□□□□□□
□□□□□□□□□□□□■■□□□□□□□□■■□□□□□□□□□□□□
□□□□□□□□□□□□■□□□□□□□□□■■□□□□□□□□□□□□
□□□□□□□□□□□□■□□□□□□□□□■■□□□□□□□□□□□□
□□□□□□□□■■■■■■□□□□□□□□■■□□□□□□□□□□□□
□□□□□□□□■□□□■■■■■□□□□□■■□□□□■■□□□□□□
□□□□□□□□■■□■■□□□■□□□□□□■■■■■■□□□□□□□
□□□□□□□□□■■■□□□□□□□□□□□□■■■■□□□□□□□□
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□

0790デフォルトの名無しさん

NGNG

>788
どのラジオボタンが選択されているのか調べて処理を分岐しろ。
これでわからなければ>789に同意

0791デフォルトの名無しさん

NGNG

>>788
ボタンのOnClickに
ラジオボタン１がＯＮならばＡの処理を、
ラジオボタン２がＯＮならばＢの処理をするように
ＩＦ文を駆使してコードを書く。

0792デフォルトの名無しさん

NGNG

If RadioButton1(0).Value Then
　　Call Msgbox("ラジオボタン1を選択した")
Elseif RadioButton1(1).Value Then
　　Call Msgbox("ラジオボタン2を選択した")
Else
　　Call Msgbox("どっちか選択しろや(ﾟДﾟ)ｺﾞﾙｧ!")
End If

0793デフォルトの名無しさん

NGNG

ウインドウを最背面に移動するには、どうすればいいのでしょうか？
最前面は、SetForegroundWindowや、SetActiveWindowでできると思うのですが。

0794788

NGNG

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim radiobutton1_click
If radiobutton1_click Then TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
ありがとうございます。言われたことはとても、よく分かるのですが、
細かい文法が微妙です。
ラジオボタン１がクリックされているときに、ボタンをクリックすると
足し算をするというプログラムなんです。
文法でおかしいとこを見てもらえないでしょうか。

0795デフォルトの名無しさん

NGNG

>>793
SetWindowPos 関数で hWndInsertAfter に HWND_BOTTOM (=1) を入れてください。

0796デフォルトの名無しさん

NGNG

× If radiobutton1_click Then TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
○ If radiobutton1.value Then TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

0797788

NGNG

ありがとうございます！！教えていただいたとおり、
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Radiobutton1
If RadioButton1.value Then

TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End If
と入力し、実行しました。が、実行時に
「オブジェクト変数または With ブロック変数が設定されていません。」
とエラーが出てしまいます。これはこちらのミスでしょうか。
ご迷惑をおかけしてすみません。

0798デフォルトの名無しさん

NGNG

これ、ずっと同じ奴が質問してるな。

0799デフォルトの名無しさん

NGNG

つーかVB7なら別のｽﾚ逝けよ。

0800788

NGNG

>>798
すみません。684も自分です。
１人ひとつしか質問してはならないなんて知りませんでした。
教えてくれてありがとうございます。

0801デフォルトの名無しさん

NGNG

VB6のソースを、VC++のソースに自動変換してくれるツールって
ありまつか？

0802デフォルトの名無しさん

NGNG

>801

そんなもんあるわけないだろ。

0803デフォルトの名無しさん

NGNG

>>802
昔からソースコンバーターつうか、ソースを他言語に変換するツールってのは
存在するんだがな。VB6からVC++があるかは知らんが、
ないと決めつけるのはいかんな。

>>801
今軽く調べて、使ったわけじゃないんだが、
これ使えば変換しやすいかも。マクロを作る必要があるみたいだが。
http://www.vector.co.jp/soft/win95/prog/se131599.html

0804デフォルトの名無しさん

NGNG

まあ何にせよ互いの言語に精通してなきゃ無理って話だな

0805デフォルトの名無しさん

NGNG

ツールがあれば精通してなくても大丈夫だよ。

0806デフォルトの名無しさん

NGNG

0807793

NGNG

>>795
ありがとうございました、うまくいきました。
SetWindowPosは常に前面だけかと思ってた。

0808デフォルトの名無しさん

NGNG

あれっ！昨日頼んだのにもう来てる本当に安かったのでびっくりしました

http://ime.nu/ime.nu/ime.nu/www.net-de-dvd.com/

0809デフォルトの名無しさん

NGNG

MSのVisual Basicは衰退へ？
ttp://cgi4.zdnet.co.jp/g/01_0705030811_/news/0305/07/nebt_14.html

0810動画直リン

NGNG

http://homepage.mac.com/hitomi18/

0811デフォルトの名無しさん

NGNG

ワークシートへのリファレンスを退避して、後で利用したいのですが、
Dim worksheet As Worksheet
worksheet = ActiveWorksheet
ではだめみたいです。
どうやればいいのですか？？？

0812デフォルトの名無しさん

NGNG

どういう処理なんだ、これ。

0813デフォルトの名無しさん

NGNG

Openステートメントで開いたシートをずっと覚えておきたいんです。

0814デフォルトの名無しさん

NGNG

シート名とっておいて、改めて取得とか

0815デフォルトの名無しさん

NGNG

あわわ。Workbookでした。
name = ActiveWorkbook.Name
workbook = Workbooks(name)
でいいのですか？
なんかNothingってなるんですが。

0816デフォルトの名無しさん

NGNG

Set worksheet = ActiveWorksheet

0817デフォルトの名無しさん

NGNG

age

0818788

NGNG

あれから、１８０００秒経ちました。
そろそろ答えを教えていただいてもいいんではないでしょうか。
お願いします。
女だからってバカにしないでください

0819デフォルトの名無しさん

NGNG

答え貰ってる上、
ネカマ発言ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!

0820デフォルトの名無しさん

NGNG

>>818
女かどうか知る術ないし。だいたい基本的知識なさ杉。
ここは専門学校とかじゃないんだぞ？
ちょっとは自分で調べるとか初心者向けの参考書一通り読んだとかしたのか？
女という事にコンプレックス持ってんのかどうか知らんが、
そういうことしないと老若男女関係なくバカにされるぞ。

0821名無し＠沢村

NGNG

おれはＶＢに限界を感じたんで、ＶＢでＣコンパイラをつくって、いまはＣ言語をやっているよ。

0822デフォルトの名無しさん

NGNG

>>788
>女だからってバカにしないでください
こんなこと言うから馬鹿にされるんだよ。人にものを聞く態度かよ。

0823デフォルトの名無しさん

NGNG

釣り釣り。釣られんな。

0824デフォルトの名無しさん

NGNG

>あれから、１８０００秒経ちました。
>そろそろ答えを教えていただいてもいいんではないでしょうか。
俺の髪が肩まで伸びたら答えてやるよ

0825デフォルトの名無しさん

NGNG

>>788
ﾋﾝﾄ：CreateThread

0826デフォルトの名無しさん

NGNG

つられてるのは自作自演です。あらさないでください

0827777

NGNG

>>779
DrawStringじゃなくてDrawTextでした。
要はDrawTextとSetTextColorを駆使して１つのコントロールやオブジェクトに
複数の色で文字列を書きたいんです。（ForeColorだと１色になってしまうので）
FormやPictureBoxに対しては成功したんですが、
ｈDCプロパティを持たないコントロールに対してはどうやってDrawTextすればいいのでしょうか。

0828デフォルトの名無しさん

NGNG

>>827
持つヤシ使え

0829デフォルトの名無しさん

NGNG

>>827
HDC GetDC(hwnd)

0830デフォルトの名無しさん

NGNG

>>829
ありがとうございます｡
それでうまくいきました｡

0831名無し＠沢村

NGNG

へたれのＶＢ厨が集まるスレはここか？

0832デフォルトの名無しさん

NGNG

>>831
スレタイにはっきりそう書いてありますが，何か？

0833デフォルトの名無しさん

NGNG

自演

0834デフォルトの名無しさん

NGNG

>>831
こっちだろ
http://pc2.2ch.net/test/read.cgi/tech/1047222540/

0835デフォルトの名無しさん

NGNG

Access2000とVisual Basic6.0 Lerning Editihonを持っている場合、
VB6.0からADOは使用できるでしょうか？

今は手元にAccessしかなく試せないので、教えてください。

0836835

NGNG

>>835 の補足
ttp://www.microsoft.com/japan/msdn/vs_previous/vbasic/prodinfo/

Visual Basic 6.0はProfessional Edition 以降でADO対応のようだが、
Access2000のADOコンポーネントを流用できないかと思って質問しました。

OSはXP Proです。

0837デフォルトの名無しさん

NGNG

ラーニングエディションなんで確証がない上に、自分でテストする気はない
んだけど、MDac落として使えんかな？
ttp://www.microsoft.com/japan/msdn/data/download/mdac/27/27.asp

0838デフォルトの名無しさん

NGNG

Sub test()
With Inet1
.URL = "htt@://www.microsoft.com"
.Document = "japan/support/oj_faq.htm"
Text1.Text = .OpenURL
End With
End Sub

みたいなのを標準モジュールに置きたいのですが、
Inet1　が「変数が定義されていません」とエラーになります。

どこにどう定義すればいいですか？

フォームの方では、Microsoft Internet Transfer Control 6.0
のコンポーネントを追加してます。

0839デフォルトの名無しさん

NGNG

Sub test()
With Inet1
.URL = "htt@://www.microsoft.com"
.Document = "japan/support/oj_faq.htm"
Text1.Text = .OpenURL
End With
End Sub

0840デフォルトの名無しさん

NGNG

With Form1.Inet1

0841デフォルトの名無しさん

NGNG

いま　あるツールをＶＢでつくってるんだけど
完成品としては
DLLとかEXEとかの実行型式ﾌｧｲﾙをOPENステートメント（line inputモード）
で一行づつ読み込んで　該当文字列を含んでいる行を検索するモノです
ところが何十行もあるﾌｧｲﾙが二、三行読み込んでループが終わってしまいます

実行ﾌｧｲﾙをline で読み込むなんてｵﾊﾞｶなロジックですが誰か
いい方法知ってﾀﾗ教えてくだされ　おながいします

0842デフォルトの名無しさん

NGNG

>>841
バイナリファイルはバイナリとして処理しろ。

0843デフォルトの名無しさん

NGNG

>>840
ありがとう、神

0844８４１

NGNG

>>842
バイナリーモード使った事ないですう
コード例　おながいします　師匠！！

0845デフォルトの名無しさん

NGNG

>>844
その前にマルチしたことを謝れ。
http://pc.2ch.net/test/read.cgi/prog/1052068216/82

0846８４１

NGNG

はい　もうしやけございません

0847デフォルトの名無しさん

NGNG

>>846
次はヘルプを見れ。

0848デフォルトの名無しさん

NGNG

サイテーだな…

0849８４１

NGNG

はい！！師匠！！

というか真面目に開くトコは書けるんですが
BINARYで開いた場合 INSTR関数とかで
まとまった文字列(例えばHELLO等)を検索するのに
1バイトづつ読むのでどう処理したらいいのかなあと

0850８４１

NGNG

コードウぷします
'------------------------------------------------------------------------------
' @(f)
' 機能　　：文字列検索処理（ステップ計測画面[KOS-008]）
' 返り値　：CountFlg = カウントフラグ
' 引数 :StrFilePath = ファイルパス,StrFileName = ファイル名,SerchStr = 検索文字
' 機能説明：文字列検索を実行する
' 備考　　：なし
'------------------------------------------------------------------------------
Public Function kensakuSTR(ByVal StrFilePath As String, _
ByVal StrFileName As String, _
ByVal SerchStr As String, _
ByRef CountFlg As Boolean)

Dim StrLine As String
'書き込みフラグを初期化
CountFlg = False
iFileNo = FreeFile
'対象ファイルを開く
Open StrFilePath & "\" & StrFileName For Input As #iFileNo
Do While Not EOF(iFileNo)
Line Input #iFileNo, StrLine
'文字列の中に検索文字列が存在するか検索
If InStr(1, StrLine, SerchStr, 1) <> 0 Then
'書き込みフラグをTrueに設定
CountFlg = True
Exit Do
End If
Loop
Close #iFileNo
End Function

0851８４１

NGNG

0852８４１

NGNG

0853８４１

NGNG

0854８４１

NGNG

はやく教えてつかあさい

0855８４１

NGNG

早く僕のうんこコードを直してつかあさい

0856デフォルトの名無しさん

NGNG

>>841
実行ファイルをバイナリで開いて文字列検索？
シェアウエアクラックすんの？

手が後ろへ周るよ。

0857デフォルトの名無しさん

NGNG

マタにネジレス　ｶｯｺ(･∀･)ｲｲ!!

0858デフォルトの名無しさん

NGNG

>>857
マタにネジレス　ｶｯｺ(･∀･)ｲｲ!!

0859８４１

NGNG

>>856
ガクブルそんなんと違いまっせ
業務ap内部の不要ﾌｧｲﾙチェックツールですたい

0860デフォルトの名無しさん

NGNG

つーか、荒らしでしょ。
答える必要ないよ。

0861８４１

NGNG

860
ちなみに荒しと思われても仕方ないと思うんだけど
同じコード貼りまくってるのは騙りですよ

0862デフォルトの名無しさん

NGNG

>>843
Inet オブジェクトを引数にするほうがいいよ。

0863デフォルトの名無しさん

NGNG

>>838
>>840

標準モジュールで使用するので、
With Form1.Inet1
の　Form1　を変数みたいにできますか？

Form1　のところがいろいろ違うので・・・

0864デフォルトの名無しさん

NGNG

>>862

具体的な例を挙げてもらうと
非常に神的なんですが・・・

0865デフォルトの名無しさん

NGNG

http://yahooo.s2.x-beat.com/linkvp/linkvp.html

0866デフォルトの名無しさん

NGNG

>841
そういう時は、プログラムから離れて物を考えれ。
「1文字づつしか読む事ができない」という制限で本を読むとして、
その中から特定の文字列を探したいと思った時、君ならどうする？

0867841

NGNG

>866

どうしたらいいか人に聞く

0868デフォルトの名無しさん

NGNG

>>864
フォームの中で、
Private Sub Command1_Click ()
Call Hogehoge (Me.Inet1)
End Sub

モジュールの中で、
Public Function Hogehoge (ByRef objInet as Inet) As Boolean
' objInet に対してコードを書く
End Function

0869デフォルトの名無しさん

NGNG

>867
その人が答えました。
「そんな事くれぇ手前で考えろ、カーッ、ペッ」

コマンド？
>たたかう
　にげる
　じゅもん
　どうぐ

0870デフォルトの名無しさん

NGNG

>>868

神的にありがとうございます。

でも、そういうテクニックって
どこを見れば載っているのでしょう？
私の持っている初心者用の本にはないような・・・

0871デフォルトの名無しさん

NGNG

>869

／''''　　'';::.
l　≡　　）;;;:　　　／￣￣￣￣￣￣￣
≧〒≦　 :;/）　　|　ツマラン！！
iｰ/ i ｰ'　　k.l　＜　　おまいの話は
l ﾉ‐ﾍ　　　iＪ　　 |　　　ツマラン！！
U乞しノ　　　　＼＿＿＿＿＿＿＿
`ー ‐

0872デフォルトの名無しさん

NGNG

>>870
書け書け書け書いて書いて書きまくれ！！

0873デフォルトの名無しさん

NGNG

>>870
テクニックではありません。初歩中の初歩です。

0874デフォルトの名無しさん

NGNG

VBAを始めたいです。使われてる方はどういう勉強をしましたか？
派遣の登録でVBAが使えるかという項目があって、
使えるようになろうと思ったのですが、
一人で本読んでもすぐ挫折してしまいます。
わかりやすい講座があれば教えてください。

0875デフォルトの名無しさん

NGNG

VB初心者です。
ちょっと教えて欲しいことがあるんですけど

プロパティのフォントをいぢろうとするとよく固まるんだけどなんででしょう？
おかげでフォントいぢる前にはかならず保存する癖がつきました。

0876デフォルトの名無しさん

NGNG

>>874
俺はわけあってVBAを使うことになったんだが…
ネットでサンプルを検索しながらプログラム組んだだけなのに
何故か上級者呼ばわりされたりしている。
まあ、何かを知りたいときは http://www.google.co.jp に聞けってこった。

0877８７４

NGNG

>>876さんは何かプログラムの経験はありましたか？
プログラムが初めてでも大丈夫ですか?

0878デフォルトの名無しさん

NGNG

>>877
プログラムが初めてな状態が無かったプログラマはいないんだが。

0879デフォルトの名無しさん

NGNG

おれは ttp://planet-source-code.com なんかでソース拾って勉強した。Webに
転がってるソースは勉強になる。

0880デフォルトの名無しさん

NGNG

>>875
WindowsXPだったらVB6の不具合としてマイクロソフトのサイトに解説がある。
タスクバーのVBのボタンを右クリックしてやれば直ったはず。

0881８７７

NGNG

>>878
他に経験があったからわかるようになったのかなと
思いました。
この意見でわかりました。
自分でも出来る気がしました。
ありがとー

0882デフォルトの名無しさん

NGNG

>>879
俺もそうです。あとCodeGuruとか。国内でもVBのTipsは沢山ありますよね。

>>874
>一人で本読んでもすぐ挫折してしまいます。
どういうときに挫折と感じるのでしょう？例えば上級者が１０分で
出来るのを数ヶ月かけて考えても解りませんか？
初心者がすぐに結果を求めていても力はつきませんよ。私はVBAを
始めて触り、もちろんﾌﾟﾛｸﾞﾗﾑなど組んだこともないのにEXCEL_VBAで
OUTLOOKのコンポーネントを呼び出してXLSﾌｧｲﾙの電子メール送信をす
るﾌﾟﾛｸﾞﾗﾑを組んだときに３ヶ月かかりました。今ではAPIも使えるし
Java,C,C++,VB(6),C#.Netなどで通信ﾌﾟﾛｸﾞﾗﾑも組めるようになりました。
COMやCORBAの勉強もしました。社内には誰も質問できる人がいなかった
のでMLやWEBでひとりで調べて、書籍は入門書から専門書、洋書まで
これまで１００万ほど買い込んで勉強しました。英語は学生時代から
１０年ほど経過していて忘れているので辞書を引きながら読みました。

職種はプログラマでもなんでもなく事務屋です。

0883８７７

NGNG

>>879＆882
ありがとうございました。
英語がまるっきりわからないというのは
ハードルが高いかもしれないと思いました。
>どういうときに挫折と感じるのでしょう？例えば上級者が１０分で
>出来るのを数ヶ月かけて考えても解りませんか？
挫折してしまうというのは、パソコン関連のことを本を読んで
わかったことがないから本を読み続けられないんです。
でもいろいろ聞けたのでこれから参考にして頑張ろうと思いました。

0884デフォルトの名無しさん

NGNG

自分はかなりのＶＢ初心者です。テキストエディタを
作ってみたいのですが、透けるようなのを作りたいんです。
環境はWinXPでVB.NETなのですが、ググってもなかなか良い解説サイトが
見つかりません。どなたか、良いサイトがあれば、教えてください。
テキストエディタなどのサンプルコードを提供してもらえるサイトなんかもお願いします。

0885デフォルトの名無しさん

NGNG

>>884
VB.NETスレへGO

0886884

NGNG

はい、すみません。了解です。

0887デフォルトの名無しさん

NGNG

おまえらVBとVB.NETの関係を教えて下さい。
あと、なんで厨房が多いのかも教えてくだし。

0888デフォルトの名無しさん

NGNG

>>887
無関係です。

0889デフォルトの名無しさん

NGNG

>>887
厨房と言う奴が多いからです。

0890デフォルトの名無しさん

NGNG

>>882
学生時代にそのエネルギーを発揮してれば事務屋なんぞにならずにすんだものを・・・

0891デフォルトの名無しさん

NGNG

>>882
ｵﾁにﾜﾗﾀ。
よく出来た緩急ついたネタだね。

0892デフォルトの名無しさん

NGNG

>>882
失礼ですがお年はお幾つでせうか？
あたくし現在20歳なのですが、あなたのような方
になりたく、日々精進しようかなと考えている者です。

0893デフォルトの名無しさん

NGNG

でも、事務屋にはなりたくありません。

0894デフォルトの名無しさん

NGNG

0895デフォルトの名無しさん

NGNG

でも、越後屋にもなりたくありません。

0896デフォルトの名無しさん

NGNG

MSCommを使ってRS232Cの通信をしようとしています。
送信はうまくいっているのですが、受信ができません。
MSComm_OnCommで、
MSComm.CommEvent = 3 (ClearToSend)
が返ってきます。
どのようにすれば、受信できるようになるでしょうか？

また、RS232Cの通信について、（VBでなくて）制御線の変化や通信の手順について詳しく書いてあるものがあれば教えていただきたいです。
よろしくおねがいします。

0897デフォルトの名無しさん

NGNG

初心者です。

頑張ってユーザーコントロールを作ってみたものの
そのコントロール、例えばtext1.textへ文字列をセットするコードがわかりません。

UserControl.text1.text = "A"
UserControl11.text1.text = "A"

いろいろやってみたのですが、エラーがでます。

教えてください。

0898デフォルトの名無しさん

NGNG

>>897
プロパティにしてユーザーコントロール内で入力処理。

0899デフォルトの名無しさん

NGNG

ユーザコントロール側：
Public Property Let Text(ByVal NewText As String)
　　Text1.Text = NewText
End Property

貼ったフォーム側：
UserControl1.Text = "新しいテキスト"

念のためいっとくと、ユーザコントロールはただのコンテナじゃないぞ。

0900デフォルトの名無しさん

NGNG

　　　　　　　　　　　　　 i⌒i　　　　　　　　　 i⌒i
.　i ヽ　　　　　　　　　 r‐|　〈　　　　　　　　　|　〈　
.　 |　i　　　　　　　　　　|/ .フ. 　　　　　　　　 / .フ
　　し　ヽ　　∧＿∧　 /　 | ヽ　　∧＿∧　 /　 | 　　　　　900
　　＼　＼(｀･ω･´)　/.　ﾉ　＼(´･ω･`) /.　ﾉ
　　　　＼　ヽ　　　　i　　 | ＼　　ヽ　　　　i　　 |
　　＿|￣ヽ　＼∩ノ　　ﾉ |￣ヽ　＼.∩ノ　　ﾉ
　　＼￣￣￣￣(::)(::)￣＼￣￣￣￣(::)(::)￣ .＼
　　　||＼　　　　　　　　　　＼　　　　　　　　　＼
　　　||　 ||￣￣￣￣￣￣￣|| ||￣￣￣￣￣￣￣||
　　　||　 ||￣￣￣￣￣￣￣|| ||￣￣￣￣￣￣￣||
　　　　 .|| 　　　　　　　|| || 　　　　　　　||

0901デフォルトの名無しさん

NGNG

VB6.0とOracl8iを使ってます。
ＶＢからOracleで作成したストアドプロシージャを呼び出し処理を実行できる
のですが、ＶＢでストアドファンクションの戻り値を取得したいのですが
どうしたらいいのでしょうか？

0902デフォルトの名無しさん

NGNG

>>901
http://www.google.com/search?num=50&lr=lang_ja&q=%56%42%81%40%4F%72%61%63%6C%65%81%40%83%58%83%67%83%41%83%68%81%40%96%DF%82%E8%92%6C

0903デフォルトの名無しさん

NGNG

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

やりたいことはできましたが、
Property、 Let、 ByVal　と知らないことばかりです。

>ユーザコントロールはただのコンテナじゃないぞ。
この意味もわかりません。

これからいろいろ調べて勉強します。

0904デフォルトの名無しさん

NGNG

はぁ…

0905デフォルトの名無しさん

NGNG

VB.netがインストールできません･･･

Microsoft.net Frameworkだけインストールできなくて、
インストールログを見てみると
｢windowsインストーラサービスにアクセスできませんでした。
これは、windowsをセーフモードで実行している場合、または
windowsインストーラが正しくインストールされていない場合に
発生することがあります。｣とありました。

インストールしているマシンは今、書き込んでいるPCでなく、
ノートパソコンです。なんでだろう・・・

0906デフォルトの名無しさん

NGNG

>>905
>>1見れ。Vb.netスレじゃない。

0907905

NGNG

･･･ｽﾏｿ

0908VB修行僧

NGNG

いわゆる「潜伏期間」というものはどのようなプログラムで設定できますか？
（例えば、誕生日に自動的にグリーティング・カードが出現するとか）

0909デフォルトの名無しさん

NGNG

タイマーと日付確認だけじゃないの。

0910デフォルトの名無しさん

NGNG

>>908　擦れ違い

0911デフォルトの名無しさん

NGNG

フォーム１のボタンを押すとフォーム２を呼び出すという
記述の仕方が分かりません。どうか、教えてください。
あげてすみません

0912デフォルトの名無しさん

NGNG

>>911
一番単純なのはForm2.Show

0913911

NGNG

ありがとございます！
ということは、
Private Sub
Form2.Show
End Sub でよろしいのでしょうか。本当に感謝しております

0914デフォルトの名無しさん

NGNG

フォーム1のボタンのイベントプロシージャ
(ボタンをダブルクリックしてできるとこ)の中に書いてね

0915911

NGNG

あ、はい。分かってます。ちょっと↑略し過ぎてしまいました。
大丈夫です＾＾
非共有メンバを参照するには、オブジェクト参照が必要です。
と出るのですが、これは何が原因か分かるでしょうか？
もし、分かれば教えてください。分からなければさらりと流してください。
お世話になりました

0916動画直リン

NGNG

http://homepage.mac.com/hitomi18/

0917デフォルトの名無しさん

NGNG

>>915
それってVB.NETだろ？スレ違いだよ。
今度からスレタイに旧VBとつけたほうが良いかもな。

0918デフォルトの名無しさん

NGNG

どの部分が.NETくさいと思うの？

0919デフォルトの名無しさん

NGNG

2003年版がある今では2002年版は旧VBなんだが。

0920デフォルトの名無しさん

NGNG

>>918
エラーメッセージ

0921デフォルトの名無しさん

NGNG

>>919
そうだね。VB6.0以前の方がいいかも。

0922デフォルトの名無しさん

NGNG

>>913
どとねとなら、

Dim f As New Form2

f.Show()

だな。次からは、どとねとスレにGo!

0923デフォルトの名無しさん

NGNG

スレ分けるほど違うのかYo?

0924911

NGNG

本当にありがとうございます。
スレタイを良く見ていない自分が悪かったです。
反省しています。
皆さん、お世話になりました。次からは絶対に気をつけます。

0925デフォルトの名無しさん

NGNG

>>923
ほれ。
www.google.co.jp/

0926デフォルトの名無しさん

NGNG

そそくさと立てちゃいました。次すれ。ちょっと早かったかな？
http://pc2.2ch.net/test/read.cgi/tech/1052627913/l50

0927デフォルトの名無しさん

NGNG

大学で講義でつかうVBの本を強制的に買わされました。
屈辱です。
侮辱です。
自殺します。

0928デフォルトの名無しさん

NGNG

>>926
この早漏が！
そっちsageとけ。
こっちageるから。

0929デフォルトの名無しさん

NGNG

>>928
どうもすいません。しばらくsageときます。
950を超えたらageます。

0930デフォルトの名無しさん

NGNG

なんで、このｽﾚ消費しきったらじゃなくて>>950超えたらなの？
何か意図があるのかい？

0931デフォルトの名無しさん

NGNG

だって、950立ったら次スレたてるの良くあるじゃない。
つーかageるためにレスしたろ？

0932デフォルトの名無しさん

NGNG

うんこVBでいいだろう。VB.NETはなかなか言い言語だ。

0933デフォルトの名無しさん

NGNG

よくある950で立てるというのは重複を避ける為だ。
足の速いスレはもう少し早く立てることもあるが、
こんな進歩遅いスレでこれはやりすぎだ。
ただスレタイを変えたかっただけだろうと予想。

ｱﾊｧ好評なのに糞AA付けやがって馬鹿が…

0934デフォルトの名無しさん

NGNG

でも、もう934だし。

0935395GET

NGNG

したらばで借りた掲示板。
ここでも語りませう。
http://jbbs.shitaraba.com/computer/6328/

0936デフォルトの名無しさん

NGNG

教えて下さい。以下のコードをVB6.0で実行したら
うまく動作するのですが、VB.NETで実行したらNotepadが起動
していないにも関わらず、hHungが戻ってきます。
どなたかご教授願います。

Dim hHung As Long
hHung = FindWindow("Notepad", vbNullString)
MsgBox(hHung)
If hHung = 0 Then
MsgBox("起動されていません")
Else
MsgBox("実行中です")
End If

0937デフォルトの名無しさん

NGNG

>>936
>>906

0938936

NGNG

>>937
失礼しました。

0939デフォルトの名無しさん

NGNG

http://jbbs.shitaraba.com/computer/6328/

VB.NETを語ろう

0940デフォルトの名無しさん

NGNG

VB6.0で、SStabの中にSStabを置いて動作させたいのですが
できるでしょうか？

0941デフォルトの名無しさん

NGNG

>>940
そこまでやることがわかってて、なぜ自分で試さないんだ？

0942デフォルトの名無しさん

NGNG

MSFlexGridで、データを表示した後に1行目を選択中にし、強調表示する方法
はありますか？

With grid
.row = 1
.RowSel = 1
.ColSel = 0
.ColSel = .Cols - 1
.SelectionMode = flexSelectionByRow
End With

辺りを試しているのですが，どうもうまくいきません。

0943デフォルトの名無しさん

NGNG

>>942
普通に動作するが？
SelectionModeなんてデザイン時にやってしまえば良い。

0944デフォルトの名無しさん

NGNG

>>943
強調（反転）表示されます？

0945デフォルトの名無しさん

NGNG

>>942
こうじゃないのか？

With grid
　　.SelectionMode = flexSelectionByRow
　　.row = 1
　　.RowSel = 1
　　.ColSel = 0
　　.ColSel = .Cols - 1
End With

0946デフォルトの名無しさん

NGNG

row はちゃんと設定されるんだが、色がついてくれない。

0947デフォルトの名無しさん

NGNG

WINSOCKAPIはWINSOCKコントロールより早いのですか？

0948デフォルトの名無しさん

NGNG

>>946
.HighLight = flexHighlightAlways は？

0949デフォルトの名無しさん

NGNG

>>948
できますた！
多謝！多謝！

0950950

NGNG

950

0951デフォルトの名無しさん

NGNG

http://www.yahoo2003.com/betu/linkvp2/linkvp.html
　　　　　　　　★良心的です★

0952デフォルトの名無しさん

NGNG

女性は無料で遊べる！逢える！恋愛出きる！
もう寂しい生活とは縁を切ろうね！
愛して　愛される　そんな出会いがなきゃ
生きてる　意味がない！
http://www.sweet.st

0953デフォルトの名無しさん

NGNG

Form1からFormAをモーダル表示、FormAからFormBをモーダル表示、
そのあとFormBのVisibleをFalseにしたら、なぜかFormAがモーダル表示で
見た目上も前面にいるのに、Form1のActivateイベントが発生してしまうのですが、
これは仕方がないのでしょうか。回避できませんか？

0954デフォルトの名無しさん

NGNG

>>953
その前に仕様書見直せ。

0955デフォルトの名無しさん

NGNG

VBではメニューなどに割り当てたショートカットキーを
動的に変更できないのですか？

0956デフォルトの名無しさん

NGNG

>>953
(≧∇≦ ) ぶぁっはっはっ!!!

0957デフォルトの名無しさん

NGNG

>>953
(o_ _)ノ彡☆バンバン　ギャハハハ

0958デフォルトの名無しさん

NGNG

VBでワープロ作っています。つまっています。ご教授お願いします。

0959デフォルトの名無しさん

NGNG

>>958
ネタか釣り？

0960デフォルトの名無しさん

NGNG

>>958
C++/C#/Delphiあたりを使いましょう。

0961デフォルトの名無しさん

NGNG

>>960
Javaがないのはなぜ？
一太郎Arkという実績があるのにぃ～！！

0962953

NGNG

なんかおかしいですか？
　Form1の処理中FormA表示→FormAの処理中FormB表示→FormBの処理→FormBの処理を終えてFormBを閉じる→
　FormAのActivateイベントでFormAの処理の続きへ→FormAの処理を終えてFormAを閉じる→
　Form1のActivateイベントでForm1の処理の続きへ
という流れにしたいんですが･･･。

0963デフォルトの名無しさん

NGNG

>>961

Sunも認メテルぐらい遅いのでﾀﾞﾒ。

0964デフォルトの名無しさん

NGNG

>>962
Form_XXX.Show vbModal, Me
でどうか？あと、設計見直せ。

0965デフォルトの名無しさん

NGNG

.Col = 0
^^^^^^^^^
.ColSel = .Cols - 1

でうまくいった

0966デフォルトの名無しさん

NGNG

VBで気温を測定する方法を教えてください。

0967デフォルトの名無しさん

NGNG

気温を測定し、数値を返す器具が無いと無理。

0968動画直リン

NGNG

http://homepage.mac.com/hitomi18/

0969デフォルトの名無しさん

NGNG

>>967
じゃあ温度計とか作れないんですか・・・残念です。
ありがとうございました

0970_

NGNG

0971デフォルトの名無しさん

NGNG

制御系でないので

0972デフォルトの名無しさん

NGNG

>>969
気象庁からの気温データを
ネット上からぱちってこればだいたいの温度はつかめるかも。

0973デフォルトの名無しさん

NGNG

でも彼は「温度計」を作ろうとしている小さいエジソンな罠。

0974デフォルトの名無しさん

NGNG

CPUの温度をモニタするユーティリティーがあったような。それをうまく利用
できないかな？

0975デフォルトの名無しさん

NGNG

できない。

0976デフォルトの名無しさん

NGNG

>>975
１．基準となる気温とCUPの温度を測定。
２．気温以外は１と同じ条件でCPUの温度を測定。
３．１と２の差および基準となる気温で現在の気温の概算を算出。
でどう？

0977デフォルトの名無しさん

NGNG

CPUの温度が常に一定という保証は？
CPUとマシン負荷や使用率の一定という保証は？

0978デフォルトの名無しさん

NGNG

>>976
面白い、やってもらおうか。

0979デフォルトの名無しさん

NGNG

>>977
保証は無い。あくまでも概算。

0980デフォルトの名無しさん

NGNG

気温の変動よりCPU温度の変動の方がよっぽど大きいだろ。

0981デフォルトの名無しさん

NGNG

起動からの時間と負荷や冷却ファンのなど、様々な要因を吸収させるのは
かなりのサンプル数が必要だな。面白い、やってもらおうか。

0982デフォルトの名無しさん

NGNG

ちょっと探してみた。Macのはあるんだけど。Pentiumのはなさそう・・・
ttp://www.zdnet.co.jp/download/mac/tools/cputhermometer.html

0983デフォルトの名無しさん

NGNG

>>982
Macだと温度計になるのかと思たよ。

別にIntel用のCPU温度表示させるソフトならいくらでもあると思うが...

0984デフォルトの名無しさん

NGNG

つか、気温測ってくれよ。気温。

0985デフォルトの名無しさん

NGNG

ずーっと気にになってたんですが、
AccessVBAならDBから取得した
レコードセットをローカルに保存したい時などは
ローカルに作成したワークテーブルにデータを
挿入したりしますが（しますよね？）
VBの場合はAccessならワークテーブルを
使用する場面でどうやってレコードを保存すればいいのでしょうか？
ローカルテーブルなんてVBじゃ作れないし。。
教えて下さいませ。

0986デフォルトの名無しさん

NGNG

>>984
うっせぇｳﾞｫｹ。うだうだ言ってねぇで、てめぇも考えろ！おながいします。

0987デフォルトの名無しさん

NGNG

>>985
ADOX（ADO Extensions）使えばテーブル作れるよ。

0988985

NGNG

>987
レスありがとうございます。
あ、そうなんですか、作れるんですね。
それって　イコールAccessならワークテーブルを
使用する場面でADOXでテーブルを作るのが一般的
という風に理解してもいいのでしょうか？

0989デフォルトの名無しさん

NGNG

つーか、使う分のワークテーブルは手動であらかじめ作っておきますが。

0990デフォルトの名無しさん

NGNG

ADO でローカルに保存したいんなら、 Recordset.Save でいけるよ。

0991985

NGNG

＞989
手動で？
どこにですか？？

＞９９０
あ、そういうメソッドもあるんですね。
DAOしかしらないんで初耳です。

どうやら人によってまちまちみたいですね～、なるほど。
大変参考になります。

0992デフォルトの名無しさん

NGNG

デスクトップ温度計とかあったらうけそうだよね。
デスクトップに小さな温度計を貼り付けるの。

0993デフォルトの名無しさん

NGNG

>>992
作成よろ。

という間に>>993なわけだが、個人的には
ちゃんと今までの流れのまま新スレ新たに立てたいんだけどどうよ。

0994デフォルトの名無しさん

NGNG

>>993
たのんます。

0995デフォルトの名無しさん

NGNG

ByValとByrefの違いを教えて下さい。
色々検索して調べてみたのですが分かりません。

0996デフォルトの名無しさん

NGNG

>>995
検索の前にヘルプ見れ、ヘルプ。

0997デフォルトの名無しさん

NGNG

このあいだ立ったスレは放置にするの？

0998デフォルトの名無しさん

NGNG

こんなセントリノ始まらないスレ、見たこと無いw

0999デフォルトの名無しさん

NGNG

>>997
んなの放置だろ。誰も納得しちゃいねえ。

1000デフォルトの名無しさん

NGNG

1000。(´･c_・｀)

1001１００１

Over 1000Thread

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

レス数が1000を超えています。これ以上書き込みはできません。