2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

(*´д`*)アハァ… VB初心者質問スレ Part20

1 :デフォルトの名無しさん:03/01/07 03:57
  Part11 http://pc.2ch.net/tech/kako/1024/10243/1024380249.html
  Part12 http://pc3.2ch.net/test/read.cgi/tech/1026642565/
  Part13 http://pc3.2ch.net/test/read.cgi/tech/1029241786/
  Part14 http://pc3.2ch.net/test/read.cgi/tech/1030947162/
  Part15 http://pc3.2ch.net/test/read.cgi/tech/1032706491/
  Part16 http://pc3.2ch.net/test/read.cgi/tech/1034302532/
  Part17 http://pc3.2ch.net/test/read.cgi/tech/1036154952/
  Part18 http://pc3.2ch.net/test/read.cgi/tech/1038103769/
  Part19 http://pc3.2ch.net/test/read.cgi/tech/1039859691/

VB.net関連スレ
【老若】VB.net質問スレ【男女】
http://pc3.2ch.net/test/read.cgi/tech/1025848458/



心得
壱.質問する前に過去ログにも目を通してみる。
弐.質問する前に MSDN などで調べてみる。
参.VBScript もこのスレでOK。
4.インストーラーなどの質問もOK。
五.下ネタもたまにならOK。

2 :1:03/01/07 03:58
建てたはいいんだけど、心得の4だけ数字ってのはどうなのよ?

3 :デフォルトの名無しさん:03/01/07 06:32
>>1
は、乙、と。




いつも荒れるので、しばらくsageで逝こう。

4 :デフォルトの名無しさん:03/01/07 07:31
>>1
乙!

5 :かおりん祭り◇VqKAORinK6:03/01/07 09:02
∋oノハヽo∈ / ̄ ̄ ̄ ̄ ̄ ̄ ̄
  ( ^▽^) < 新スレおめでとうございま−す♪
= ⊂   )   \_______
= (__/"(__) トテテテ...

6 :デフォルトの名無しさん:03/01/07 09:56
前が埋まってるので上げるべ



7 :前スレ957:03/01/07 11:36
前スレでかなりDQNをかました957です。
あの後、
Set abc = cnn.Execute("select * from 必須項目 where 学生ID = " & rec1![学生ID])
abc.Delete
の2行に減らすところまで進めました。
ご親切に教えていただいてありがとうございました。
「現在のRecordsetは更新をサポートしていません。プロバイダか、選択したロックタイプの限界の可能性があります。」
とエラーが出てしまうのですが、
前スレにてロックタイプによるとありましたが、多分それのことなのでしょう。
これ以上ご迷惑は掛けられないので、自分で地道にやることにします。

最後に。
963にてDoloopを使用したソースを載せたのは、とりあえずはじめの状況を載せた方が良いのではと
考えたからです。
別に怒らせようとか思って載せたわけではありません。
ただ、そのことでレスをいただいた方々、本当にすみませんでした。



8 :デフォルトの名無しさん:03/01/07 11:44
>7
質問するときにこそ長文を書こうね

9 :デフォルトの名無しさん:03/01/07 12:15
>>7
ロックを指定しないとdeleteできない
読み取り専用で開いちゃうんだアフォー。


10 :デフォルトの名無しさん:03/01/07 13:09
>>7

> 前スレでかなりDQNをかました957です。

リンクぐらいつけろ。
前の展開を知っている人ばかりじゃないんだから。

http://pc3.2ch.net/test/read.cgi/tech/1039859691/957

> Set abc = cnn.Execute("select * from 必須項目 where 学生ID = " & rec1![学生ID])

rec1がどんなレコードセットなのか、読み手が理解するに必要な情報が明示すべし。
読み手はエスパーばかりじゃないんだから。

> ただ、そのことでレスをいただいた方々、本当にすみませんでした。

という割には、アドバイスが全然活かされてないね。
ほんとに読んでる?

11 :デフォルトの名無しさん:03/01/07 13:38
>自分で地道にやることにします
ってあるんだし、別に煽らんでもええんちゃう?
ほっといてやりな。

12 :(・∀・)再アップ:03/01/07 13:54
今動いてるシステムの改修で、環境は
NT4+VB4+MDB(DAOでアクセス)

で、ある一台のマシンでだけ動作しない。
DB検索しに逝って、項目参照する個所で
「このコレクションには項目がありません」
と来る。
NGなのは日本語の英字大文字の項目
EX) "ABC−NO"

こんな経験ある人(・∀・)イナイ!?


13 :デフォルトの名無しさん:03/01/07 19:43
>>12
-が使っちゃいけない文字なんだろ

14 : :03/01/07 20:18
>>13
違う。
動いてるシステムなんだってば。

15 :デフォルトの名無しさん:03/01/07 20:29
項目って何よ。

16 : :03/01/07 20:33
>>15
なによ?って・・・

>DB検索しに逝って、項目参照する個所で

カラムといえば分かるのか?


17 :デフォルトの名無しさん:03/01/07 20:41
カラム?
テーブルにフィールドが無いと来る訳か?
んで、そのNGワードはフィールド名?テーブル名?
Access97しか使っていないが、テーブル名にハイフン使うとコーディングでエラー
出るぞ。フィールドが無いとかいうエラーでは無いが。
テーブル名、フィールド名にハイフンは使わない方が良い。


18 : :03/01/07 20:48
>>17
とても >>12 をちゃんと読んでるとは思えないんだけど
お前、おちょくってんの?


19 : :03/01/07 20:53
>>13
あとお前も氏ねよ。
ちゃんと嫁っての。馬鹿か?

20 :デフォルトの名無しさん:03/01/07 20:51
>>18
それならフィールドの数を数えるプログラムを実行してみろ。
0個だったら項目がないってことだろ?


21 :デフォルトの名無しさん:03/01/07 20:56
全くの初心者なのですが、よかったらご教授いただけたらと思います。

VBSを使って以下のような処理は可能でしょうか?

・あるディレクトリ(固定)にあるテキストファイルに1文を加えて保存する。

という処理です。

具体的にはVBSファイルをダブルクリックするだけで、
とある場所のaaa.txtというファイルの最後に、スクリプト上に記述したテキストを
追加したいという感じです。追加したい分は改行を含む数行です。

テキストの編集の自動化は可能でしょうか・・・?
ご存知の方がいらっしゃいましたらご教授いただけたら幸いです。
宜しくお願いいたします。


22 : :03/01/07 21:02
>>20
だから動いてるっつってんだろ、ボゲ
文盲ばっかりかよ
>>12を嫁

23 :デフォルトの名無しさん:03/01/07 21:03
申し訳有りません。aspの環境について質問があります。

メールシステムで、別サイトにあるサーバにアカウントを作成するツールを作成しました。作成したaspツールはIIS5.0で正常に動作する
ことを確認しましたが、お客に開放する際諸般の事情によりWin98SEの環境で動作する必要が出てきました。

その為、Win98の環境でPersonalWebServerをインストールし、オブジェクトを利用する際XMLを利用しているので
(”set xmlhttp = server.CreateObject("msxml2.ServerXMLHTTP")”)
・XMLParser3.0
・IE6.0
をインストールしてツールをWEBブラウザから実行しても、何度も「424:オブジェクトが有りません」と表示されてしまいます。

NT4Serverでは動作したんですが・・・"msxml2.ServerXMLHTTP"は、PWSでは動作しないのでしょうか?ご教授下さい。

24 : :03/01/07 21:04
>>20
てゆーか、
心当たり無いならもういいから。
ハイハイ、どうもありがと。

25 :デフォルトの名無しさん:03/01/07 21:05
VBSって何?

26 :デフォルトの名無しさん:03/01/07 21:07
>>21
WSHというのをマイクロソフトからダウンロードしてくる。

27 : :03/01/07 21:09
>>25
msgbox "氏ね!"

↑この一行をテキスト文書に貼って、拡張子をvbsにして実行してみ。

28 :デフォルトの名無しさん:03/01/07 21:10
>>24
悪いからなんとかしてくれ
という一文となんらかわらん、キミの質問文は。

29 :デフォルトの名無しさん:03/01/07 21:11
>>28
もういい。
荒れるから無視。

30 :デフォルトの名無しさん:03/01/07 21:14
>>23
オレはASPではXMLまで利用してないからわからん。知ってる人が現れるまでまつか、Webプログラム板のIIS、ASPスレを見る。

31 : :03/01/07 21:15
>>28
なにが?
ちゃんと分かるようにいえよ

32 :デフォルトの名無しさん:03/01/07 21:18
>>23
脳症くんに一言。MSのASPやASP.NETのニュースグループで質問せず
何故、2chなんかで質問するのかと小一時間......

33 :デフォルトの名無しさん:03/01/07 21:22
軽く雰囲気悪いぞ。

藻前ら、モティツケ
     /\⌒ヽペタン
   /  /⌒)ノ ペタン
  ∧_∧ \ (( ∧_∧
 (; ´Д`))' ))(・∀・ ;)
 /  ⌒ノ ( ⌒ヽ⊂⌒ヽ
.(O   ノ ) ̄ ̄ ̄()__   )
 )_)_) (;;;;;;;;;;;;;;;;;;;)(_(

34 :デフォルトの名無しさん:03/01/07 21:49
>>31
もうかんべんしてくれ。オレが無知だった。解答わからん。

35 :デフォルトの名無しさん:03/01/07 22:07
>>30
>>32

プログラム系のカキコは初心者でスマヌ。即時性を求めるので、2chを利用したのです。
別の板に逝ってきます。レスどうもです。

36 :デフォルトの名無しさん:03/01/07 22:43
FlexGridを行選択するようにして複数列のリストボックスみたいに使ってます。
選択行の左端の項目を取得するのに、
msFlexGrid1.TextMatrix(msFlexGrid1.Row, 0)
で取得しているのですが、
Shiftキー押して複数選択した時の処理の仕方が分かりません。

Rowで取得できるのは一番上の行だけの様なのですが、その他、
複数選択分の取得しかたを教えてください。

37 :デフォルトの名無しさん:03/01/07 23:11
良スレの予感

38 :デフォルトの名無しさん:03/01/07 23:12
糞スレの悪寒

39 :デフォルトの名無しさん:03/01/07 23:30
>21
Const sPath = "とある場所\aaa.txt"
sAppendText = "こんなの" & vbNewLine & "追加するんだろ" & vbNewLine& "YO"
WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile(sPath,8).Write sAppendText


40 :デフォルトの名無しさん:03/01/08 01:13
VBでランチャーを作ろうかと思っているのですが、
exeファイルをコマンドボタンにドロップした時に、
そのexeファイルに含まれているアイコンの抽出方法がわかりません。
コマンドボタンに登録したもののアイコンを表示したいのですが・・・
絶対パスの取得と起動までは出来ました。(簡単なものですが)

本などを見るとピクチャーに表示させているのは見かけるのですが
コマンドボタンへの表示がどうしても見つかりません。
VBじゃ無理なのでしょうか?
どなたか教えていただけないでしょうか。

41 :デフォルトの名無しさん:03/01/08 01:45
ピクチャをコマンドボタンの上に貼ってはいけない家訓とかあるんですか?

42 :デフォルトの名無しさん:03/01/08 02:27
>>40
>そのexeファイルに含まれているアイコンの抽出方法がわかりません。

なら、ExtractIconとかDrawIconとかでできるんじゃないの?

43 :デフォルトの名無しさん:03/01/08 07:10
VBAのコントロール追加で、ADOとかデータグリッド等があったので
すが、これって普通ですか?もしかしてVB6もインストしてるから
なんでしょうか?VBAでADOをつかったデータベースは作成可能
ですか?

44 :デフォルトの名無しさん:03/01/08 08:58
>>18-19 >>22 >>24

どんな教育を受けて来たのか(特に幼児期〜学童期のしつけ)小一時間(略

お前、岩手県人だろ?
まったく東北人(≠日本人)は人格欠陥者集団だな・・・。

45 :デフォルトの名無しさん:03/01/08 09:10
>12
項目名をカギカッコで囲んだりしてみるとか・・・
あと、Fieldsをループでまわして、各FieldのNameプロパティを
デバッグ窓なんかに吐かせてみてちゃんと項目名が出るか確認。
そのエラーが出るあたりの実コードも晒すと吉かも。


46 :21:03/01/08 10:12
>>39
おおお!!有難うございます!問題なくできました!
凄いッス!(って、皆様からみたら当たり前なのでしょうか、、)

そのスクリプトから独学して応用してみます!本当に有難うございました!


47 :21:03/01/08 10:45
独学するといいつつ、追加質問で申し訳ありません。。。
>>39さんのスクリプトの発展で、2回以上実行して追加テキストの重複を避けるために
たとえば、1行目の「こんなの」って文字が既にあったら、実行せずに終了する〜、
というような分岐は可能でしょうか・・。テキストの全文をサーチする処理が面倒でしたら、
1行目の分で判断ではなく、最後の行が「YO」だったら、、とかの条件でもかまいません。

何度も質問して申し訳ありません、ウザかったら無視してください。
ご存知でしたらご教授願えたらと思います。


48 :デフォルトの名無しさん:03/01/08 11:14
>>47
http://www.microsoft.com/japan/developer/library/vbcon98/vbconmanipulatingfiles.htm
↑ファイルいじくりまわすんならここ読んで来い。

49 :デフォルトの名無しさん:03/01/08 12:14
>>40

コマンドボタンって hDC あったよね
hDC があれば ピクチャーBoxだろうがコマンドボタンだろうが
DrawIconで描画できると思うけど...

50 :マギーシンジ:03/01/08 12:55
始めまして、マギーと申します。

ピクチャボックス上にラベルを貼りつけ、そのピクチャボックスをRefreshするとラベルがちらついてしまい困ってます。

無限ループ中で、ピクチャボックスに画像をBitbltで貼り付け、Refreshするという処理を繰り返しています。もちろんピクチャボックスのAutoRedrawはTrueです。

どなたかいい方法を知っている方、教えてくださーい。

51 :デフォルトの名無しさん:03/01/08 12:59
>>50
直接ピクチャボックスにTextOutAPIなりPrintメソッドなりで文字を描画すりゃいい。

52 :デフォルトの名無しさん:03/01/08 15:33
>>51
Print メソッドならいいけど、TextOut だと結局ちらつくだろ。

53 :デフォルトの名無しさん:03/01/08 17:21
50さんと同じことで困ってます。私の場合、ラベルのキャプションを逐次
書き換える必要があり、Printメソッドでは文字が前に書いた文字と重なってしまい
使えません。

なんか良い方法ないのでしょうか。

54 : :03/01/08 19:55
>>50
 ループの前でラベルのVisibleをFalseにして、ループの後でラベルのVisibleをTrueではダメ?

 

55 :IP記録実験:03/01/08 21:17
IP記録実験
http://qb.2ch.net/test/read.cgi/accuse/1042013605/

1 名前:ひろゆき ◆3SHRUNYAXA @どうやら管理人 ★ 投稿日:03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。

27 名前:心得をよく読みましょう 投稿日:03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か?

38 名前:ひろゆき ◆3SHRUNYAXA 投稿日:03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。

73 名前:ひろゆき ◆3SHRUNYAXA 投稿日:03/01/08 17:27 ID:rLfxQ17l
>ところで、IPが抜かれて何か今までと変わることってあるのでしょうか?
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。

56 :デフォルトの名無しさん:03/01/08 22:37
Access2000でのVBAの質問です。
ここでよかったのかな。
他にいいスレが見当たらなかったので
書き込ませてもらいます。
話すと長くなるので完結に言うと、
サブフォームへフォーカスをうつそうとしてできませんでした。
仮にTESTFMという名前とします。
Form_TESTFM.SetFocus ×
Me.TESTFM.SetFocus  ○
TESTFM.SetFocus ○
一番上のが動かない理由がさっぱりわかりません。
これはなぜなのでしょうか。
そもそも
Form_TESTFM.SetFocus と
TESTFM.SetFocus
はどう違うのでしょうか?
くだらないことかもしれませんがどうしても納得いかないので
教えてもらえませんか?
よろしくお願いします。

57 :デフォルトの名無しさん:03/01/09 00:32
IPとられるとお尻ぺんぺんされるのかなぁ

58 :デフォルトの名無しさん :03/01/09 00:50
>12
>>ある一台のマシンでだけ動作しない。

正常に動作しているマシンとの違いは全くないの?


59 :デフォルトの名無しさん:03/01/09 00:56
>>272
一秒おきにログを消してたら恐ろしく負荷が上がります、、

60 :デフォルトの名無しさん:03/01/09 01:16
>>384
HDじゃなくてよかったね。

61 :デフォルトの名無しさん:03/01/09 01:29
何気にみんなひろゆきに優しいな。。。
たらこで学習能力の無い莫大なかずの社会人に迷惑をかけている引き篭もり管理人がそんない好きなのか・・・

62 :IP記録実験:03/01/09 01:54
IP記録実験
http://qb.2ch.net/test/read.cgi/accuse/1042013605/

1 名前:ひろゆき ◆3SHRUNYAXA @どうやら管理人 ★ 投稿日:03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。

27 名前:心得をよく読みましょう 投稿日:03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か?

38 名前:ひろゆき ◆3SHRUNYAXA 投稿日:03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。

73 名前:ひろゆき ◆3SHRUNYAXA 投稿日:03/01/08 17:27 ID:rLfxQ17l
>ところで、IPが抜かれて何か今までと変わることってあるのでしょうか?
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。

63 :デフォルトの名無しさん:03/01/09 02:03
>>584 ウンコー

64 :デフォルトの名無しさん:03/01/09 02:17
ファイルに、
NAME=デフォルトの名無しさん
ADDRESS=sage
と書いてあり、これを1行ずつ読み込み"="以降の文字列をあらかじめ宣言してある
グローバルな変数NAME, ADDRESSにそれぞれ格納しようとしています。
変数も2個程度なら、"="以前の文字列が"NAME"と一致したら、"ADDRESS"と一致したら、
と比較するのが簡単ですが、数十個になると条件判断も長くなり、非効率的です。
そこで動的にStringから変数を作成したいのですが、そのような関数やメソッドはVBにありますか?


65 :デフォルトの名無しさん:03/01/09 02:43
VB で使える連想コンテナなんてあったかなあ・・・。
C++ なら std::map でいけるけど・・・。

しかし、「変数を作成」 なんて不可能だと思わないか?
どうやってそれにアクセスするんだ?

66 :デフォルトの名無しさん:03/01/09 02:47
キターの棒線の長さが皆同じなのが不自然だ。
やりなおせ。

67 :64:03/01/09 03:06
うーん、ではそのファイルに記述する順番を決めておき、
取得した順に、こちらも決めておいた順に変数に値を格納していく、というのが現実的ですかね?

java.util.Properties#load()みたいなメソッドがあればよかったのですが…
要は前回終了時の状態などを保持しておくConfigファイルの読み込みがしたかったのです。

68 :デフォルトの名無しさん:03/01/09 03:13
そういう話なら INI ファイルを作って、GetPrivateProfileString() 系の API でも
使いなさいよ、素直に。

69 :64:03/01/09 03:32
>>68
ありがとうございます
そのような関数の存在を知らなかったので助かりました。

70 :デフォルトの名無しさん:03/01/09 03:34
記録されてみるテスト。

71 :デフォルトの名無しさん:03/01/09 09:39
>>56
>Form_TESTFM.SetFocus と
>TESTFM.SetFocus
>はどう違うのでしょうか?

名前が違う。Form_は名前の一部になる。
だからForm_TESTFMという名前のフォームが無ければエラーになる。

72 :山太郎:03/01/09 11:53
>64
文字列をインデクスとした配列みたいな使い方をしたいって事だよね?
素直にCollectionオブジェクト使うほうが吉でないかい?

Dim cl as Collection

 Set cl = New Collection
 With cl
  .Add("名無し", "NAME")
  .Add("sage", "ADDRESS")
 End With


 MsgBox cl.Item("NAME")

みたいな。

73 :デフォルトの名無しさん:03/01/09 12:10
Form1をSetWindowLongで親ウィンドウを変更したのですが
変更後のForm1をモーダルにするにはど〜すりゃいいの?


下がってきてるんでageておきます

74 :デフォルトの名無しさん:03/01/09 12:27
>>124
ご苦労様です

75 :マギーシンジ:03/01/09 12:34
>>51
>>52
なるほど! printでやってみます。どーもでした。

>>54
>ループの前でラベルのVisibleをFalseにして、ループの後でラベルのVisibleをTrueではダメ?
これでやってもちらついてしまいました。

76 :デフォルトの名無しさん:03/01/09 17:49
age

77 :デフォルトの名無しさん:03/01/09 18:04
======2==C==H======================================================

         2ちゃんねるのお勧めな話題と
     ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数: 138720人 発行日:2003/1/9

年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。

そんなわけで、年末に予告したIP記録ですが実験を開始しています。

「2ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。

んじゃ!

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────

78 :デフォルトの名無しさん:03/01/09 18:05
>>75
画面の更新を一時停止するAPIがある。

79 :デフォルトの名無しさん:03/01/09 20:13
Form1にコントロール配列を用意して子ウィンドウを表示させているのですが
Form1の最小化ボタンが押されたときに表示している子ウィンドウも全て
最小化してまた逆にForm1が復元されたときもまた全て復元ということが
やりたいのですがどうすればいいでしゅか
おながいします

80 :デフォルトの名無しさん:03/01/09 20:44
VBでユーザーが使用できるエラー番号帯って何番だっけ?
(予約されていない番号帯)

81 :デフォルトの名無しさん:03/01/09 20:44
WindowsXPのパソコンではVB6.0アプリがランタイムを別途インストールしなくても動くといううわさがありますが本当なのでしょうか?

82 :デフォルトの名無しさん:03/01/09 20:47
>>79
Resizeイベントをひっつかまえたら?

83 :デフォルトの名無しさん:03/01/09 21:03
ListViewをIvwReportで使用してるんですが、
ListItemやSubItemsをColumuHeadersの横幅も含め、表示されているとおりに、印刷したい場合はどうしたらいいのでしょうか?

84 :デフォルトの名無しさん:03/01/09 21:59
>>81
ランタイム入れなくても動くだけなら動くよ。
文字化けして使い物にはならんだろうけどw

素直にランタイム入れろ。



85 :デフォルトの名無しさん:03/01/09 21:59
.Chart.SeriesCollection().NewSeries.Values = Y
で元データを指定したいのですが、最大16個の数値しか指定できないので
困っています。つまり、もう少し大きな配列を元データとして渡したいのです。
これって拡張できないのでしょうか?拡張できないなら一度セルに吐
き出して、といったかんじでグラフを作成することになってしまいま
す。これは避けたいのです。

このようにしてX軸Y軸のデータを指定しています。Xは16個以上でも指定
できるのですが・・・・・名案がありましたらお願いします。

Set co = ActiveSheet.ChartObjects.Add(10, 10, 300, 200)

With co
.Chart.PlotBy = xlRows
.Chart.SeriesCollection().NewSeries.XValues = X
.Chart.SeriesCollection().NewSeries.Values = Y
.Chart.ChartType = xlLineMarkers
.Chart.SeriesCollection(1).Delete
End With


86 :デフォルトの名無しさん:03/01/09 22:20
>>79
Form1+Command1、Form2を用意して、Form1に書くべし。

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Form_Resize()
Select Case Me.WindowState
Case vbNormal
Form2.WindowState = vbNormal
Case vbMinimized
Form2.WindowState = vbMinimized
End Select
End Sub

87 :81:03/01/09 22:55
>>84
なるほど でもランタイム入れずにちょっと動くだけでもVB作者にはありがたいな

88 :デフォルトの名無しさん:03/01/09 23:00
qbだけじゃなかったのか

89 :79:03/01/09 23:01
>>86
モレノカミキターーーーーーーーー

ありがdできますた


90 :デフォルトの名無しさん:03/01/10 09:34
>通知書,本件訴状,請求の趣旨訂正申立書等により,
>本件1ないし3のスレッドにおいて原告らの名誉を毀損する
>本件各名誉毀損発言が書き込まれたことを知っていたのであり,
>これにより原告らの名誉権が侵害されていることを認識し,
>又は,認識し得たのであるから

この最初の通知書っていうのが内容証明かと思ったんですが、、、

91 :デフォルトの名無しさん:03/01/10 09:56
>通知書,本件訴状,請求の趣旨訂正申立書等により,
>本件1ないし3のスレッドにおいて原告らの名誉を毀損する
>本件各名誉毀損発言が書き込まれたことを知っていたのであり,
>これにより原告らの名誉権が侵害されていることを認識し,
>又は,認識し得たのであるから

この最初の通知書っていうのが内容証明かと思ったんですが、、、

92 :デフォルトの名無しさん:03/01/10 10:13


某○○ =東京kitty

  

93 :デフォルトの名無しさん:03/01/10 10:48
まぁ。

94 :デフォルトの名無しさん:03/01/10 11:29
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
誰が書き込んだ内容だろうと、その内容の全責任はひろよきにあるんだ。
ただ裁判官も弁護士もネット観念が全く無いのをいいことに 、もっともらしく
「私は場所だけを提供しています」って押し通そうとしている痛いひろゆき。
訴える側も、掲示板の管理責任を追求することまでしか知識が追いつかず
ひろゆきを名誉毀損などで訴えることをする奴が皆無なのが拍車をかける。

一度、裁判で、書き込みに対して、
削除を求める等では無くひろゆきを名誉毀損で訴え
SFCの村井さんあたりが原告証人で出廷するといい。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━


95 :デフォルトの名無しさん:03/01/10 11:57

100万円以下              263万9000人  15.7%     
100万円超 200万円以下       363万8000人  21.2%
200万円超 300万円以下      412万2000人   25.7%  
300万円超 400万円以下      322万3000人   19.4%    
400万円超 500万円以下      147万4000人   8.5% 
500万円超 600万円以下      72万1000人    4.1%
600万円超 700万円以下      33万2000人    2.2%
700万円超 800万円以下      19万5000人    1.2%   
800万円超 900万円以下      11万6000人    0.7%  
900万円超1, 000万円以下      7万1000人    0.4%
1,000万円超 1,500万円以下    10万6000人    0.6% 
1,500万円超 2,000万円以下    1万8000人     0.1%  
2,000万円超               9000人       0.1% 

96 :デフォルトの名無しさん:03/01/10 12:50
意味もわからず、オヅラとかが勝利宣言しそう・・・。
今回はIPだけだが、だんだん制限が増えていきそうだから、
密告ねたとかが無くなっていきそう・・・

97 :デフォルトの名無しさん:03/01/10 13:22
>>87

WinXPには英語版のVB6ランタイムが標準で導入されています

たまにメーカーによって日本語版が導入されている時もありますが
コモンコントロールまでは導入されていません

素直にVBランタイムをインストールしましょう

98 :デフォルトの名無しさん:03/01/10 13:23
あれ?ここ何のスレ?おらのパソコンおかしくなっちまっただか?

一応ageとくべ

99 :デフォルトの名無しさん:03/01/10 13:36
ランタイム&コモンコントロールぐらい標準で入れといて欲しいよね。

100 :デフォルトの名無しさん:03/01/10 14:21
>>99
はげどー。それかせめて、WindowsUpdateに乗っけて欲しい。

101 :デフォルトの名無しさん:03/01/10 14:56
なんでボランティアでもないコテハンがこのスレ占有しているんだ?

102 :vbObjectError:03/01/10 15:38
>>80
呼んだ?

103 :デフォルトの名無しさん:03/01/10 16:23
たかゆきってあんなにレスする香具師だっけ?
キャップ漏れだったりして

104 :デフォルトの名無しさん:03/01/10 17:05
使用環境はVB6.0SP5、EXCEL2000、Oracle+ADOです
現在、OracleからADOでテーブル上の明細データを引っ張ってきて、
EXCELに出力するというプログラムを作成しています。

EXCELに明細を出力する際に、シートの先頭行の書式設定を
レコード分コピーするというロジックを知りたいのですが、
どなたかご存知無いでしょうか。


105 :デフォルトの名無しさん:03/01/10 17:54
おい、お前ら、下らない書き込みしてんじゃねー。
.NET 死滅により、VB.NET の次期バージョンは、
VB 200X だ。VB6 の真の後継バージョンだ。

106 :デフォルトの名無しさん:03/01/10 18:09
>104
マクロの記録で調べなはれ。

>105
略してVBXだね(ぉ

107 :デフォルトの名無しさん:03/01/10 18:12
>>104

> EXCELに明細を出力する際に、シートの先頭行の書式設定を
> レコード分コピーする

本気で言ってるのなら、かなり非常識。
まともな神経の持ち主なら、列単位で書式設定する。



108 :デフォルトの名無しさん:03/01/10 18:33
Accessの質問です。
テキストボックスに半角文字(アイウエオ等)の
入力規制をかけたいのですが、やり方がさっぱりわかりません。

全角文字なら、
テキストボックス→プロパティ→定型入力に

CCCCC;; ←全角5文字分のみ入力可

のように設定すれば判別してくれます。

プログラム側は、

テキスト = TRim$(文字)

で、ああ___ のような問題も解決できます。


109 :デフォルトの名無しさん:03/01/10 18:50
>>104 >>107
そんな非常識かなあ。
速度もそんな変わんないだろうからそれも楽チンでいいんじゃない?
列数間違えてバグる事も無いし。

つーかなんで先頭行だけ設定されてるの???
最初からレコード分設定すりゃいいじゃん。

110 :デフォルトの名無しさん:03/01/10 22:02
MSCommについて質問です。
RS232Cをつかって外部からデータを取り込むように
VBで制御したいんです。
そこで、外部から文字列+CRを受け取った時に受信文字列を表示するように
したいのですがMSCommのイベントをどう使ったらよいのかわかりません。
一文字づつCRと比較する???
わかる方がいましたらよろしくお願いします。




111 :デフォルトの名無しさん:03/01/10 22:32
>>312
キタ━━━━━(゚∀゚)━━━━━!!!!

112 :デフォルトの名無しさん:03/01/10 22:40
マソコ

113 :デフォルトの名無しさん:03/01/10 23:03
>>111-112
何のテストやねん。

114 :デフォルトの名無しさん:03/01/10 23:22
>>110
この辺はどう?
http://speana-1.hp.infoseek.co.jp/vb/vb_menu.htm

115 :104:03/01/10 23:52
最初にテンプレートファイルが用意されていて、それを一度コピーして
そのなかに書き込むという仕様なんです。
最初の行だけ書かれているというのも仕様で、
数種類あるテンプレートファイルを共通関数で処理することになっているのです。
なので、個々で書式を書き込むことも、
また件数が不明なので最初から行数分用意することも出来ないのです。

116 :デフォルトの名無しさん:03/01/11 00:01
それ以前に「窃盗罪」だな

117 :デフォルトの名無しさん:03/01/11 09:22
あーーーーーーくだらねえ

118 :デフォルトの名無しさん:03/01/11 09:23
じゃあ何で名前の欄の星色が違うの?

119 :デフォルトの名無しさん:03/01/11 09:59
======2==C==H======================================================

         2ちゃんねるのお勧めな話題と
     ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数: 139038人 発行日:2003/1/10

なにやら、連日メルマガだしてるひろゆきです。

そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。

重くなって落ちたりしてもご愛嬌ってことで。。。

んじゃ!

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────

120 :デフォルトの名無しさん:03/01/11 10:52
うんこ

121 :デフォルトの名無しさん:03/01/11 11:02
河西朝雄という人のVB解説本(何種類かある)は良いのですか?
知人から強烈に薦められたんですけど。

122 :デフォルトの名無しさん:03/01/11 11:12
>>121
著作は多くベテランだが良いとはおもわん。初心者にはオススメできない。

123 :デフォルトの名無しさん:03/01/11 11:15
2

124 :デフォルトの名無しさん:03/01/11 11:24
>>122
サンクス。ネットで買おうかと思っていたところなので助かります。
ちゃんと本屋さんに行って見てこようっと。

125 :デフォルトの名無しさん:03/01/11 11:43
VB6.0を使っています。
最近ProgramingWindowsのVB版が出たみたいですが読んだほうがいいでしょうか?


126 :デフォルトの名無しさん:03/01/11 11:54
ListViewの詳細表示設定で
特定のSubItemsの文字色を変えることってできますか?

127 :デフォルトの名無しさん:03/01/11 12:16
1000と千尋のIP隠し

128 :81 XP既存VBランタイム:03/01/11 12:43
>>97
英語版かぁ。日本語が化けるとはそのことだったのか。
コントロールも別配布の必要があるとなると、HelloWord表示させる程度のソフトしかうまく動かないか。
結局、実行ファイルのほかにラインタイムを配るのは必要なのかぁ。
実行ファイルだけならzipで配布して、ユーザはそれを解凍して実行するだけだけど、
ランタイムはsetup.exeとか作ってランタイムもシステムにインストールされるようにしなくちゃだから面倒で、
XPではこの手間がいらないのかと思ってたけどざんねん。


129 :デフォルトの名無しさん:03/01/11 12:48
|  ∧∧    |
| 〔(゚∀゚)〕|
(⌒⌒⌒⌒⌒⌒⌒)
|⌒⌒⌒ <⌒ヽ o 。 だから、クソスレ立てんな。って言ったのに・・・
|      <_  ヽ。  
|      o とノ ノつ
|       。  | 〜つ



130 :デフォルトの名無しさん:03/01/11 15:16
>>126 無理と思われ。

131 :デフォルトの名無しさん:03/01/11 15:35
ちょっと質問があります
VB6.0で使っているプログラムははVBAでもそのまま使えるのでしょうか
それともかなり変えなければいけないのですか?

132 :デフォルトの名無しさん:03/01/11 15:39
放っといたほうが面白いんじゃないかな。

133 :デフォルトの名無しさん:03/01/11 15:45
■【予告】小学生の登校を狙って・・・
【ニュース速報】
【予告】小学生の登校を狙って・・・
あれだけ散々話題になったにも関わらず
1/8は犯罪予告スレが乱立してます。
人生捨てた人が多いのでしょうか? (;´Д`)
冗談でもこういうスレ立てはやめておきましょうね。
何もないことを祈ります。
つーか、ひろゆきが警告降臨してからもここのスレの1は予告書き込みしてるんですが (;´Д`)
冗談なのか本気なのかわからないのが怖いところです。
この記事投稿時点で現在進行形の速報です。

関連スレ:Part2
【ニュース速報】【予告】小学生の登校を狙って・・・
http://dempa.2ch.net/dat/2003/01/news-1042037071.html

以下はニュース速報板のものとは別の予告スレです
スレタイは過激なので伏せておきます。
【自己紹介】(略)
http://dempa.2ch.net/dat/2003/01/intro-1041997615.html
【ラウンジ】(略)
http://dempa.2ch.net/dat/2003/01/entrance-1042000392.html

何度も言いますが、こういうことはやめましょう。
捕まっても知らんよ。警察のご厄介になってるヤシ多いんだし(;´Д`)
(報告記者: 番組の途中ですが名無しです2号φ ★, 01/09 00:08)

134 :デフォルトの名無しさん:03/01/11 16:11
>>132
でも荒れるよ。(w

135 :デフォルトの名無しさん:03/01/11 17:29
>131
言語的には同じものだから、基本的にはそのままでOK。
VB6とVBAに共通しない機能を使っているならNG。
質問が漠然としすぎてこれくらいしか言えないよ。


136 :131:03/01/11 18:12
>>135
すいません 漠然としすぎてました
やってきたものがそのまま適用できるか知りたかったんです
レスサンクスです

137 :デフォルトの名無しさん:03/01/11 18:37
FormにImageコントロールを貼り付けて画像を表示しています
HScrollBar,VScrollBarを使ってスクロールさせたいのですが、

Private Sub Form_Load()

VScroll1.Max = Image1.Top
VScroll1.Min = Image1.Height
VScroll1.SmallChange = 5
VScroll1.LargeChange = 10

HScroll1.Max = Image1.Width
HScroll1.Min = Image1.Left
HScroll1.SmallChange = 5
HScroll1.LargeChange = 10

End Sub

Private Sub HScroll1_Change()

Image1.Left = Image1.Left - 1

End Sub

Private Sub VScroll1_Change()

Image1.Move 0, VScroll1.Value

End Sub

これだと、左に移動させたいのですが画像が右に動いてしまいます。
だったら逆に・・・という理屈はわかるのですが。
どうにも、やり方がわかりません。教えてください。

138 :137:03/01/11 19:08
解決しますた

139 :デフォルトの名無しさん:03/01/11 20:54
>>121
C言語の書籍なら多数の出版実績がある。
しかし、以前に2ちゃんねるで叩かれているのを見たような気がする。(w
また、藤原博文氏のサイトでも、辛い評価が付いていた記憶がある。
俺はCはわからんので、残念ながら良いとも悪いとも評価できないが。

VB本に関しては、Option Explicit 宣言がないコード例や、型定義が
ない(暗黙のVariant)変数が多数見られ、昔のBASICと勘違いしている
のではないかと思われるフシがある。(w

結論としては、あまりお薦めできない。(w

140 :デフォルトの名無しさん:03/01/11 21:58
>>109

> そんな非常識かなあ。
> 速度もそんな変わんないだろうからそれも楽チンでいいんじゃない?

あのさあ、1回で済む処理と最大65536回繰り返すかもしれない処理と
「そんな変わんない」訳?
幼稚園からやり直した方がいいよ。

141 :デフォルトの名無しさん:03/01/11 22:35
煽りなさんなって。

142 :デフォルトの名無しさん:03/01/11 22:40
先日VBはじめたのですが、自分でコード書いていて、
自分でよく分からなくなってしまう為、ほぼ毎行にコメント書いて少しずつ覚えてます。
で、近頃はいろんなWEBサイトを見て、どうやったらループが早く処理されるかとか学んで、
ちょこちょこ修正しているのですが、やっぱし、こんなにコメント書いていては
処理も遅くなってしまっているのでしょうか。
実行するパソコンの性能が低いと、やっぱりマズーですかね?

143 :デフォルトの名無しさん:03/01/11 23:00
>142
コメント文は
exeにする際、スキップされるので問題ない。

144 :デフォルトの名無しさん:03/01/11 23:06
>>142
コメントが10万行あるコードとコメントのまったくないコードを用意して
実行速度を確かめてみりゃいいじゃん。

145 :デフォルトの名無しさん:03/01/11 23:07
>>142

コメントが性能に影響するのは、インタープリタ実行系の場合だけ。
常識的に言って、どんなにコメントが多くても、コード:コメント比は1:1程度に
しかならないだろうから、無視できないほどの影響が出るとはとても思えない。

コンパイラの場合、実行速度には影響は出ないが、コンパイルの速度には影響が
出る可能性がある。しかし、それも無視できる範囲内のことだと思われ。

コメントの行数がコードの行数の10倍もあるような場合は話は別。(w

146 :デフォルトの名無しさん:03/01/11 23:09
>>144

OfficeのVBAなら10万行のコメントは致命的な影響が出るね(w

VBでもソースが巨大化し過ぎて、コンパイルできるかどうか・・・?

147 :デフォルトの名無しさん:03/01/11 23:24
>>146
OfficeのVBAでコンパイルをしても一緒なのかちょっと気になる。

148 :デフォルトの名無しさん:03/01/11 23:29
普通ってのがわからないんだよ!

149 :デフォルトの名無しさん:03/01/11 23:29
http://cocoa.2ch.net/qa/

150 :142:03/01/11 23:34
つまり実行形式にしてさえしまえば問題ないってことすね。
どうもありがとうございました。

151 :デフォルトの名無しさん:03/01/11 23:40
ていうか、ここでどーこー言ってる連中は、他を見たり書き込んだりせんのかw

152 :デフォルトの名無しさん:03/01/12 00:16
>>151
見ないけど何が起こってんの?
IP記録の話ならおなかいっぱ…

153 :109:03/01/12 01:44
>>115 (>>104)
やっぱりテンプレートファイルか・・・
俺的には管理しなきゃならないファイルが増えるのが気持ち悪いから
コードで書式設定する(遅いけど)んだけれども仕様なら仕方ないね。
でもさ、それなら最初から全行書式設定しときゃいいじゃん?
先頭行セルをクリックするか列ヘッダをクリックするかの違いだけなわけだし。
それくらい提案してみてはいかが?


>>140
>あのさあ、1回で済む処理と最大65536回繰り返すかもしれない処理と
>「そんな変わんない」訳?

>>104は行数分ループするなんて一言も言ってないよ。
なんで最大65536回繰り返す必要があるのさ。
列単位でコピーしようが行数指定してコピーしようが一回で済むじゃん。

>幼稚園からやり直した方がいいよ。
きみは生まれてこなかった方が良かったかもね。

154 :デフォルトの名無しさん:03/01/12 02:01
喧嘩すんなヴォケ

155 :デフォルトの名無しさん:03/01/12 02:14
new clieに逝きそうなんですが・・・
でも、大きいのと、高そうなのが・・・ちょっと・・・
でも・・・

カミサンだまし作戦開始・・・


156 :デフォルトの名無しさん:03/01/12 02:18
2003/1/10

なにやら、連日メルマガだしてるひろゆきです。
そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが
面倒なので、全部のサーバに入れてみました。
重くなって落ちたりしてもご愛嬌ってことで。。。


実にさらっとひろゆきらしいでつ。。。

157 :デフォルトの名無しさん:03/01/12 09:49
初めて立てた・・・・(;´Д`)

158 :デフォルトの名無しさん:03/01/12 09:51
もうどうでもいいだろ、クチビルゲは

159 :デフォルトの名無しさん:03/01/12 15:56
>>126
できますよ。ListSubItemにも、フォントのColorを設定するプロパティがあります。

160 :ケン:03/01/12 16:30
imageboxにとりこんだ画像の色のデータを取得する方法が、VBに
あるのであれば、教えてください。
たとえば、取り込んだ画像の、上から20ポイント左から20ポイント
の位置にある、ドットの色が黒であれば、1を返してくるような
プロパティーがあれば、教えてほしいのですが・・・
VBAでできるのであれば、なおいいのですが・・・

161 :デフォルトの名無しさん:03/01/12 16:44
C言語の spawnlp関数をVBで行う方法を教えてください
お願いします

162 :デフォルトの名無しさん:03/01/12 16:57
shell

163 :デフォルトの名無しさん:03/01/12 18:21
>>161
DLLにする

164 :デフォルトの名無しさん:03/01/12 19:31
>>150
最近こういう人から聞いたことを鵜呑みにするだけで
自分で確かめようとしないぼくちゃんたち増えたね。

165 :デフォルトの名無しさん:03/01/12 20:32
きねん

166 :デフォルトの名無しさん:03/01/12 20:35
、実際に名誉毀損を照明するのは係争になってからの話で
係争前の通告として現行法では 内容証明つき郵便が認知されている。

お前らに丁寧に教えてやるけど
どーせならば 現行法で裁けない理由を羅列して潰した方が得だぞ。
(それでも現行法で裁かれるんだけどな)

167 :デフォルトの名無しさん:03/01/12 20:45
そゆこと。FFDQ板でよくやられた

168 :デフォルトの名無しさん:03/01/12 22:26
>160
VBの機能でやるならならPointメソッド、
APIならGetPixelでし。

169 :デフォルトの名無しさん:03/01/12 22:40
DAO/JetのSQLで使える関数ってどんなのあるんですか?
どっかに一覧ない?


170 :デフォルトの名無しさん:03/01/12 22:43
>>169

VBA関数は(副作用があるものを除いて)大半が使える。
それ以外(集計関数など、ANSI SQLで規定されているもの)のどれが使えるかは、
解説書等で確認した方がよいかもしれない。

171 :デフォルトの名無しさん:03/01/12 22:45
>>170
ありげとごじゃます。
副作用とは、例えばどんなの?


172 :デフォルトの名無しさん:03/01/12 23:00
>169
MSDNのDAOヘルプが一番でし
ttp://www.microsoft.com/japan/developer/library/default.asp?URL=/japan/developer/library/dao360/daidxwhatsnewindao.htm。

173 :デフォルトの名無しさん:03/01/12 23:05
>>170 はSQL内に記述して実行できる関数の話。

>>172のURLはDAOのライブラリに定義されたメソッドの説明。

174 :デフォルトの名無しさん:03/01/12 23:39
VB6で質問です。
コモンダイアログコントロールで表示させるウィンドウって、
ウィンドウ表示位置の制御は出来ないのでしょうか?

175 :デフォルトの名無しさん:03/01/12 23:45
>>174

フック(サブクラス化)を使えば可能。
技術評論社から出ている『Visual Basic 300の技』(第1集)にコード例が掲載されている。

職業プログラマなら、あまりに凝った作りは生産性の面でお薦めしない。
サブクラス化処理全体をコンポーネント(ActiveX)化すれば、再利用可能ではあるが・・・。


176 :デフォルトの名無しさん:03/01/13 00:02
>>173
うん、そう。
MAXとかSUMとかSUBSTRとかGROUP BYとか、
そんなのが尻たい



177 :デフォルトの名無しさん:03/01/13 00:46
>>175
ぉぉメッセージの横取りって奴をついにやらねばならなくなったか。
・・・・
単に見栄えの問題なんですがね。色の設定をやるのですが、その色の
変更を行う位置でウィンドウが表示されないと、やっぱりなんか変という気
がしまして。

178 :デフォルトの名無しさん:03/01/13 01:10
>>176
%windir%\help\JETSQL35.HLP
こんなん?

179 :56:03/01/13 04:59
>56
>71さん
すみません、正直さっぱりわかりません。

>Form_TESTFMという名前のフォームが無ければエラーになる
それはわかるのですが、
存在する場合、コード上で
Form_TESTFM

TESTFM
はどう違うのでしょうか?

180 :デフォルトの名無しさん:03/01/13 10:01
>>175
VBダメじゃん

181 :デフォルトの名無しさん:03/01/13 12:03
>>179
Form_TESTFMとTESTFMは別のものである。

田中さんと中さんは別人である。

182 :デフォルトの名無しさん:03/01/13 12:37
ソケットコントロールでJPEG画像データを受信して
イメージコントロールで表示させたいのですが受け取る
変数は何にすればいいですか?

183 :デフォルトの名無しさん:03/01/13 13:07
TMemoryStream

184 :182:03/01/13 13:27
どうやら

me.image.picture = JpegImage
me.image.picture = LoadPicture(JpegImage)

どれも実行時エラーが出るようです

185 :デフォルトの名無しさん:03/01/13 13:30
やったこと無いから的外れかもだけど、俺なら Variant から byte 配列に落として
ファイルに保存した上で表示とかしてみるかも。

186 :182:03/01/13 13:41
>>185
なるほど〜。ファイルに保存してみます。

今は文字コマンドの関係からString型で受信しているのですが
画像の際はVariantで受信すればよさそうですね

byte配列に落とす方法とファイルに保存する方法がわかりません><
バイト配列はbyte[file_size]でしょうか?

187 :182:03/01/13 14:23
あーバイナリデータの受信をvariantに指定できないー><
ソケット受信の型はvbStringしかできないみたいですね

188 :デフォルトの名無しさん:03/01/13 14:31
>>182
ソケットコントロールって Winsock でしょうか?
もしそうなら、厚かましいお願いなんですが、Inet はやった事あるんですが、
Winsock でやった事無いもんで…。

189 :デフォルトの名無しさん:03/01/13 14:33
あう、ぬけてた…。

もしそうなら、厚かましいお願いなんですが、ソース見せて貰えないでしょうか…。
です。

190 :104:03/01/13 14:38
>>153
提案はしたんですが、受け入れられなかったのです。。。

色々探し回っているのですが、中々見つからなくて。
どなたかほんと、お願いします。



191 :56:03/01/13 16:14
>181
別のものですか。。
すみません、まだ納得できません。
別のものというのはわかりました。
>56の
1)Form_TESTFM.SetFocus ×
2)Me.TESTFM.SetFocus  ○
3)TESTFM.SetFocus ○
という結果から振る舞いが違うので別のものというのはわかります。
ではなぜ 1 がだめで2〜3が可能なのでしょうか?
1が駄目なのはなぜですか?

192 :デフォルトの名無しさん:03/01/13 16:26
>>190(>>104)
まだ終わってなかったのか・・・
>>106の言う通りマクロの記録で調べなよ。
答えそのものより調べ方を覚えた方が後々のためになる。

>>191
>1が駄目なのはなぜですか?
Form_TESTFMがプロジェクトに存在しないからじゃないの。

193 :デフォルトの名無しさん:03/01/13 16:55
>>191
Form_TESTFMって名前のフォームをプロジェクトに追加してからやってみ。
意味が分かるから。

194 :192:03/01/13 17:05
>>191
Form_TESTFMはあるわけね。よく読んでなかった。ごめん。
じゃあForm_TESTFMをロードしてないからじゃない?
てかさ、何ていうエラーが出るのかぐらい書こうよ。
「動かない」「駄目」って、小学生じゃないんだから。。。

195 :デフォルトの名無しさん:03/01/13 17:45
VB.NETを勉強しようと思っているのですが、クラスやクラスの継承、
多重定義等の概念をサンプルプログラムをつかって、わかりやすく説明し
ている入門書ってありますか?
どの入門書もユーザーフォームの説明がおおくて、VB.NETの基礎知識
を詳しく述べているものが見つかりません。
フォームの操作やイベント発生時の処理等、基本的なことはエクセルVBAで
知っていますが、VB6は扱ったことがありません。
その程度の場合にふさわしい本があればいいなと思っています。

196 :山崎渉:03/01/13 18:27
(^^)

197 :デフォルトの名無しさん:03/01/13 18:42
>195
【老若】VB.net質問スレ【男女】
http://pc3.2ch.net/test/read.cgi/tech/1025848458/


198 :56:03/01/13 18:50
>194
エラーは
「フォーカスを移す事はできません」
だそうです。
この際フォーカスをうつすのは
TESTFM.SetFocus
でいけたので自己解決なのですが、
それはさておき、知りたいのが
TESTFM

Form_TESTFM
の違いなんです。

199 :デフォルトの名無しさん:03/01/13 22:08
んじゃファーストとセカンドの立場がない

200 :デフォルトの名無しさん:03/01/13 22:17
>>198
TESTFMというのが君の作ったサブフォームの名前だということはわかるが、
Form_TESTFMっていうのは何の名前なんだ?
説明もなしに「どう違うんですか」って聞かれても分かるわけがない。

201 :デフォルトの名無しさん:03/01/13 22:26
数Mある巨大なcsv形式のファイルの中から
一行を抜き出してやりたいのですが、上手いやり方ありますか?

普通に抜き出したい行数目までLine Inputしてやる方法を試したのですが
激しく遅いんです。実用的じゃない遅さです。
もっと軽やかに一行を抜き出す方法はありませんか?

202 :デフォルトの名無しさん:03/01/13 22:29
ageときます。
ついでに書き忘れたので
環境はVB6SP5Proです


203 :56:03/01/13 22:32
>200
説明不足でした。
アクセスのデータベースビュー(だったかな?)
から作成したのがTESTFMです。
まずこれはご理解いただけてると思います。
そのTESTFMを選択状態にして、
Ctrl+Gを押したらVBEditorが開きますよね?
その右上の(環境によって違うのかな)
プロジェクトビューのなかの
Microsoft Access クラスオブジェクトの中に
勝手にいつのまにかできてるのが
Form_TESTFMです。
説明不足の点あればご指摘お願いします。
どう説明したらいいのかよくわからないので。
よろしくお願いします。

204 :デフォルトの名無しさん:03/01/13 23:06
自作VBアプリにインターネット上からファイルを取ってきて
windowsが自動updateで更新するようなかんじで、
1クリックでバージョンアップする機能を追加したいのですが、
どなたか方法をご存知でしたらご教授ください。

205 :デフォルトの名無しさん:03/01/13 23:11
>>204
まずは最新版の入ったファイルをお前がUPする。
それをInetコントロールか何かでローカルにダウンロード。
さらにバックグラウンドで解凍。
出てきたExeを直ぐ上書きしたい所だが、そのExeは今実行中で
上書き出来ない状態なので、VerUPする時専用の別Exeに後の処理を任せて
今起動しているExeは終了。でVerUP専用のExeがメインアプリExeを最新版に上書き。
上書きの終了を確認したら最新版になったExeを実行。
解凍した後のゴミとか要らないものを消して
VerUP専用Exeは役目を終えたので終了。


206 :204:03/01/13 23:53
>>205
ヒントありがとうございます。
早速やってみます。

207 :デフォルトの名無しさん:03/01/13 23:55
>>201
具体的にどれくらい遅いのかね?

208 :デフォルトの名無しさん:03/01/14 00:08
>>207
ひとつ処理するあたり0.5秒ほどですかね・・・。
いくつも処理するのでかなりきついです。

209 :104:03/01/14 00:25
>>192
とりあえず、EXCELのマクロの使いかたから調べました。
(恥ずかしながら、使い方知りませんでした。。。。)
なんとかたどり着けました。

お騒がせしました。


210 :デフォルトの名無しさん:03/01/14 00:49
>>208
つまり、任意の指定行を指定してぱっとその行だけ読み込む、
みたいなことがしたいわけだ。

そんな方法があったら私も教えて欲しい。
各行がきっちり一定のバイトサイズになってるんだったらSeekで出来るけど。

裏技的なのはあるかもしれないが、お奨めできない。

211 :デフォルトの名無しさん:03/01/14 00:58
>>208
何がしたいのかわからないですが素直にDB使うのは駄目なの?

212 :デフォルトの名無しさん:03/01/14 00:59
>>208
最初に配列に全行読み込んでおいて、その配列から行抜き出しすれば?
毎回先頭行から読み込んでくよりはかなり速いでしょ。

データベース化は出来ないの?

213 :デフォルトの名無しさん:03/01/14 01:01
> 最初に配列に全行読み込んでおいて

途方もなく遅いと思うが。

214 :213:03/01/14 01:03
すまん、話の流れを読んでいなかった。
更新が複数回あるわけね。

215 :デフォルトの名無しさん:03/01/14 01:04
CSV なら MDB にブチ込むのが一番だと思うけどね。
つか、Access インストールする時にオプション扱いで csv 用のODBCドライバがあったような無かったような。

あと、ファイル読むときって get でズガンと読むか、
line で読むなら読んでる端から文字列捨てて行った方が早かった記憶。


216 :デフォルトの名無しさん:03/01/14 01:04
リロード忘れ…

217 :デフォルトの名無しさん:03/01/14 01:37
C/C++/Delphi あたりで書きなさい

218 :デフォルトの名無しさん:03/01/14 02:54
http://pc3.2ch.net/test/read.cgi/tech/1042472248/l50

219 :デフォルトの名無しさん:03/01/14 10:34
>201
バイナリで開いて改行コード数えた後抜き出せば一発だと思われ

220 :デフォルトの名無しさん:03/01/14 11:14
>>219
ん、彼は毎回条件を変えてSelect * From ?.csv Where なんちゃらとやりたいのでは?

221 :デフォルトの名無しさん:03/01/14 11:58
そうなの?
文面からは、抜き出したい行は確定していると思ってた。
誤解sage

222 :201:03/01/14 16:35
>DBとしてアクセス
DB関連の知識が無くて・・・。
やっぱりこの方法なら高速に処理できるのかぁ。

>配列に全行を読み込み
メモリ、食いますよね。
確かに今試してみたら
最初の読み込みが終わればメチャ高速でした。

結局、「これが定石」とかいうのは無いってことですね。
しょうがないので、配列に読んでおくやり方で手を打っときます。

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

223 :仕様書無し:03/01/14 19:23
SQLServer7or2000のDBにADOで接続し、DB内のView名の一覧をリストボックスに
追加するプログラムを作っていますが、
ユーザーが独自に作成したViewのみ表示させたいのです。
Viewの場合
システムで最初から存在している物か(sys〜)ユーザーが独自に作成したものか
否かということを判断できるでしょうか?
テーブルならSYSTEM TABLEかTABLEなのかをTypeプロパティで判断できますが
Typeプロパティで見てもViewの場合は全てVIEWのようです
どなたかご存知の方がいましたら、よろしくおねがいします。


224 :デフォルトの名無しさん:03/01/14 19:27
>>222
俺はそのとき暇だったんで、必要になった時点で必要なとこまでメモリに読み取るものを作った。
そもそもCSV形式自体速いアクセスは望めない。
速いアクセスを望むなら単純なCSVにするのではなくインデックス情報等をつける必要がある。

225 :デフォルトの名無しさん:03/01/14 21:25
VB6なのですが、リージョンを使用せずに、フォームの背景だけ
透過させる方法はないでしょうか?
デスクトップマスコットみたいなのを作りたいと思っております。
分かる方がいらっしゃいましたら、ご教授願います。

226 :デフォルトの名無しさん:03/01/14 22:01
>>225
Win2k/XPのみになるけど、SetLayeredWindowAttributesとか。

227 :デフォルトの名無しさん:03/01/14 22:07
誰か助けてください。
何回何回やっても演習の問題の21・22ができません。

http://www-ousuu.amp.i.kyoto-u.ac.jp/muk/gp/
IDはVB
パスワードはosaka-sandai
です。本当にお願いします(*-ω-)


228 :デフォルトの名無しさん:03/01/14 22:10
不正アクセスになるのだろうか。ドキドキ

229 : :03/01/14 22:11
>>228
なる

230 :デフォルトの名無しさん :03/01/14 22:12
>>227
問題をコピペしろよ

231 :デフォルトの名無しさん:03/01/14 22:13
>>227
教官に
「何回何回やっても演習の問題の21・22ができません。 」
って言えよ

232 :デフォルトの名無しさん:03/01/14 22:17
なんで普通に2chで学校のサイトのPASSとか教えてしまうんだろう。
脳に障害があるとしか思えない。

233 :デフォルトの名無しさん:03/01/14 22:23
>>226
そのAPIは「フォームだけ」透過させることっていうのはできるんでしょうか・・・?
もし、上にピクチャーを載せたりすると、それまで半透明になりませんか?

234 :233:03/01/14 22:32
スイマセン、自己解決できそうです。
ぐぐったら出てきました。
指定色を透過させればいいんですよね。

235 :デフォルトの名無しさん:03/01/14 22:33
フリーではいふされているソフトのソースの一部をどうしても見たく、
そのソフト自体は逆デバッグなどして自由に再配布してよいなどと書いてあるため
開いて、その中身の演算の内容を見たいのですが、VBやC++などで見ることが可能なのでしょうか?
すいません。全く知識がないもので。 よければお願いいたします。

一応どのソフトなのかのりんくだけ用意しておきます。
へんな質問すいません
ttp://www.urban.meijo-u.ac.jp/zyoshika/zemi/gue/ch2/97/nagao/henkan1.html

236 :デフォルトの名無しさん:03/01/14 22:48
逆デバッグ? つまりあれか、わざわざバグを入れるということか?

237 :デフォルトの名無しさん:03/01/14 23:01
>>235
> その中身の演算の内容を見たいのですが
書いてあるだろ。

>>236
本来の文書は逆コンパイルですね。

238 :235:03/01/14 23:21
>236
すいません。 よく意味も知らず、そこのページにあることばを
使ってしまいました。
プログラムの内容自体をよく見てみたかったので。 すいません。

239 :デフォルトの名無しさん:03/01/14 23:31
>>235
普通そういう場合は、

感謝と尊敬の言葉から始まり、
自分のやろうとしていることが世界平和、または誰かの人命を助けるためであり、
貴殿のソースを見せていただければそれの実現が早くなり、世界中の人が幸せになれる、
ということを普通使わんような丁寧な言葉で作者にメールを出します。

或いは、

いかにも定型文書での挨拶で始まり、貴殿の公開されているソフトウェアが
当社保有の特許を侵害している可能性があり、現在は訴訟を起こす考えは無いが
社内からの漏洩調査のため全ソースファイルを提供して頂きたい、
ということを出来るだけ難しいビジネス単語で書き、
最後に「協力を得られる限りは訴訟を起こす考えはない」ことを繰り返し
「返答が無い場合内容証明文書を送付する」などと書いたメールを作者に出します。


240 :デフォルトの名無しさん:03/01/14 23:33
ここで聞くのは場違いかもしれませんが、
VBでユーザー登録したら、IEのツールバーとかに使ってる画像をダウンロードできると聞いたんだけど。
それはどこでするのでしょうか??


241 :デフォルトの名無しさん:03/01/14 23:48
良くわからんが MSDN とかの会員になるという事かな。
ユーザー登録とは違うんでないのかな。

242 :デフォルトの名無しさん:03/01/14 23:57
     ∧_∧∩ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
    ( ´∀`)/<先生!こんなのがありました!
 _ / /   /   \___________
\⊂ノ ̄ ̄ ̄ ̄\
 ||\        \
 ||\|| ̄ ̄ ̄ ̄ ̄||
 ||  || ̄ ̄ ̄ ̄ ̄||
http://saitama.gasuki.com/mona/

243 :デフォルトの名無しさん:03/01/15 00:37
>>227
>何回何回やっても演習の問題の21・22ができません。

つまり、あれだ転部、転科、中退のチャンスだよという
神様のお告げってわけだな。



244 :デフォルトの名無しさん:03/01/15 00:37
>>242
「困ったときのお役立ちサイト」

何の役に立つんだ?
変なもん貼るな!うじ虫めが!

245 :デフォルトの名無しさん:03/01/15 00:55
マイクロソフトの開発者(MSDN)からたどってけばたどりつくだろ
ttp://www.microsoft.com/japan/

246 :デフォルトの名無しさん:03/01/15 00:56

>>240

247 :212:03/01/15 01:05
>>222(>>201)
念のため。。。
Line Inputのループは使わないよーに。
一発で読み込んでSplitした方が断然速い(と思う)よ。

248 :デフォルトの名無しさん:03/01/15 01:20
>>247
201ではないがちょっと教えていただけませんか?
つまり、文字列変数に一発で読み込んで(代入)、
Splitで切るってことですよね。

ということは、例えば数十メガのファイルだとすると
一発で読み込むっていっても、おそらくある程度時間がかかる筈で
その間は一切の操作(プログラム内ね)は不能になる?ってこと?

249 :デフォルトの名無しさん:03/01/15 01:34
>>248
シングルスレッドであるVB6.0ではそう。
VB.NETだとだいじょうぶ。

250 :デフォルトの名無しさん:03/01/15 01:35
だいじょぶといってもマルチスレッドプログラミングをしたらばの話だが。

251 :248:03/01/15 01:40
>>249
サンクス。何か方法があるのかなと思ったもので。

.netは只今まさに勉強始めたばっかし。

252 :デフォルトの名無しさん:03/01/15 01:53
数十メガのCSVとかキモイけど・・

>>248
ってことだと思います

253 :デフォルトの名無しさん:03/01/15 09:42
指定ディレクトリ以下(サブフォルダ有)の指定拡張子(複数指定可)のファイルのフルパスを配列に格納する関数を作りました。
ファイルリストボックスを再帰呼び出しを使ってやっていますが、
50万ものファイルのリストを作るとなるとやはり速度が非常にかかりました。(30分ぐらい)
これを高速化したいのですがどのような方法がいいのでしょうか。
MSDNの「最適化」項目を見てコードの書き直しなどをしましたが、あとは
ファイルリストボックスを使わない方法で高速になりそうだなとおもいました。
いま想定しているのは以下の4つです
WindowsAPI
FSO
他の言語で書かれたライブラリ(コンポーネントOrDLL)
あるいは他者が書かれたVBの標準モジュール
一般的にどれがいいのでしょうか。

254 :デフォルトの名無しさん:03/01/15 09:43
>253

追記です。要するにしたいのはファイルの検索ですね

255 :デフォルトの名無しさん:03/01/15 10:06
Win32APIより、
SendMessage でボタンクリックイベントを発生させたいんですが、どうすればいいでしょう。

状況:他アプリのテキストに値設定するところまでは問題ない。そこで「OK]ボタンを押したいんだが、
APIビュワア+MSDN見てもメッセージ番号が解らない(かなり以前成功した気がするのに)
for i = 0 to 255
 sendmessage hwnd,i,0,0
next i
なんぞという怖いこともやってPC落したりしてますがダメ。
止むを得ずSendKeysを利用していますがレスポンスと安定性が最悪です。


256 :0xFF:03/01/15 10:17
>>255
単に、「ボタンを押したときに実行される処理を呼び出す」じゃダメなの?


257 :デフォルトの名無しさん:03/01/15 10:31
>>256 別アプリなんだよ。自作でないもの。

たとえば、外部からエクスプローラの「ファイル」>「新規作成」>「フォルダ」を選ぶようなもの。
対象のコマンドボタンのハンドル取得はできてるけど、なんのメッセージ送ってもクリックが発生しない。

つまりは↓のものを有効にするXYZの値が知りたいのですだ。
Private sub CommandButton1_Click()
 sendmessage CommandButton2.hWnd, X,Y,Z
end sub
Private sub CommandButton2_Click()
 msgbox "キタ-(゚∀゚)-!"
end sub

258 :デフォルトの名無しさん:03/01/15 10:48
>>253
俺も前に、指定ドライブ以下(サブフォルダ有)の指定拡張子(複数指定可)のファイルを含むのフォルダのフルパスを
コンボボックスに格納するって処理をファイルリストボックス使ってやってました。
で、やっぱり速度で悩んでここで質問しました。
回答はDir関数使え。って拡張子複数指定できないじゃん!まあ拡張子の種類分ループさせればいいわけだけど。。。
結局そのままファイルリスト使ってました。今は検索内容を変える事で解決しましたが。
てなわけで俺も興味があります。俺は試さなかった(スマン・・・)んだけど、どの方法が一番速いんだろう???

259 :デフォルトの名無しさん:03/01/15 10:52
>>255
Spyは持ってない?

260 :253:03/01/15 11:03
>258

そうかdir関数もありましたね。

FSOは所詮WindowsAPIのラッパーだし、その他のVB関数(Dir)もラッパーなので、
やっぱり直接API使ってみようかなと考えています。FindFirstFile、FindNextFile

でもDir関数と大して速度かわらなさそうですね。Dir関数自体単純なコードで書けると思うので。
それでもファイルリストボックスよりは結構高速になると思いますが。

高速なファイル検索に関係するHPってどこかにありそうに感じるんですが、
VBって速度にこだわらないユーザー多いからかな。

261 :255:03/01/15 11:42
SPIとはなんじゃら。ググるググる・・

ボタン押下時に発生するメッセージIDを盗聴せよということですか。
ツールは持ってない。その点はもう少し調べてみる。>>259

>>253>>260
エクスプローラと同じものなら FSO+TreeView.Nodes を漬かってますが、
単純にファイル名称検索ということだと自分ならC言語でバッチを作ってShellでキックすると思います。
高速処理を考えるとVBはやはり・・

262 :デフォルトの名無しさん:03/01/15 11:55
やりたければ
FATかNTFS直接読めば早いよ。
ただし、装置に依存するけどね。

263 :デフォルトの名無しさん:03/01/15 12:01
アクセス制御機能を有する特定電子計算機に電気通信回線を通じて
当該アクセス制御機能に係る他人の識別符号を入力して当該特定電子計算機を作動させ、
当該アクセス制御機能により制限されている特定利用をし得る状態にさせる行為
(当該アクセス制御機能を付加したアクセス管理者がするもの
及び当該アクセス管理者又は当該識別符号に係る利用権者の承諾を得てするものを除く。)

>>227のを見るのは「利用権者の承諾を得てするもの」に該当しないのかな。
言葉難しくてようわからん。

264 :デフォルトの名無しさん:03/01/15 12:14
>>255
Call SendMessage(Hwnd, WM_LBUTTONDOWN, 0, 0)
Call SendMessage(Hwnd, WM_LBUTTONUP, 0, 0)

265 :DJチャンキー:03/01/15 12:30
>>261

>C言語でバッチを作ってShellでキックする
??CできるんならAPI自作すればい〜じゃん

FSO+TreeView.Nodes よりも API+TreeView.Nodes の方が高速ですYO

API+TreeView+再描画制御でエクスプローラー同じくらいの展開スピードになますた
Windowsフォルダ(フォルダがたくさんある)の展開速度には自分でもビックリした

VBも技術と知識があれば かなり高速なものが作れます
VBが速くなるか否かは技術者のウデです(でもCの方が速いです...)


266 :255@未熟:03/01/15 12:52
>>259 サンクスです。
SPI++ありました(スタヂオ6.0に入っとるやん・・)、親ウィンドウにメッセージ仕掛けるのに成功しました。
SendMessage(hwndOwn, WM_COMMAND, IDOK, hwnd)
BN_CLICKED=0の意味を間違えていたのが敗因です、またなんかあったら来ます。

>>265
ふふふ、Cは出来てもC++はできんというていたらくなんですわw

267 :デフォルトの名無しさん:03/01/15 13:54
For i = 1 To Len(Text1.Text)
If CInt(Mid(Text1.Text, i, 1)) < 0 Or _
CInt(Mid(Text1.Text, i, 1)) > 9 Then
Text1.SetFocus
Exit Sub
End If
Next i

DQNな質問ですみません。
何故、これで型の不一致のエラーが出るんでしょうか?


268 :デフォルトの名無しさん:03/01/15 14:05
>>267
Text1.Textは全て数字?
じゃないなら型不一致になって当然だが

269 :デフォルトの名無しさん:03/01/15 14:08
>>267
1 Text1.Textに "ABC" と入っている
2 Text1.Textに "123" と入っている
3 Text1.Textに "123 " と入っている
4 Text1.Textに "-12.34" と入っている

text1.text=trim(text1.text)
if text1.text like "*[!0123456789]*" then exit sub
上二行を頭にいれてください。


270 :デフォルトの名無しさん:03/01/15 14:14
>>267
Text1.Textには何が入っているのれすか?

271 :デフォルトの名無しさん:03/01/15 14:20
>>269 の優勝

272 :デフォルトの名無しさん:03/01/15 14:37
>>270
要するに、数字以外が入ったときに処理が抜けるような事をしたいわけです。
(Asc関数を使わない方法で)
IME-Mode オフなので、半角の英数字が入りますね。


273 :267:03/01/15 15:12
>>269
ありがとうございます。まだ初心者なのでそういうやり方は初めて知りました。

しかし以前は、Midで取得した文字列をCIntで変換しても型の不一致が起きなかったのに、
何故、今回はエラーが出たのかがわかりません。。


274 :デフォルトの名無しさん:03/01/15 15:49
Cint("ABC")
でもちゃんと0が返ってくるからだいじょうぶ。
つまり
<0,>9
となっていて
0<=n<=9
の処理を書いていないのがエラーの原因。

275 :267:03/01/15 16:01
>>274
すいません。そのやり方でもうまくいかないのですが。。

If Not (0 <= CInt(Mid(Text1.Text, i, 1)) And _
9 >= CInt(Mid(Text1.Text, i, 1))) Then


276 :248:03/01/15 16:18
>>275
おい、Cint("A")は通るとでも思ってるのか?

277 :デフォルトの名無しさん:03/01/15 16:30
そもそもうちでは10人中8人はこれを使うのであとでチェックは要らない
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKey0 To vbKey9, vbKeyReturn, vbKeyDelete, vbKeyBack:
Case Else: KeyAscii = 0
End Select
End Sub

278 :デフォルトの名無しさん:03/01/15 16:33
>276
275の脳内は常に
On Error Resume Next
でし。

279 :デフォルトの名無しさん:03/01/15 16:35
>>277
残り二人が気になるなぁ・・・

280 :253:03/01/15 17:09
WinAPIで関数つくった

ファイルリストボックスのときより数十倍ぐらいリスト作成がはやくなったよ
さらに最適化しようかとおもったけど、検索ファイル数やサブディレクトリ数の状況によっては逆効果になるかもしれないから
これでやめとこう。
単純にAPI使うだけでここまで早くなれば満足

281 :デフォルトの名無しさん:03/01/15 17:36
EXEにコマンドライン引数を与える方法を
教えていただけないでしょうか?
Ver6です。

282 :デフォルトの名無しさん:03/01/15 17:38
ActiveMovieControlが動作しません
Formに貼り付けて、実行しただけでエラーとなります
”システムエラーです:&H80004005 特定できないエラー”
どうすればいいのでしょうか 教えてください
環境 98SE IE6(SP1) VB6(SP5) MSDXM.ocx 2002/05/24
MediaPleyer7.1です

283 :山崎渉:03/01/15 17:45
(^^)

284 :デフォルトの名無しさん:03/01/15 18:14
>>281

Shell """" & 実行ファイルのパス & """ ここにコマンドライン"

DOSのコマンドライン指定とおな〜じ
実行ファイルのパスを " でくくるのを忘れずに(DOS 分かる人なら理由は分かるでしょう)

285 :デフォルトの名無しさん:03/01/15 18:18
>281
Command$にコマンドライン引数が入っている

ランタイムの話か?
だったらプロパティの実行可能ファイルの作成タブにコマンドライン引数って項目があるから、そこに入れとく

286 :デフォルトの名無しさん:03/01/15 19:31
VB6.0で動的な二次元配列を使いたいのですが、上手く宣言できません。
使えないのかな?

287 :デフォルトの名無しさん:03/01/15 19:37
>286
Dim intHoge() As Integer

ReDim intHoge(10, 10)

288 :デフォルトの名無しさん:03/01/15 19:39
>>287
素早い返答ありがとうございます。
ハズカシながらredimの書き方が間違っていたようです。。
さっそく試して見ます。

289 :デフォルトの名無しさん:03/01/15 20:29
動的配列は最後の次元しか redim 出来ない罠。。。
とか言ってみたりする。
確か出来なかったような・・・

290 :デフォルトの名無しさん:03/01/15 21:53
Winsock1コントロールについて質問です。同じコントロールを使って
Winsock1.Listen (サーバ側)と Winsock1.Connect (クライアント側)
を使い分けたいのですが、一度サーバ側からクライアント側になる時
Winsock1.Closeをして、次にコネクト先をしていしてWinsock1.Connectを実行
するにしたのですが、Winsock1.Connectでエラーになります。一度Listenを
使ったら、そのコントロールではConnectを使用できないってことはないん
ですか?

291 :ほっそー:03/01/15 21:55
VisualBasicはじめようと思ってVisualBasic評価版が添付している本を買って、いろいろつくっています。ところが、評価版なので.exeがつくれないのです。。。どーしても、.exeファイル作りたいのですが、どうすればよいでしょうか?

292 :ほっそー:03/01/15 21:58
>>291
限りなく素人。
でも・・・おしえてください!
VB先輩方!

293 :デフォルトの名無しさん:03/01/15 22:05
>>291
買えばいい

294 :デフォルトの名無しさん:03/01/15 22:07
通報しま

295 :デフォルトの名無しさん:03/01/15 22:33
>>291
買う。

296 :デフォルトの名無しさん:03/01/15 22:33
>>291
バイト→買う。

297 :286:03/01/15 22:34
>>289
おっしゃる通り、1次元目はredimできないようでした。
仕方がないので、1次元目は多めに数を設定しておきました。

298 :デフォルトの名無しさん:03/01/15 22:55
redimは遅いので、予め多めに取っておいてそれ使った方が良い。
ウンコredom。

299 :デフォルトの名無しさん:03/01/15 23:51
>>290
単に接続が切れてないだけじゃないの?
Closeしたからといって切れるものじゃないってのは知ってる?
っていうか、なんで2個使っちゃだめなのよ?食わず嫌い?


300 :デフォルトの名無しさん:03/01/15 23:53
>>291
ソースファイルをくれりゃぁやって漏れがやっても良いが。

301 :デフォルトの名無しさん:03/01/16 00:34
>>300
その前にOption Explicitの指定とCtrl+F5は実行させておいた方がいい罠。

302 :デフォルトの名無しさん:03/01/16 02:33
助けてください。
テキストファイルに
255 253 253
90 3 23
23 231 23

のように0から255の値の整数が
64×64こ入っています。
その一つの値を一つの画素の値として
64×64の画像を表示したいのですが、
下記のソースを、コマンドボタンを一つだけつけただけで
後はいじってないフォームのコードとして動かしたんですけど
上手くいきません。
どなたか添削していただけませんか?
よろしくお願いします。

303 :デフォルトの名無しさん:03/01/16 02:33

Private Const BoxSizeX = 200 'ドットの幅
Private Const BoxSizeY = 200 'ドットの高さ
Private Sub Command1_Click()
DrawIMG 1 '<-イメージ番号1〜
End Sub
Private Sub DrawBOX(X As Long, Y As Long, FColor As Long)
Dim Cl As Long
Cl = FColor& + FColor& * &H100 + FColor& * &H10000
Me.Line (X * BoxSizeX, Y * BoxSizeY)-((X + 1) * BoxSizeX, (Y + 1) * BoxSizeY), Cl, BF
End Sub
Private Sub DrawIMG(TXNo As Long) 'TXNo As Long
Dim i As Long, j As Long
Dim Buff As String
Open "data.dat" For Input As #1
For i = 1 To (TXNo - 1) * 64 'Seek #1, (TXNo - 1) * 34 * 16 + 1と言う手もある
Line Input #1, Buff
Next i
For i = 0 To 63
Line Input #1, Buff
For j = 0 To 63
DrawBOX j, i, Val("&H" & Mid$(Buff, j * 2 + 1, 2))
Next j
Next i
Close #1
End Sub



304 :デフォルトの名無しさん:03/01/16 03:49
>>303
Buffが255 253 253〜の時
 j=0ならMid$(Buff, j * 2 + 1, 2)は"25"
 j=1ならMid$(Buff, j * 2 + 1, 2)は"5 "
となる。わかるかな。
わかったらSplit関数を調べてみそ。

305 :デフォルトの名無しさん:03/01/16 07:41
>>303
&H付けてValしてるってことは、実際は16進表記なんだろ?
データは連続表記なのかなあ?
そのへんが大事。




306 :デフォルトの名無しさん:03/01/16 08:18
&H はいらないのではと今思っています。
データは_をスペースとすると
12_123_25_250 _22_
255_123_25_250 _222_
121_123_25_250 _22_
と言う感じにスペースで区切られています。

304さんがおっしゃってくれたsplit関数調べてみたんですが
どうもうまく切り出しができないのですが
アドバイスをいただけませんか?よろしくお願いします。


307 :デフォルトの名無しさん:03/01/16 09:20
>>290
ふつーに書いて試してみたけど、何事も無く使えたなぁ
ちゃんと初期化すべきとこは初期化してます?
'つーか、どんなエラーよ。

308 :デフォルトの名無しさん:03/01/16 10:18
VBで
A+1=Bってどうやるんでつか?

先生に聞いてもわからないんです。
ぐぐってもわからないんです。

309 :デフォルトの名無しさん:03/01/16 10:35
>>308
B=A+1

310 :デフォルトの名無しさん:03/01/16 10:59
>>306
どういうふうにうまくいかないか、書かないと、アドバイスも出せませんが。
Dim a
Dim txt As String
Dim i As Long
txt = Text1.Text 'ここでファイル読み込み
a = Split(txt)
Text2.Text = ""
For i = LBound(a) To UBound(a) Step 1
Text2.Text = Text2.Text & a(i) & vbCrLf
Next i
あとはa()の内容がちゃんとしてるかどうか調べるトコつくればいいかな

311 :デフォルトの名無しさん:03/01/16 11:10
>>309さんごめんなさい、
書き方が悪かったです。

C言語みたいに  Aに +1をすると Bという文字になる・・・・
ということはできないんでしょうか?

と聞きたかったんです。
なにか方法ないでしょうか・・・・

312 :デフォルトの名無しさん:03/01/16 11:14
>>311
Text1.Text = Chr(Asc("A") + 1)

313 :デフォルトの名無しさん:03/01/16 11:18
y=1/2x^2
y=-x^3+x^2+3

x>0領域
交点のx座標の値αを二分法により求めるプログラムおしえてもらえないでしょうか??

314 :デフォルトの名無しさん:03/01/16 11:33
>>311
まあ、その。C言語と、さほどかわりはしない。
Dim b_str() As Byte
b_str = "ABCDEFG"
b_str(0) = b_str(0) + 1
Text1.Text = b_str


315 :デフォルトの名無しさん:03/01/16 11:35
311 です。
312さん、おかげ悩んでいた部分がうまく動きました。
ほんとうに、ありがとうございました。

309さんも下手な書き込みに答えていただきありがとうざいます。

316 :デフォルトの名無しさん:03/01/16 11:37
あ・・
315さんもサンクスです。

317 :デフォルトの名無しさん:03/01/16 11:51
自分で自分にありがとう

318 :282:03/01/16 13:35
みんな解決していいですね  出来れば、これにも答えてやってください

ActiveMovieControlが動作しません
Formに貼り付けて、実行しただけでエラーとなります
”システムエラーです:&H80004005 特定できないエラー”
どうすればいいのでしょうか 教えてください
環境 98SE IE6(SP1) VB6(SP5) MSDXM.ocx 2002/05/24
MediaPleyer7.1です

僕も、違う質問に答えるようにします

319 :デフォルトの名無しさん:03/01/16 14:18
>>318
うちのPCでも出ますね(NT4.0 MP6.4)。業務系なんでメディア機能対応できないのは当然なんですが。
なんでしょうね MSDNのCLock.aviを見るのは可能だがVBでは不可。
貼りつけたままVB終了してもエラーが出る(二回)

コントロールの造りからしてなんかおざなりなんで、環境の制限がシビアなんでしょう
コントロール内部の初期化(及びプロパティ保存)処理でエラーが出てるようだが
内容を表示しないのは怠慢っぽい。ヘルプその他も日本語になってないようですのでパス。

メディア機能をJavaとかでなくVBで造ってる人居るのかな?

320 :デフォルトの名無しさん:03/01/16 14:25
>>318
コンポーネントの追加で、WindowsMediaPlayer(下の方にある)にすればOK!
# 解決になっとらんか

321 :デフォルトの名無しさん:03/01/16 14:27
そもそも、Microsoftなんか信用しちゃいかんよ(w

322 :デフォルトの名無しさん:03/01/16 14:46
>318

俺もおなじ。
メディアプレイヤーコントロール使ってるよ。

323 :デフォルトの名無しさん:03/01/16 14:55
Windows全体において、ものすごい高速なダブルクリックは
シングルクリックとして認識させるような常駐プログラムを
作りたいんですが、

まず何からやったらいいかわかりません。

VBの知識としては、普通に作りたいものはなんでも作れる程度にはあるのですが、
今回のケースは特殊すぎて私も困っております。

なにかよい助言がありましたらお願いします。

そんなフリーソフトがあるならそれでもいいのですが。

324 :デフォルトの名無しさん:03/01/16 14:58
>323
さてはマウスがいかれたな
素直に安いの買え

325 :デフォルトの名無しさん:03/01/16 15:03
>>324
やっぱそう思いますよね?私もそう思いますが、
お客さんは絶対買いたくないから私に頼んだんだと思うんですよね。

VBでは無理っていうならそう回答してもいいんですが

「そんなこともできないのか?」と思われるのも悔しいので
なんとかやってのけたいんですよね。

326 :デフォルトの名無しさん:03/01/16 15:05

> 「そんなこともできないのか?」と思われるのも悔しいので
> なんとかやってのけたいんですよね。

それなら、無酸素月面着陸をやってのけてくれ(w

327 :デフォルトの名無しさん:03/01/16 15:08
>>323
2000/XPなら
Shell ("cmd /c main.cpl")
9xなら
Shell ("command /c main.cpl")

#嘘

328 :デフォルトの名無しさん:03/01/16 15:39
>323
Win2kだったら
スタート-設定-コントロールパネル-マウス-マウスのダブルクリックの速度
これを調整。以上。

っつーかスレ違い。


329 :282:03/01/16 15:42
>>319,320,322
どうもありがとうございます

他社が作成したアプリの改造をする仕事でして、
既存がActivMovie利用していてソース開いたとたんにエラー

上記アドバイスにより動けばいいので、MediaPlayerコントロールにしちゃう
コンポーネント選択では同じOCX、プロパティもみんな同じ。。。
普通に動いちゃった・・・ まぁいいや 

どうも

よし 質問答えちゃうぞ!!! なにか質問して(あんまりVBしらないけどがんばる)


330 :323:03/01/16 15:44
>>327-328
うーん、違う。コントロールパネルで設定できるのは
ダブルクリック判定の最低速度でしょ。

超高速でダブルクリックしたときに、シングルクリックとして
認識させたいわけで、コントロールパネルの話を出すことの方が
スレ違いですよ。

GetMessageとSendMessageつかってやれそうですが
そもそもWindows全体のhwndってどうやって取得するんですか?
screen.hwndってやったら怒られた・・・。

あと、受信してしまった2回目のクリック情報を消すにはどうしたら
いいんでしょう?

331 :デフォルトの名無しさん:03/01/16 15:47
>>330
そのソフトを作る時給だけで、マウスを買える金額を
軽く超える事になってしまうに一票

332 :デフォルトの名無しさん:03/01/16 15:57
>>331
そこまで金のこと考えるならもう一歩考えろや

マウスが1個しか壊れてなくて
今後は二度と壊れない保証があるなら
お前の意見も通るかもしれんが、

>>323の客はすでに何度もマウスがこういう風に壊れて、
もう買うのがいやなのかもしれないだろ
または買ってもまた壊れると考えたのかもしれないだろ

普通誰だってマウス壊れたら新しいの買うよ
そこをあえてプログラマに依頼したのはなにかワケがあると考える方が
普通じゃないか?に一票

333 :デフォルトの名無しさん:03/01/16 16:05
>>332
では、
323の答え、または、331の別解がありましたら、教えてください。
そちらのほうが、親切かとおもいますよ

334 :デフォルトの名無しさん:03/01/16 16:14
>323
ま、簡単なことだ。
上位互換の独自マウスドライバを作成汁

335 :デフォルトの名無しさん:03/01/16 16:18
マウスのドライバ、デバイスの問題だしな。VBは関係無いだろ
VBの自作アプリでのクリ・ダブクリイベントの問題ならマウスのアプダウンイベントに代えることで解決。

336 :デフォルトの名無しさん:03/01/16 16:18
>>334
(´-`).。oO(VBでドライバが簡単につくれたらいいなあ)

337 :デフォルトの名無しさん:03/01/16 16:19
>336
334はVBでは無理だってことも含めてだろ

338 :デフォルトの名無しさん:03/01/16 16:20
>335
OSレベルでの話だよ

339 :デフォルトの名無しさん:03/01/16 16:23
VBを学習したいんだけど。
お勧めホームページ教えてください。

340 :323:03/01/16 16:25
なんかいっぱい書いてくれてありがとうございます。

Windowsメッセージの取得がむずかしいです。
Do〜Loopでまわすと重すぎるし(DoEvents入れても)、Timerコントロールでは
とてもじゃないけど検知できません。

やはりVBでは無理なんでしょうか。
だからといってVCでもできる自信はないですが。

簡単そうに見えて難しいんですかねぇ。

341 :デフォルトの名無しさん:03/01/16 16:27
>>339
http://www.microsoft.com/japan/developer/library/default.asp

342 :デフォルトの名無しさん:03/01/16 16:30
>>340
サブクラス化だのシステムフックだのを、やんなきゃいかんのでは。やったことないけど。
VBだと苦しすぎるだろうし。

343 :デフォルトの名無しさん:03/01/16 16:33
>340
もし、OSレベル全メッセージを取得できたらできる。
ダブルクリックにはシングルクリックが必ず発生するから、
シングルクリックのメッセージ時にTimer関数で時間を取得し、
ダブルクリックのメッセージ時に時間を比較し、短ければメッセージを殺す。

ただ、どうやってOSレベルのメッセージを取得するかだ。
VBでできるんかな?

344 :デフォルトの名無しさん:03/01/16 16:36
ファイルの保存の方法教えてください

dim buff as string
Open "image.jpg" For Output As #1
Write #1, buff
Close #1

これ以外のファイル保存の方法がありましたら
アドバイスお願いします

345 :デフォルトの名無しさん:03/01/16 16:40
>>344
それ以外の方法でファイルの保存をする意図を教えてください。

346 :323:03/01/16 16:42
>>343
まさにその方法でやっていますが、
メッセージ取得が非常に重いんですよ。

347 :デフォルトの名無しさん:03/01/16 16:45
VBでやるからだ
ASMで書け

348 :344:03/01/16 16:50
>>345
いやーほかにもあるのかと思いました
ありがとうございます

349 :デフォルトの名無しさん:03/01/16 16:51
sub function()

処理の途中で抜けるコマンドは何ですか?

end sub

350 :デフォルトの名無しさん:03/01/16 16:52
>>348
WinAPIで。
http://black.sakura.ne.jp/~third/win111.html
がんばれ。

351 :デフォルトの名無しさん:03/01/16 16:53
>349
exit sub

352 :349:03/01/16 16:55
>>351
できました。ありがとうございました。

353 :デフォルトの名無しさん:03/01/16 16:55
>346
ん、Windowsフックでも駄目か?

上で言ってた
Do〜LoopやTimerコントロールはジョークだよな。


354 :デフォルトの名無しさん:03/01/16 16:58
>>323
グローバルフックが必須。
確かVB単体では無理だったから
そこらで配布しているOCXでも拾ってこい。

あとは >>343

355 :デフォルトの名無しさん:03/01/16 16:58
ハッキングって結局なにする?
どこで聞けばいい?

356 :デフォルトの名無しさん:03/01/16 17:00
>355
少しコンピュータ関連の多い本屋にでも行って、立ち読みでもしてください。

357 :デフォルトの名無しさん:03/01/16 17:07
>>356
友達の家の本を読みましたが理解できませんでした。
救いようがないでしょうか

358 :デフォルトの名無しさん:03/01/16 17:09
>357
ファッキングが訛ってるだけだ。
あまり気にするな。

359 :デフォルトの名無しさん:03/01/16 17:12
#ハッカーとクラッカーの違いは、おいといて、
あなたがシステムの管理者とか、開発者とか、その手の人じゃなければ、
ウイルススキャンのプログラム等を入れておけば、望んで関わり合いに行くこともないですよ


360 :デフォルトの名無しさん:03/01/16 17:21
>>310
ご丁寧にありがとうございました。


361 :デフォルトの名無しさん:03/01/16 17:26
ソケットコントロールでエラーがでました
どうしたらいいですか?

クライアントから接続すると失敗します

Me.sock.LocalPort = 4545
Me.sock.Listen

Private Sub sock_ConnectionRequest(ByVal requestID As Long)
Me.sock.Accept (requestID) ここで現在の状態ではむりぽと出ます
End Sub

362 :デフォルトの名無しさん:03/01/16 17:27

最近VBを始めたものですが、コーディングウィンドウに
"Vscroll1." と打つと次に打つワードを予測してリストボックス
の形で出してくれますよね?この場合だと "LargeChange"
や"Max"などをリストとして出してくれるんですが、これを
キーボードの↓キーで選択したあとエンターキーを押すと
その選択したワードが入力されるんですが改行されてしまいます。
改行せずに選択したワ−ドを入力するにはどうすればよいでしょうか?


363 :デフォルトの名無しさん:03/01/16 17:31
>>361
MSDNを見てみましょう。
Acceptの前の行に、おまじないがあると思います。

364 :デフォルトの名無しさん:03/01/16 17:31
漏れはスペースキーを打つ。

365 :デフォルトの名無しさん:03/01/16 17:32
>362
エンターのかわりに、スペースキーでも押すとか。

366 :デフォルトの名無しさん:03/01/16 17:39
>>363
If Winsock1.State <> sckClosed Then Winsock1.Close
で動きました。
状態が完了していなかったのですね

367 :デフォルトの名無しさん:03/01/16 17:40
すいませんこのようなプログラムを書いたのですがうまくいきません。

Private Sub VScroll1_Change()
VScroll1.LargeChange = 2
pos_y = 240
Image1.Top = pos_y + (VScroll1.Value * 10)
End Sub

>Vscroll1.LargeChange = 2
のところはこれであってますでしょうか?

368 :デフォルトの名無しさん:03/01/16 17:44
>366
状態が完了していないわけじゃないんですよ。そのコントロールをListening
状態にしていたから、Listeningになってただけです。
AcceptするにはClose状態じゃないと(たぶん)ダメだろうから、クローズして
Acceptをしたわけです。
たとえばWinsock1のコネクションリクエストにクローズされてるWinsock2に
Acceptしてもいいわけです。
#ちょっとややこしいかな?


369 :367:03/01/16 17:47
すいません

VScroll1.LargeChange = 20
VScroll1.Max = 100
VScroll1.SmallChange = 10

を書くところが間違ってました
解決しました。どうもお騒がせ様です・・

370 :デフォルトの名無しさん:03/01/16 17:49
初心者というより未経験者ですが
特定のゲームのセーブデータからパラメータの数値を抜き出して
好きなように書き換えちゃうツールを作りたいと思ったんですが
どんなもんでしょうか

・セーブファイルの特定の個所の数値を拾って表示する
・それに対して任意に入力した数字を、元のファイルがその部分のみ変わるように上書きする
という事かと思うのですが
こんな感じ、というのを教えて貰えると激しく助かります。

371 :デフォルトの名無しさん:03/01/16 17:52
>370
セーブデータ程度のファイルサイズであれば、一括でByteの配列にでも
読み取って、表示/編集のインターフェイスでつくってやって、
(前のデータのバックアップがほしいならここでとって)
上書き。

372 :デフォルトの名無しさん:03/01/16 18:01
>>362
あれ?皆さんご存じないの? CTRL+リターンだよね?

373 :366:03/01/16 18:03
>>368
難しいです^^;;;
Listenのタイミングが間違っていることはないのですね〜
Acceptの前の特別?な記述はVBのコントロールに依存しますか?
VB特有のものでしょうか?


374 :デフォルトの名無しさん:03/01/16 18:09
>373
Winsockコントロールを使えば、どの言語だろうと一緒でしょう。
コネクションリクエスト中でCloseしたのは、そのコントロールを再利用
しただけにすぎず、Acceptの相手はCloseされたWinsockコントロール
であれば、なんでもかまわないだけです。


375 :364:03/01/16 18:12
>372
Ctrl+Enterは知ってるがスペースの方が楽で早いのでそっちを使ってる。

376 :373:03/01/16 18:28
>>374
納得いたしました

TCPでは複数のコネクションがあればアクセプト専用とか
リッスン専用とか使い分ければ便利そうですね

ありがとうございました

377 :372:03/01/16 18:30
>>375
慣れの問題ですからねー。漏れはスペースは違和感があるなぁ。

378 :364:03/01/16 18:42
>377
その通り、慣れの問題だな。

379 :デフォルトの名無しさん:03/01/16 18:52
俺はTabが正しいと教わったんで
そのままTabで決定するのに慣れてるんだが・・・
左手小指でささっと操作出来る点でスペースより(・∀・)イイ!
と個人的に思っている。

380 :デフォルトの名無しさん:03/01/16 19:03
みな、それぞれだな。
漏れはスペース。
親指が常に構えてるから、自然と押せるよ。

381 :デフォルトの名無しさん:03/01/16 20:39
チェックボックスによりテキストボックスのフォントサイズを
コントロールするコードを書いてるんですが

Private Sub Form_Load()

f_size = Text2.FontSize

End Sub
-----------------------------------------------------------

Private Sub Check3_Click()

If Check3.Value = 0 Then
Text2.FontSize = f_size
Else
Text2.FontSize = 18
End If

End Sub

このようにやってみたんですが、文字を18にするのはできたんですが
チェックを外すとエラーがでてしまいます。

チェックを外すと元の大きさに戻したいんですがなにかいい方法はないでしょうか?


382 :デフォルトの名無しさん:03/01/16 20:58
>>381
Option Explicitつけてませんよね?
f_sizeをモジュール変数として宣言しないと、
Form_Loadでのf_sizeと、Check3_Clickでのf_sizeが
別個のローカル変数として解釈されてるみたいです。
なので、
Text2.FontSize = f_size
を通ったときに、f_sizeにはEmpty値が入ってるからエラーになる。


383 :デフォルトの名無しさん :03/01/16 21:00
なんか遠回りしてるね、皆さん

384 :デフォルトの名無しさん:03/01/16 21:00
>>381
宣言セクションに
Private f_size
と記述すべし。変数スコープに気をつけましょう。

385 :デフォルトの名無しさん:03/01/16 21:04
あの、サブクラス化ということにチャレンジしてみたいんすが、
WM_*のメッセージってどうやったら何のメッセージか分かるんでせう?
SPY++で調べるの?

386 :デフォルトの名無しさん:03/01/16 21:11
>385
>SPY++で調べるの?
ためしてみてから書き込めばいいのでは。

387 :デフォルトの名無しさん:03/01/16 21:30
>>382,384さんどうもです。できました。
ちなみに宣言セクションってGeneralって書いてあるところですか?

388 :デフォルトの名無しさん:03/01/16 21:42
漏れもスペース派〜

389 :デフォルトの名無しさん:03/01/16 21:54
テキストボックスで、IMEの入力を1文字ずつ自動的に確定させるにはどうしたらいいでしょうか。

普通は、IMEでのテキストボックスへの入力は、「あいう(りたーん)」で、
「あいう」が Text1.Text に入りますが、
これを「あ」が入力された時点で Text1.Text に反映させたいのです。

教えてください。


390 :デフォルトの名無しさん:03/01/16 21:57
押されたキーを取得してテキストボックスにappendするだけ


391 :デフォルトの名無しさん:03/01/16 22:03
>389
IMEをつかわなきゃいいわけで。
"a"が押されたら"あ"を表示して、、、と。

392 :389:03/01/16 22:05
すみません。じゃあ「か」の場合はどうしたらいいのでしょうか。

全角文字を1文字ずつ取得したいのですけど、
ローマ字変換を自前でやるのは面倒だなあ。と。


393 :デフォルトの名無しさん:03/01/16 22:07
>>391

50音全部書くんですか?


394 :デフォルトの名無しさん:03/01/16 22:07
>392
面倒でも、やらなきゃ完成はしませんよ。
地道に作りましょう。

395 :デフォルトの名無しさん:03/01/16 22:09
text1に入力している文字を
text2にリアルタイムで反映させる方法ってありますか?

396 :デフォルトの名無しさん:03/01/16 22:11
>395
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub


397 :デフォルトの名無しさん:03/01/16 22:17
>>396

確定前の文字もリアルタイムで反映させることってできますか?

398 :デフォルトの名無しさん:03/01/16 22:18
>>395
妙にほのぼのしたよ。さんくす。

399 :389:03/01/16 22:23
やり方気付きました。変換モードを無変換にすればいいのでした。

400 :デフォルトの名無しさん:03/01/16 22:25
>397
2000/XPで、かつ、MS-IMEで、かつ、少々めんどくさい処理すれば、
不可能とは言いません。
ImmGetConversionList() のAPIで、自力で変換部分を作るとかね。

401 :デフォルトの名無しさん:03/01/16 22:28
話の流れからすると、タイピングソフトでも作りたいのでしょうかねぇ
他のタイピングソフトがどんな作り方してるか、見てみては?

402 :デフォルトの名無しさん:03/01/16 23:56
VB6(SP5)。

水平スクロールバー(垂直でも良いけど)を用い、Changeイベントで
ピクチャボックスなんかの書き換えを行うようにしているのですが、
例えば、スクロールバーの両端を押し続けたりすると連続的にイベントが
が発生するわけですが、書き換え等の重い処理がイベント発生に追い
つかないので、そのままではスクロールバーが変な動きをしてしいます。

そこで書き換えを行っている間はスクロールバーのEnableプロパティを
Falseにしてイベントが起こらないようにしたのですが、するとスクロール
ボックスが消えてしまいこれまた変な感じになってしまいます。

ちょっとわかりにくいかもしれませんが、なんか良い方法ないでしょうか?

403 :56:03/01/16 23:57
今までの話しの経緯。
>56>71>179>181>191>198>200>203

あの、長いので経緯載せてみました。
あの、、
結局、Form_TESTFMとTESTFM
はどう違うのでしょうか。
現段階で別物というのは教わったのですが、
TESTFMがなにで
Form_TESTFMがどうなのか
さっぱりわかりません。
ご存知の方教えていただけないでしょうか?



404 :デフォルトの名無しさん:03/01/16 23:57
MultiLine = True、ScrollBars = 1 - 水平  に設定したテキストボックスで、
改行を抑制するにはどうしたら良いでしょうか?

405 :370:03/01/17 00:00
>371
レスは嬉しいが理解できませんですた。
「Byteの配列に読み取」って「表示/編集」して「上書き」させるやり方は
どこ調べるとわかるのだろう

406 :デフォルトの名無しさん:03/01/17 00:13
>>370
バイナリファイル、ランダムアクセス、プット、ゲット、リード、ライトなどなど

407 :デフォルトの名無しさん:03/01/17 00:48
>>402
君の言う「変な動き」がどんなんだかわからないので予想だけど、
重い処理を行ってる時に変な動きになるのはある程度仕方の無いこと。
ほとんどのソフトはそうなるでしょ。速いマシンを使うほか無い。

こちらに出来るのは重い処理の実行時間を出来るだけ短かくしてやること。
「重い処理」処理中はイベントが発生しても「重い処理」を呼ばないようにする。
「重い処理」の処理終了時にスクロールバーのValueが変更されてたら、再度
「重い処理」を呼ぶ。
これで「重い処理」の実行回数が最小限?に抑えられる。
あとは「重い処理」がなるべく軽くなるようにする。

408 :デフォルトの名無しさん:03/01/17 01:16
>>403
正直わからんのだが、わかったところで無駄な知識な気がする。
Form_TESTFMはAccessがTESTFMから勝手に作ってるものなんでしょ?
てことは、Form_TESTFMはTESTFMを動かす(管理する)ためにAccessが必要とするもので、
ユーザーが意識する必要は無いもの、と予想してみる。
もしかしたらそれをいじることで何か出来るのかも知れないが
いじったら壊れるかもしれないし、そもそもいじる必要が無い。なので無視。

まあ何でも疑問に思うことは良い事だ。
あとこの板にはAccessスレがあるということを心に留めといてくれ。

409 :デフォルトの名無しさん:03/01/17 01:17
>>402 スクロールバーが止まるのを待ってからピクチャボックスを書き換えたら
どうでしょうか。

410 :デフォルトの名無しさん:03/01/17 01:21
>>404
とりあえず思いついたのは、Changeイベント時に改行を検索し、あれば消去する。
てな感じ。他にも色々手がありそうだな。

411 :デフォルトの名無しさん:03/01/17 01:26
>>402
どういう処理をしたら、そんなに重くなるのかな?
最小単位をドット以上に細かくしてムダに書き換えを多くしてるとか。


412 :デフォルトの名無しさん:03/01/17 01:28
>>407
> 君の言う「変な動き」がどんなんだかわからないので予想だけど、

これが、説明しにくいのですが、両端の三角のところが押し込んだ状態の
ままになったり、スクロールボックス上でマウスボタンの押し下げをしていな
いのにマウスポインタにスクロールボックスがついてきたり・・・・

と、とにかく妙な動きをしてしまうことがあるのです。

> こちらに出来るのは重い処理の実行時間を出来るだけ短かくしてやること。

おそらく、これ以上速くしようがないくらいチューニングされています。ネックになっているのは
分かってますので。

> 「重い処理」処理中はイベントが発生しても「重い処理」を呼ばないようにする。
> 「重い処理」の処理終了時にスクロールバーのValueが変更されてたら、再度
> 「重い処理」を呼ぶ。

うーん、私が誤解しているのかもしれませんが、そうなっているというか、それはないというか、
です。・・・・・

実はこういう現象は初めてでして、私はイベント処理の中の「重い処理」が終わるまでは
次のイベントは起こらないと思っていたのです。っていうか遅れてイベントが生ずるはず。
ところが動きがそうではない、ていうか明らかに変。

別のところがおかしいのかなぁ・・・・しばし悪戦苦闘してみます。


413 :402じゃないですが:03/01/17 01:30
>>409 スクロールバーが止まった事感知するのってどうやるんですか?

414 :409:03/01/17 01:39
>>413 とゆうか、スクロールバーが操作されなくなって、ですね。

415 :402:03/01/17 01:40
原因判明(たぶん)。

描画経過(表示し終わるまで1秒以内だが)を表示しなくてはならないので
昔からの癖で、DoEventsを間に挟んでいたため。Refreshになおしたら
変な動きはなくなりました。

お騒がせいたしました。

416 :409じゃないですが:03/01/17 01:41
>>413
止まる事を検知する必要は無いと思われ。
>>402
ワードパッドがやってるようにタイマを動かした方がいいんじゃない?
スクロールバーメッセージが届いたらタイマをキックしてタイムアップで描画更新。
これが最適でしょう。

417 :370:03/01/17 02:08
>406
オス。調べてみるっス。

418 :デフォルトの名無しさん:03/01/17 02:50
>>403
Form_TESTFMってのは、部品としてのサブフォームを表す名前だ。
CommandButtonとかCheckBoxってのと同じ。
一つのフォームにボタンをいくつも貼り付けられるように、
サブフォームも同じものをいくつも貼り付けることができる。
その場合は、"TESTFM1" とか "TESTFM2" のように
それぞれ違う名前を付ける必要があるけれど、
部品としては同じ Form_TESTFM なわけだ。

さて、あるボタンにフォーカスを移そうとした時に、
CommandButton.SetFocus のように部品名で書いたのでは
「どのボタンのことじゃボケェ」と怒られる。
ちゃんと ボタン1.SetFocus のように具体的な名前を指定しなくちゃいけない。
それと同じこと。

419 :40:03/01/17 04:33
EXEからIconファイルの抜き出し方法について教えてもらって有難うございました。
自分でちょっと調べて見たのですが抽出は特に問題無いのですが
その抽出したアイコンの貼り付けに戸惑っています・・・
コマンドボタンに表示させたくて、hDCを使えばよいと言われたのですが
どうも上手く使えないみたいで・・・

hIcon = ExtractIcon(App.hInstance, "c:\a.exe", 0)
DrawIcon Command1.hDC, 0, 0, hIcon

こんな感じで書いて見たのですがhDCの部分でエラーが出ます。
DrawIcon Picture1.hDC, 0, 0, hIcon
と書けばピクチャーには貼り付けられたのですが・・・

どなたか教えていただきたいです。

420 :デフォルトの名無しさん:03/01/17 07:19
>>419
コマンドボタンってhDC持ってたっけ?
hasHDCプロパティないんだけど。


421 :デフォルトの名無しさん:03/01/17 09:10
>>420
おりも無いと思うぞ(確認せずに書いてるがw)
hWndからGetWindowDCじゃないか?

422 :デフォルトの名無しさん:03/01/17 10:51
おひさじぶりです>>49です

>>419-421

Dim hWnd as Long
Dim hDC as Long

hWnd = Command1.hWnd
hDC = GetDC(hWnd)

で取れます (GetDCはAPI)
hWndさえ取れれば何でもhDCが取れます

423 :デフォルトの名無しさん:03/01/17 13:38
おいオマイラちょっと質問があります。
ちょいと作ったソフトがあるんだけど終了時に

 ****が原因でIMM32.DLLにエラーが発生しました。
 ****は終了します

なメッセージボックスが出て異常終了しちゃうんですよ、マジで。
それも頻繁に!ほんと(´・ω・`)ショボーンですよ。

同じような現象になったことある香具師いる?
原因とか解決策とかなんでもいいので知ってる香具師は
ここに晒してください。


424 :デフォルトの名無しさん:03/01/17 13:47
>>404,410 KeyPressイベントで受け取りたくない文字のとき返却値に0を
入れればその文字はTextオブジェクトに送られないと思った。

425 :デフォルトの名無しさん:03/01/17 13:47
>423
サーチエンジンなどで検索くらい、しましょう

426 :423:03/01/17 15:01
>>425
当然した。
http://support.microsoft.com/default.aspx
で検索かけたけど該当するのが無かった。
因みにこの板の他スレやここの全過去スレでも検索
かけたけど引っかからなかったからココで質問した。

因みにニュースとかメーリングリストなんかの環境が
無いので即時性をもとめてここに聞き込んだ。

以上、変な煽りはいらないので知ってる人情報クダサイ
解決策乗ってそうなサイト紹介もキボンヌ

427 :423:03/01/17 15:05
>>425
ごめん、サーチエンジンてのはもしかしたらYahoo!やGoogleの事かな?
そっちは試してないから今からぐぐってみる。

428 :デフォルトの名無しさん:03/01/17 15:13
http://www6.ocn.ne.jp/~endou/index2.html
     ★YAHOOOプロフィール★

429 :デフォルトの名無しさん:03/01/17 16:42
>>424 ペーストされたら?

430 :デフォルトの名無しさん:03/01/17 17:00
>>429
KeyPressイベント内にブレークポイント設定してペーストしてみれ

431 :429じゃない誰か:03/01/17 17:22
>>430
ブレークする
 Ctrl+V

ブレークしない
 Shift+F10→貼り付け
 右クリック→貼り付け
 メニューキー→貼り付け
 Shift+Insert

432 :デフォルトの名無しさん:03/01/17 18:08
そうか、ペーストされるとだめぽ。ところで何でMultilineをtrueにするの?

433 :429:03/01/17 18:10
つまりKeyPressイベントではペーストには対応できないわけですな。
となると>>277の会社は・・・

>>432 横スクロール(だけ)させたいからでしょ。

434 :デフォルトの名無しさん:03/01/17 19:08
えーと。。。VB6で次のような物を作りたい:

フォーム上にはコマンドボタン一つと、テキストボックス一つがあるとする。
コマンドボタンを押した場合には「Print 0」が実行される様にしておくが、
もしもテキストボックスに何も書かれていない場合、メッセージボックスが現われて
「テキストボックスが空白です」と表示され、OKボタンのみがついている。
そのOKボタンを押すとメッセージボックスは消えるが「Print 0」は実行されない
ものとする。ただしそれによりアプリケーションは終了しないものとする。

この時に、Private Sub CommandButton1_Click()の中に全てを記述するのではなく、
メッセージボックスを表示させるプロシージャを用意しておいて、それを
Private Sub CommandButton1_Click()のなかで呼び出すようにしたい。
可能かね???


435 :デフォルトの名無しさん:03/01/17 19:11
楽勝です

436 :デフォルトの名無しさん:03/01/17 19:16
>427
http://www.google.com/search?q=IMM32.dll+%E7%95%B0%E5%B8%B8%E7%B5%82%E4%BA%86&sourceid=opera&num=0&ie=utf-8&oe=utf-8
すぐにみつかるんだがな

437 :デフォルトの名無しさん:03/01/17 19:24

>>434 書いてみたがこれでいいのか?

'標準モジュールに書け
Public Sub 何かの関数名(ByVal frmFrom As VB.Form) As Bool

  If frmFrom.Text1.Text = vbNullString Then
    MsgBox("テキストボックスが空白です")
    何かの関数名 = false
  Else
    Print 0 '「Print 0」って何?
    何かの関数名 = true
  End IF

End Sub

'Form1
Private Sub CommandButton1_Click()
  Call 何かの関数名(Me)
End Sub

...これってなんか意味あるんか?

438 :デフォルトの名無しさん:03/01/17 19:25
>434
そこまで書けるのに、なぜ実現可/不可の判断が出来ないのか不思議だ。

439 :437:03/01/17 19:30
Sub > Function

440 :デフォルトの名無しさん:03/01/17 20:45
>>439=437
SubをFunctionに変えたところで?
と突っ込んでみるテスト。

441 :デフォルトの名無しさん:03/01/17 22:26
とどのつまり、プロシージャA内でプロシージャBを呼び出し、
プロシージャBの中にプロシージャAをexitさせる内容のコードを書いて
その通りに実行させる事が可能か?

442 :デフォルトの名無しさん:03/01/17 22:42
とどのつまり、家から会社へ行って、
会社で仕事をしているときに家が火事となり、
その人は家に帰れなくなってしまったのでしょうか

443 :デフォルトの名無しさん:03/01/17 22:44
とどのつまり、Bからのリターン値をAが判断してexitなりすりゃいいだけの話でしょうか

444 :デフォルトの名無しさん:03/01/17 22:50
>>442
なるほどwww
そういうことですね。ありがとうございます。

445 :デフォルトの名無しさん:03/01/18 00:49
>>418

クラス名とインスタンス名(Nameプロパティ)、ということでしょうか?

446 :446:03/01/18 03:47
VB6(SP5) 対象OSはXP or Meでし。

IE(関連付けされたブラウザ)をプログラムからShellExecuteで呼び出して、
インターネット上のウェブページを表示したりする一種のマクロ言語の
インタプリタもどき作ってるんですが、どうしてもそのウィンドウの「表示完了」が
わからないといけないのですが、どのように表示状態を取得すればいいのか、
見当つきません。表示状態をつかみたいIEは自分で起動したウィンドウ、及びそこから派生するウィンドウです。
よろしくなのら!

447 :デフォルトの名無しさん:03/01/18 04:06
>446
Microsoft Internet Controls でも追加して、自力で表示するとか。

448 :446:03/01/18 04:10
>447
派生ポップアップウィンドウが出ることは必然のURLでし。
コントロールを使っての表示では追いつかない。。。

449 :デフォルトの名無しさん:03/01/18 04:28
IE固定ではなく、関連されたプラウザという前提なら、どんなソフトがつかわれてるか
わからないわけで、難しいと言うしかないんだが。


450 :デフォルトの名無しさん:03/01/18 04:36
>>446
NetscapeとDDEで検索汁
すべてのプラウザで同じ動作ではないし、バージョンによっても違うがね。
.NETじゃDDE廃止になりそうだし。

451 :デフォルトの名無しさん:03/01/18 05:55
>>446
CPU使用率で判断する。


452 :デフォルトの名無しさん:03/01/18 06:02
Proxyでも作ったら大体把握つけられるかと

453 :デフォルトの名無しさん:03/01/18 06:48
おバカサイト発見しますた。
http://homepage3.nifty.com/digikei/ten.html

454 :デフォルトの名無しさん:03/01/18 09:45
いろいろなフリーのActiveXコントロールがダウンロードできるサイトがなかなか見つからないので紹介おねがいします。


455 :デフォルトの名無しさん:03/01/18 10:00
http://www.vector.co.jp/

456 :454:03/01/18 10:07
>>455
vectorは自分も会員なのですが、他に禁断のサイトとかをキボンヌです

457 :454:03/01/18 10:08
>>455
今のところは特に目的がないので、なんでもたくさん集めまくりたいです。

458 :454:03/01/18 10:10
集めたコントロールを眺めていると何か作りたいものが出てくるだろう、という感じです。

459 :デフォルトの名無しさん:03/01/18 13:30

お絵描きソフトをつくっていて、線の太さや色を変える事などは出来たんですが
書いた線をクリアするにはどのようにすればよいでしょうか?


460 :デフォルトの名無しさん:03/01/18 13:48
>459
UnDoを作りたいのですか?全てを消したいのですか?
まずは、お絵かきソフトを観察して、どんな処理がされているのか、
じっくり観察しましょう。

461 :459:03/01/18 14:27
>>459
背景と同じ色を塗る

462 :デフォルトの名無しさん:03/01/18 16:18
>>454
他人に公開する目的なら氏ね

463 :454:03/01/18 16:19
ハ?意味わかんない。

464 :デフォルトの名無しさん:03/01/18 16:34
かまうなかまうな

465 :デフォルトの名無しさん:03/01/18 16:43
>464
少々きになったもので。
>462 と >463 、どちらに向けての言葉でしょうか
'当方は両方ですが。

466 :デフォルトの名無しさん:03/01/18 16:49

粘着質

467 :464:03/01/18 16:52
熱いひとだね。
あんたに構うなといったさ。

468 :デフォルトの名無しさん:03/01/18 16:54
あ、あんた=463(454)

>'当方は両方ですが。
一人上手と言う事ですか?

469 :デフォルトの名無しさん:03/01/18 17:01
両方に、誰も、かまうな、と書いたつもりでした。
まーかまってしまったんだがな(鬱)

470 :454:03/01/18 17:14
なに下らないことで揉めてるの。
答えられない人は帰った。帰った。

471 :464:03/01/18 17:24
神様っているのよね

472 :454:03/01/18 17:25
なんでも人にしてあげたくなるような

473 :デフォルトの名無しさん:03/01/18 17:45

タイピングゲームやシューティングゲームを作る場合
VBとDelphiの2つを比べた場合、向き、不向きなどがあるのでしょうか?
どちらも同じ場合は無料のDelphiを使おうと思うのですが


474 :デフォルトの名無しさん:03/01/18 17:48
かわんね。
del でいいと思うよ別に。

475 :デフォルトの名無しさん:03/01/18 17:57
かわんね。
VBでいいと思うよ。.NETならなおよしだね。


476 :デフォルトの名無しさん:03/01/18 18:11
※Delphi 6 Personalでは、商用・業務アプリケーションの開発はできません。
とあるので、商用・業務以外の用途で使うなら問題なし。
使ってみるだけつかってみりゃいいだけの話。

477 :デフォルトの名無しさん:03/01/18 18:29

スレ違いな話になっちゃうんだけど
ウィンドウズパワーなどの雑誌は大量のフリーソフトを収録して金取ってるわけですよね?
そういう場合Delphiで開発されたソフト(フリーソフト)を掲載しても問題ないんですかね・・


478 :デフォルトの名無しさん:03/01/18 18:40
>477
フリーのソフトを作って、ウインドウズパワーに掲載依頼もらって、
その質問をしましょう!がんばって!!

479 :デフォルトの名無しさん:03/01/19 04:41
>>477
雑誌側的にはまったく問題なし。
仮に(商用に使えないことによる)問題が発生したとしても、
そのフリーソフトの作者が訴えられるだけだろうし。


480 :デフォルトの名無しさん:03/01/19 07:28
じゃあTerapadや窓の手などは雑誌にのってるけどまずいってことか

481 :デフォルトの名無しさん:03/01/19 08:50
>480
それらのソフトって、Delphi の "Personal” で作成されてるんですか?

482 :デフォルトの名無しさん:03/01/19 09:34
Delphi 製フリーソフトを雑誌で紹介したところで、「Delphi を商利用した」 事には
ならないわけだが。

483 :デフォルトの名無しさん:03/01/19 12:03
>>481 ワロタ。ナイス突っ込み!

484 :デフォルトの名無しさん:03/01/19 15:18
商利用の定義ってなんだろな。


485 :デフォルトの名無しさん:03/01/19 15:50
ボーランドに聞く(or公式文書等があれば)以外に、正しい答えは無理かと。

486 :56:03/01/19 16:34
>418
レス遅れてすみません。
理解に苦しんでました。
おかげさまでForm_TESTFMについては
理解することができました。
ありがとうございます。
C++でいうところの
クラス Form_TESTFM
Form_TESTFM::SetFocus
は呼び出せない。
みたいな感じに理解しました。
ありがとうございます。
やっと納得できました。

487 :デフォルトの名無しさん:03/01/19 16:50
>>481

personalで作ったって作者サイトに書いてあるが



488 :デフォルトの名無しさん:03/01/19 17:06
パソナで作ってプロフでコンパイルしたらどうなるんだろ?
っつーかスレ違いsage

489 :デフォルトの名無しさん:03/01/19 17:40
LearningEdition萌え

490 :デフォルトの名無しさん:03/01/19 22:06
mp3ファイルからタグ情報(曲名、アーティスト名etc)を取得したいんですけど
どうすればいいのでしょうか?

491 :デフォルトの名無しさん:03/01/19 22:10
>>490
ttp://www.angel.ne.jp/~mike/tips.html#11

492 :491:03/01/19 22:14
>>491
ありがd

493 :デフォルトの名無しさん:03/01/19 23:49
WINSOCKを使用して、FTPサーバーを作成したいのですが、仕様書orサンプルなどありませぬか?

494 :40(419):03/01/20 03:38
>>420-422
返事が遅くなってスイマセン。色々とありがとうございました。
なんとかコマンドボタン表示までは出来ました。

そこで、また新たな問題が発生したのですが・・・
表示できたのは良いのですが、表示できたアイコンが他のウィンドウに隠れたりすると
その隠れた部分だけ消えてしまうのですが・・・
アクティブ・非アクティブは特に関係無いようで、
他のウィンドウに隠れた部分だけ消えてしまいます。
これは仕様なのでしょうか?
作るものがランチャーと言う特性上、
他のウィンドウに隠れたくらいで消えるのはどうかと思って・・・

すみませんが、また教えていただきたいです。
検索とかで探そうにも、何で探せば良いのかわからなくて・・・

495 :デフォルトの名無しさん:03/01/20 03:42
>>493
最近の若者はRFCを知らんのか
http://www.w3.org/Protocols/rfc959/

496 :デフォルトの名無しさん:03/01/20 03:46
>>494
Paintイベント参照。

497 :デフォルトの名無しさん:03/01/20 07:22
>>493
探せばけっこうあるよ。

>>494
ワンクッションおいてみたらどう?



498 :デフォルトの名無しさん:03/01/20 08:21
VB6.0をVB.NETにアップデートするパチをどなたか知ってましたらダウンロード場所を教えていただけないでしょうか?

499 :デフォルトの名無しさん:03/01/20 09:02
>>498
んなもんねぇよ
>>500
おめでとう

500 :デフォルトの名無しさん:03/01/20 10:10
ちとVB環境が無い為、Access97でコーディングしています。

とあるPATHに続くフォルダ名を「最終更新日付」の古い順に取得したいのですが、
手法として、

1)Dirでフォルダ名をずらっと取得。
2)FileSystemObjectのDateLastModifiedで一つずつ更新日付を確認。
3)自力SORT。

しか無いでしょうか。
力技っぽくてアレなんですが。。

501 :bloom:03/01/20 10:20


http://www.agemasukudasai.com/bloom/

502 :デフォルトの名無しさん:03/01/20 10:29
フロッピーディスクのファイルキャッシュを抹殺するには?

503 :名無しさん だよもん:03/01/20 12:04
>>502
洗面器に水張ってフロッピーディスクを泳がせる

504 :!= 502:03/01/20 13:06
>503

質問の意味もわからないVB厨が面白くもないレスをつけてます

505 :デフォルトの名無しさん:03/01/20 13:24
VBとACCESS持ちいりましてACCESSのデータを検索をし検索結果の選んだ件だけ
を印刷したいのですがコードの書き方がわかりません。どなたか教えてください。
よろしくお願いします。

506 :デフォルトの名無しさん:03/01/20 13:58
>505

VBの本なんでもいいので買って勉強してください。

507 :デフォルトの名無しさん:03/01/20 14:08
フォーム上にあるオブジェクトをまとめて消すという事はできますか?
またできるのであればどのようにすればよろしいかご教授お願いします。

508 :デフォルトの名無しさん:03/01/20 14:28
消すってなんだよ。
フォームデザイン画面で消すのか?
実行時に非表示にするのか?

509 :hh:03/01/20 14:29
★あなたのお悩み解決致します!!
◎浮気素行調査
彼氏、彼女、妻、夫の浮気を調査致します!!
◎盗聴器盗撮機発見
あなたの部屋に誰かが仕掛けているかも!!
◎行方調査
行方不明になっている家族の消息を調査致します!!
◎電話番号から住所割り出し
一般電話、携帯から住所を割り出し致します!!
◎ストーカー対策
社会問題ともなっているストーカーを撃退致します!!
その他人生相談からどんなお悩みでも解決いたします!!
 24時間受付  090−8505−3086
URL  http://www.h5.dion.ne.jp/~grobal/
メール  hentaimtt@k9.dion.ne.jp
   グローバル探偵事務局 



510 :507:03/01/20 14:31
>>508さん
まとめて非表示にしたいのです。

511 :デフォルトの名無しさん:03/01/20 14:42
こんな感じかのぅ?

Private Sub Command1_Click()
Dim ctl As Control

For Each ctl In Me.Controls
ctl.Visible = False
Next

End Sub

512 :507:03/01/20 14:50
>>511さん
ラベル以外は非表示になりましたが、ラベルのところまで行くとエラーが出てしまいます(涙
でもラベルぐらいなら何とかなりそうなので後は自分でがんばってみます。ありがとうございました。

513 :デフォルトの名無しさん:03/01/20 15:02
>>512
Frameにフォーム上にあるオブジェクトを貼り付けて
Frame.Visible = False

514 :デフォルトの名無しさん:03/01/20 15:12
>512

511でうまくいくはずだが・・
513みたいでもいいなら

シェイプコントロールで隠しちゃうのもありだな

515 :デフォルトの名無しさん:03/01/20 15:14
>>514 それだと操作ができちゃう

516 :507:03/01/20 15:26
>>513さん
ありがとうございます、うまくいきました。Frame使うとは思いつかなかったです。

>>514さん
>>511でやると、ラベルを非表示にかかったときに
『実行エラー'438'
    オブジェクトはこのプロパティまたはメソッドをサポートしていません。』
って出てしまいました。

517 :デフォルトの名無しさん:03/01/20 15:29
>515
まじっすか?!
>516
labelコントロールにはvisibleがあるけど、なんでだろう


518 :デフォルトの名無しさん:03/01/20 15:30
>>516-517
ラベルは問題ないって
Visible プロパティがない他のコントロールでひっかかってると思われ
Timer とかな

519 :500:03/01/20 16:26
>>500ですが、どなたか。

520 :デフォルトの名無しさん:03/01/20 16:37
Access97の環境が無いのでわからんです。

521 :500:03/01/20 16:46
>>520
や、>>500見てもらったら分かると思いますが、Access固有のなんて
一つも使ってやしません。VBでも一緒です。

522 :デフォルトの名無しさん:03/01/20 16:50
>500
漏れはソートしなきゃいかん時はよくADOを使うよ。
ADOのレコードセット作って、
DirとかでFile情報放り込んで、
Sortメソッドかます。
ただ、Access97だからあえてADOも参照するのが良いか悪いかは別だが。

523 :デフォルトの名無しさん:03/01/20 17:01
Printerオブジェクトを使って印刷するソフトを作っています。
プリンターの設定はコモンダイアログコントロールを張り付け、
ShowPrinterでプリンタの設定ダイアログを表示し設定するようにしてあります。
PrinterDefaultプロパティはちゃんとTrueになってます。

でも、なぜか、プリンタの設定ダイアログで設定したように印刷されない事があります。
プリンタ設定ダイアログで用紙サイズをB5と設定しても、
A4のまま印刷されたりします。
もちろんPrinterオブジェクトのPaperSizeプロパティで決め打ちしちゃってるとか、
そういう事はしてません。

これはなぜですか。
そして解決方法があれば教えて下さい。

524 :500:03/01/20 17:23
>>522
ありがとう。
ADOかー。コードを後でVBに貼り付ける予定なので、DBは使わないんすよー。
しかし、リストボックスかなんかに放り込んでSortってのもいけそうですね。
勉強になりました、どうもです。

525 :デフォルトの名無しさん:03/01/20 17:48
ソートぐらい自分で作ればいい。
作るといっても他からパクるだけ。

526 :デフォルトの名無しさん:03/01/20 17:53
>525
いや、>500は自力でソートしたくないって言ってるんでしょ

527 :500:03/01/20 18:05
>>526
や、別にどっちでも良いっすよ。
データ量も少ないし、自力Sortしようかと思ってます。
>>500に書いたのはあの流れが一番なのかなぁ、と。
もっと簡単に早く更新日付順にフォルダ名を取得できないかな、と言うことです。
適当でスマソ。

528 :デフォルトの名無しさん:03/01/20 18:11
>500
FileSystemObject使わんでも、FileDateTimeメソッドが最終更新日時じゃなかったっけ?


529 :デフォルトの名無しさん:03/01/20 18:14
>>523
無責任に参考になるかもしれないアドレスを張ってみる
ttp://support.microsoft.com/default.aspx?scid=kb;ja;JP173981

530 :500:03/01/20 18:19
>>528
うわ、そんなのあったんすか。
wshから入ったのバレバレですね。
ありがとう。勉強になります。

531 :デフォルトの名無しさん:03/01/20 18:47
>>522
ほぼ問題はないでしょうが、VBAのバージョンが古い関係で、言語仕様上
の制限(Enumが定義できない、等)が問題になることがあるかも・・・。
(状況によりますが)

532 :523:03/01/20 19:59
>>529
うわ、それっぽいですな。
解決しそうです。
ありがとうございました。

533 :デフォルトの名無しさん:03/01/20 20:59
多次元配列(数値)の初期値を0じゃなくて、-1とかの値に
一気に初期化したいのですが、ループさせるしかないっすか?

全部で数百万個もあるので時間がかかっちゃって。

534 :デフォルトの名無しさん:03/01/20 21:12
>>533
お前のCPUは何秒かかるんだ?

535 :デフォルトの名無しさん:03/01/20 21:58
>>534
IDEで実行すると、10数秒くらい。

536 :デフォルトの名無しさん:03/01/20 22:10
>>535
それ何の処理なの?
数百万個も多次元配列組むなんて考えられないが。
DBかなんか使うとか考えてみたら。

537 :デフォルトの名無しさん:03/01/20 22:34
>>533
Eraseステートメントは0か""にしちゃうからな、ループしかないだろ

538 :デフォルトの名無しさん:03/01/20 22:35
>>536
定義型にでも出来れば、とは思うんですが・・・あまりにも複雑で
なかなか直しにくいので。(俗にスパゲッティとも言う)

出来ないんなら仕方ありません・・・とほほ。

539 :デフォルトの名無しさん:03/01/20 23:59
クラスモジュールについて質問です。

クラスのメソッドからフォームのプライベートsubやプライベートconstの値を
参照したいのですが、なにか良い方法はないものでしょうか?
frendというのを使うとできると聞いたのですが、使い方がよくわかりません。
教えてください。

Private owner As Form

Public Sub setOwner(owner_ As Form)
Set owner = owner_
End Sub

などとして、

owner.kansu()

とやればパブリックなsubなどは参照できたんですが・・・



540 :デフォルトの名無しさん:03/01/21 00:18
リストビューの自動スクロールって可能ですか?
どこかにサンプル転がってないでしょうか?

541 :1:03/01/21 00:21
>>539
そのクラスにFrendつかってあいてのメンバを友達だって定義するんじゃない?
しかし相手は参照できないよ


542 :デフォルトの名無しさん:03/01/21 00:26
>>541
レスありがとうございます。
やはり無理ですか・・
C++のフレンドクラスみたいにしたかったんですが、残念。

543 :デフォルトの名無しさん:03/01/21 00:34
>>539
プライベートは他から参照できない。
Friend(frendじゃなくてな)を使いたいなら、
ActiveX DLLとかにしてFriendで関数や定数を定義すれば
それはActiveX DLL内ではPublicと同じで他のプロジェクトからは
Privateであるようなスコープになる。

544 :494:03/01/21 01:58
>>496
Paintイベントですか。良く分からないのでとりあえず調べて見ます。
コレ関係について詳しく乗ってるページとかって無いですかねぇ・・・

>>497
ワンクッションと言いますと??

545 :497:03/01/21 02:31
>>544
隠れるってことはアイコン画像へリンクしてるだけだから、
アイコン画像データをいったん自分の変数に格納してしまう。

546 :デフォルトの名無しさん:03/01/21 02:39
>>543
なるほど!そういう時に使うんですね。勉強になりました。
VB難しい・・素直に標準モジュールで逝っときます。

547 :デフォルトの名無しさん:03/01/21 02:40
みなさんVBでビットフィールドってどうやってますか?
2 ^ index でいいんですかね?それともベタに1,2,4,8,16,32ですか?

例:
Enum NICYAN
MONA = 2 ^ 0
SI = 2 ^ 1
GIKONEKO = 2 ^ 2
FUSAGIKO = 2 ^ 3
MATA_RI = 2 ^ 4
End Enum

Public Function Check(ByVal what As NICYAN) As Boolean

If (what And FUSAGIKO) = FUSAGIKO Then
MsgBox "フサギコ"
End If

If (what And MONA) = MONA Then
MsgBox "モナー"
End If

End Function

548 :デフォルトの名無しさん:03/01/21 05:47
>>547
特にビット演算の必要が無い限り、Boolean の配列のがいいと思う。

549 :デフォルトの名無しさん:03/01/21 10:28
>>544(494)

またまた登場>>49です

ピクチャーBoxにアイコンを描画しAutoRedrawをTrueにす

んでSetParentでピクチャーBoxの親をFormから
Command1に変更する

Command1の上にアイコンが描画されたピクチャーBoxがのっかている感じです
AutoRedraw=Trueなのでアイコンが消えません

というのが どこかのページに乗ってた

(自分は未確認です...)

550 :502:03/01/21 10:39
頼むよ >>502

551 :デフォルトの名無しさん:03/01/21 10:46
>>550

フォーマットぢゃ ダメなんだよね?

552 :デフォルトの名無しさん:03/01/21 10:53
>>550
DeleteFileCash()を使いなされ。

553 :502:03/01/21 11:03
>>551
無論
二度目以降のリードでフラッシュしてんのを都度全開に読みたいのよ

>>552
それっぽい関数名 (?) だがググッても M$DN でも引っかからん...
スマソがもちょっと詳細をキボンヌ

554 :デフォルトの名無しさん:03/01/21 11:42
Cash って時点で気付け。
ネタだ。

555 :デフォルトの名無しさん:03/01/21 11:45
>>553

APIビュー---アー--- だめなら Cのヘッダファイル(Windows.hとか)

それでもなかったら>>552はネタ

556 :デフォルトの名無しさん:03/01/21 11:57
>>550
http://support.microsoft.com/default.aspx?scid=kb;ja;JP259716
こういう意味じゃなくて?

557 :デフォルトの名無しさん:03/01/21 12:14
http://www.microsoft.com/japan/developer/library/jpwinpf/_win32_flushfilebuffers.htm
こういうこと?

558 :デフォルトの名無しさん:03/01/21 12:16
ディスクを抜いて挿せば消えると思うけど・・・
何でキャッシュをクリアしたいんだ?

> 二度目以降のリードでフラッシュしてんのを都度全開に読みたいのよ

これの意味がわからん。

559 :デフォルトの名無しさん:03/01/21 12:23
チェックボックスの印刷をしたいのですがDataReportには
そのような部品はありません。印刷することは出来るのでしょうか?

560 :イヌ:03/01/21 12:27
イミディエイトウィンドウについて、いくつか質問させてください。
VB6.0proです。

・キーボードで、このウィンドウをcloseする方法。
・実行時に、このウィンドウの内容をクリアする方法

文字削除でctrl+Gをする癖があるため、よく開いてしまうので閉じたいのです。



561 :デフォルトの名無しさん:03/01/21 12:33
>>560
開発者向けの機能ですので、IDEでしか開かないはずですが?

562 :デフォルトの名無しさん:03/01/21 12:33
>>560
無理。放置しる。

563 :デフォルトの名無しさん:03/01/21 12:37
M$DNなんて厨くさいことをかくな

564 :502:03/01/21 12:43
>>557
そういうことだが FD は設定できんようだ

>>558
FD 内のファイルを GetPrivateProfileInt で読もうとすると
ごく一部の機種 (PC-98) で FD 変えても取得値が変わらんのだ
じゃ他の手法で読めとか VB の問題じゃなかろうとかチミなら云うだろうが
── とにかくあたしゃやりたいのよ!

>>563
厨だから

565 :デフォルトの名無しさん:03/01/21 12:49
態度からしてもう教えてもらえんな


566 :デフォルトの名無しさん:03/01/21 12:55
>>564
そのような場合、不具合が起こった機種の製造会社に聞くべきだろう。
PC-98のWindows用のデバイスドライバがPC-AT用とはかなり違っていた
のは経験したぞ。折れは。

567 :デフォルトの無責任さん:03/01/21 13:31
>>533
配列はゼロクリアして使用時にバイアスをかける。
ラッパーをかますなどすればそれっぽく使えるかもしれないけど危険。

>>539
別名でFriendプロシージャを用意しる。
でも543が言うようにActiveX DLL/OCXでないと(同一プロジェクトでは)あまり意味がない。
Publicにできない型をやりとりするとき位かな?
↓こんな感じ 


'Form1
Private AFO As Object

Friend Property Get VAKA() As Object
  Set VAKA = AFO
End Property


'Other Module
Dim ITTEYOSI As Form1
Set ITTEYOSI = New Form1
ITTEYOSI.VAKA.OMAEMONA 'Form1のプライベートメンバAFOのOMAEMONAプロシージャ呼出

568 :デフォルトの名無しさん:03/01/21 13:52
>>560
>・キーボードで、このウィンドウをcloseする方法。
CTRL+G アプリケーションキー(またはSHIFT+F10) H

>・実行時に、このウィンドウの内容をクリアする方法
Debug.Print String(1000, vbCrLf)

569 :デフォルトの名無しさん:03/01/21 14:00
イミディエイトウィンドウってなんですか?
Form領域の左にはツール郡、右にはプロパティウィンドウがありますよね。
イミディエイトはどれですか?

570 :デフォルトの名無しさん:03/01/21 14:07
>>569 ヘルプみろ

571 :デフォルトの名無しさん:03/01/21 14:33
>569
オマイこそCtrl+G汁

572 :569 ◆ywK/cYxtrU :03/01/21 14:56
>>570-571
Ctrl+Gでウィンドウが開いたけど何を表示させるんですか?

573 :569 ◆ywK/cYxtrU :03/01/21 14:58
詳細については、各言語のドキュメントのデバッグに関連する箇所を参照してください。
///デバッグに必要なウィンドウなのか

574 :569 ◆ywK/cYxtrU :03/01/21 15:00
↑はヘルプの文だけど
つまり
イミディエイトウィンドウ=デバッグウィンドウか。
同じもので呼び方がちがうだけと、なっとく。

575 :デフォルトの名無しさん:03/01/21 15:11
イミディエイトウィンドウかぁ

Debug.Print でイミディエイトウィンドウになんか出ます

そういや Debug.Print を書いたまま EXE 二すると
EXEの中で Debug.Print が無駄に仕事をするんで
EXEにする前に消しとくと良いらしいYO

576 :569 ◆ywK/cYxtrU :03/01/21 15:24
>>575
ふううん ソウナンダ。オレDebug.Printの一行は書いたことないな。
オレが自分で考えた特許的方法は
Open − For Output As #〇
Print #〇, 変数
Close #〇
End
ってかんじでテキストに変数の値を出力して
そののちエンドで動作を終了させてる。
イミディエイト覚えたほうがよさげだな。

577 :デフォルトの名無しさん:03/01/21 15:30
>>575
半分正しい。半分間違い。
Debug.Printの引数が定数や変数とそれらの式ならEXEにすると消える。
引数に、関数、メソッド、プロパティが含まれていると式が評価される。
もちろんDebug.Print自体は動作しないが。

578 :デフォルトの名無しさん:03/01/21 15:58
デバッグ用のコードは条件付コンパイルするが吉。

579 :デフォルトの名無しさん:03/01/21 16:22
debug.print "[" & format(now(),"HHNNSS") & "] val1=" & value1 & " val2=" & cstr(val2)
の場合、EXEではformatとcstr、文字の連結処理は行われるということ。無駄無駄無駄無駄無駄・・・
パフォ気にしないんならいいじゃん。

580 :デフォルトの名無しさん:03/01/21 17:52
イミディエイトウィンドウで
?val1
とか
val2 = "ほげ"
とか
Call MsgBox("ほげ")
とか

581 :デフォルトの名無しさん:03/01/21 18:42
SWFファイルのムービーの幅と高さを取得するサンプルみたいなのってないでしょうか?
ファイルフォーマットの文書を読んでもイマイチ、ピンと来ないので・・・。

知ってる方がいらっしゃいましたら、お願いいたします。

582 :デフォルトの名無しさん:03/01/22 00:24
>>502, 564
問題の有る機種について汎用的な手法は存在しないと思われ。
ちなみにWin9x系のGetxxxProfilexxx関数は機種に関わらずキャッシュされるのをご存知なんだろうな?

583 :デフォルトの名無しさん:03/01/22 00:31
ディストリビューションウィザードを用いてセットアップパッケージを
作ろうと思ったのですが、よく分からないまま「次へ」とか「完了」
で作成したら、結構サイズが大きくなってしまいます。

依存ファイルを減らせばいいのでしょうが、依存ファイルって、
どこで決まるんでしょう?付け加えたOCXとかVB6JP.DLLくらいなら
判断できますが、それ以外のものをはずして良いのか悪いのか分か
りません。

584 :デフォルトの名無しさん:03/01/22 00:51
>>583
出来たcabファイルは圧縮率スカスカだから、
一旦解凍して圧縮しなおすと結構小さくなったりするよ。

585 :デフォルトの名無しさん:03/01/22 01:02
>>584
ありがとう。それでやってみます。

586 :デフォルトの名無しさん:03/01/22 10:12
>>577
仮にパフォーマンスの問題は無視できたとしても、副作用のある処理が
含まれていたとしたら、致命的にマズイね。

587 :デフォルトの名無しさん:03/01/22 10:21
>586
変数表示ならともかく、
関数の結果表示は危険をはらみ過ぎだろうね。

588 :デフォルトの名無しさん:03/01/22 10:30
>>586
副作用ならDebug.Printは大丈夫だろう。どちらにしろ関数は実行されるんだから。
副作用の問題が出るのはDebug.Assertの方。EXEにすると関数が含まれようが消えるから。
Debug.Printで問題があるのは副作用じゃなくて式の結果が実行時エラーになる場合。
それを利用してEXEかIDEかチェックするテクニックもあるが。

589 :デフォルトの名無しさん:03/01/22 11:00
>>588

> それを利用してEXEかIDEかチェックするテクニックもあるが。

代表的なのは、1 / 0 のようにゼロ除算でエラーにする方法だと思うが、
VB.NETではエラーにならない罠・・・。(w



590 :NANASI:03/01/22 13:56
VBからACCESSを読み条件検索をしグリッドに表示されたデータの中から
データを選び次の画面で詳細を表示するようにしています。そして、
表示された詳細を印刷するようにしているのですが印刷プレビューの時
点でデータべースの1件目を表示してしまいます。詳細に表示したデータ
のみを印刷したいのですが、どうしてもうまくいきません。どなたかご教
授お願いいたします。

591 :デフォルトの名無しさん:03/01/22 14:02
>590
条件がよくわからんが…。
Filterで、選択レコードのみのレコードセットを作り出すとかは?


592 :デフォルトの名無しさん:03/01/22 14:37
VBで変数に値を代入するときに、エラーが発生することはありますか?

593 :デフォルトの名無しさん:03/01/22 14:41
>>592
ある。

594 :いんかす ◆9qOjTgf4as :03/01/22 14:43
>>592
オブジェクト変数のset忘れ

595 :sage:03/01/22 16:16
a as double
b as double

間に適当な処理

a = b
こんな感じなんですが。。。

596 :デフォルトの名無しさん:03/01/22 16:24
>595
何のエラー?
エラーメッセージとエラー番号プリーズ
できれば間にある適当な処理も。
そいで、最後代入するときのBの値もね。

597 :デフォルトの名無しさん:03/01/22 16:56
出てくるエラーメッセージが「0割」か「オーバーフロー」です。
bの中身は23562です。
間の処理のほうはbにc*d*f/eといった感じです。
aは実は構造体の配列のメンバだったりします。配列のサイズは2*3*5ぐらいなんですが構造体のサイズは100ぐらいだったりします。

でもエラーは出てくるんですけども値自体の代入はきちんと行われているようです。

598 :デフォルトの名無しさん:03/01/22 16:58
VBからエクセルのマクロを実行したいのですが どうすればいいのか解りません。
 ・エクセルのファイルはオープン済み
 ・単純にエクセルに登録されているマクロを起動するのみで、実行結果にはVB側は感知しない

どうか、よろしくお願い致します。

599 :デフォルトの名無しさん:03/01/22 17:01
>>597
取りあえずeに0が入らないように監視。

600 :デフォルトの名無しさん:03/01/22 17:18
>>597
式に用いられている変数の型に注意。
例えば、以下のようにすると、a*bでエラーが生ずる。

Dim a As Integer
Dim b As Integer
Dim c As Long

a = 1000
b = 1000
c = a * b

こういう場合は、例えば以下のようにする。

c = Clng(a) * Clong(b)


601 :600:03/01/22 17:20
ぉぉ600ジャストだった。。。と思ったら間違ってやんの。

Clngね。

602 :デフォルトの名無しさん:03/01/22 17:53
営業時間中ずっと起動しているようなプログラムで
DBへの接続は起動時にしてつなぎっぱなしにしていますか?
それとも必要に応じて接続・切断を繰り返していますか?

環境:VB6(SP5)+MSDE+ADO2.7

603 :デフォルトの名無しさん:03/01/22 17:54
>>602
エラーが累積していくと悲惨なことになる予感。

604 :sage:03/01/22 17:57
>>603
602のどのあたりの事?


605 :デフォルトの名無しさん:03/01/22 18:23
>つなぎっぱなし
いままで予想だにしなかったことだな。こういうのもありなのか?
タイムアウトの予感。

606 :デフォルトの名無しさん:03/01/22 19:05
VBではなくVBScriptなのですが、IISでVBScriptでASPです。

スクリプトから実行ファイルを起動して(もしくはバッチファイル)、
その戻り値を得たいのですが、どうすればいいのでしょうか。


607 :606:03/01/22 20:10
自己レス http://www.serverobjects.com/products.htm#Aspexec でできました。

608 :デフォルトの名無しさん:03/01/22 21:10
FormのMouseDownイベントを、
Formに載ってる各コントロールのMouseDownイベントより先に発生させる事はできませんか?
KeyPreviewプロパティのマウス版みたいな感じで。

609 :デフォルトの名無しさん:03/01/22 21:13
>>608
それって不便じゃない?


610 :598:03/01/22 22:23
誰か。。

611 :デフォルトの名無しさん:03/01/22 22:50
>610
WSHで作ったやつだけど、多分VBでも問題なし。
http://pc3.2ch.net/test/read.cgi/win/1022248379/466
で、実行中のExcel捕まえて、
http://pc3.2ch.net/test/read.cgi/win/1022248379/430
で、マクロを実行する。


612 :自由な奴隷:03/01/23 00:34
厨な質問ですまそ。
text1.text と
text!text ってどう違うの??

っていうか「!」ってなんですか?


613 :自由な奴隷:03/01/23 00:39

text1.text
text1!text 
でした。
(text1は、テキストボックスね。)

614 :デフォルトの名無しさん:03/01/23 07:42
>>612
---------------------------
Microsoft Visual Basic
---------------------------
コンパイル エラー:

値の取得のみ可能なプロパティに値を設定することはできません。
---------------------------
OK ヘルプ
---------------------------

615 :デフォルトの名無しさん:03/01/23 09:46
>606

>607

宣伝書き込みじゃないよね?

616 :デフォルトの名無しさん:03/01/23 10:15
>>615 どうでもいいことですが、2chに宣伝するなんて、
熱心な外人さんですね。

617 :598:03/01/23 10:54
>>611
ありがとうございました。 できました!


618 :デフォルトの名無しさん:03/01/23 10:55
Access2000で作成されたデータベースがあり、その中のあるテーブルのフィールドに
OLEオブジェクトとしてPhotoshop形式のファイルが埋め込まれています。
Accessで見ると「Adobe.Photoshop.Image.4」と書かれており、クリックすると
Photoshopが立ち上がる状態です。
さて、このようなレコードが多数あり、Photoshopの画像を別ファイルとして
保存する必要に迫られたのですが、やり方が調べても分かりません。
(OLEオブジェクト ファイル 保存 などでググってみたのですが・・・)
どなたか、このようなOLEオブジェクトのファイルを抜き出して保存する方法を
ご存知じゃないでしょうか。
ちなみに、データベースへアクセスする方法はADOでもDAOでも構いません。

環境はWin2K(SP3) + VB6(SP5) + Access2000(SP3) + Photoshop6 です。

619 :NANASI:03/01/23 11:53
DATAPORTでチェックボックスを印刷することは出来ますか?

620 :デフォルトの名無しさん:03/01/23 12:04
>>618
バイト型の配列にオブジェクトをぶち込み
Put ステートメントで書き込む

621 :デフォルトの名無しさん:03/01/23 12:18
>>608
KeyPreviewプロパティのマウス版は無い

Private Sub Command1_MouseDown(引数省略)
  Call Form_MouseDown(引数省略)
  
  'この下に Command1_MouseDown の処理を書く
End Sub

この方法で出来なくもないが
Formに載ってる各コントロールに Call Form_MouseDown(引数省略)を
書かなくてゃならんので ヤダ

622 :デフォルトの名無しさん:03/01/23 12:32
>>608
フックすりゃなんでもできる

623 :618:03/01/23 12:57
>>620
なるほど・・・。ありがとうございます。ちょっと試してみます。

624 :デフォルトの名無しさん:03/01/23 13:23
マウスの動作を記録し、再生するアプリを作っています。
マウスの座標と状態をログファイルに書き出すことはできたのですが
それを再生するとき、SetCursorPosで座標は再現できるのですが
クリックやドラッグを再現する方法がわかりません。

どなたかご教授いただけないでしょうか。

625 :デフォルトの名無しさん:03/01/23 13:56
>>624 mouse_event

626 :618:03/01/23 13:59
下記のようにソースを組み、ファイルに出力するところまではできたんですが、
実行してできたファイルをPhotoshopで開こうとすると、
「有効なPhotoshop書類ではありません」と言われてしまい、エラーになってしまいます。
どこが悪いのか分かる方いらっしゃいましたら、アドバイスお願いします。

# なお、
b = rec.Fields("画像") の行を
b = rec.Fields("画像1").GetChunk(0, lngLen) に変えてみても同様の結果でした。

------------------

Dim b() As Byte

lngLen = rec.Fields("画像").FieldSize
ReDim b(lngLen - 1&)
b = rec.Fields("画像")

Open "c:\tmp.psd" For Binary As #1
Put #1, , b
Close #1

627 :デフォルトの名無しさん:03/01/23 15:08
GrapeCityの製品を使って画面にグラフを表示しようと思っているのですが
この二つの製品の違いが良くわかりません。
Chart Builder5.0J
Olectra Chart6.0J

Olectra Chart6.0J は Chart Builder5.0Jの後継製品と考えれば良いのでしょうか?

あと開発環境が次の場合は
Olectra Chart6.0J の方が妥当なのでしょうか?

解る人いましたらお願いします。

#ここまで書いたらメーカーに聞いた方が早いような気がしてきた・・・


628 :627:03/01/23 15:11
開発環境が抜けてました。
WindowsXP + VB6SP5
です。

629 :624:03/01/23 15:15
625さん、ありがとうございます!
うまくいきそうです。

630 :デフォルトの名無しさん:03/01/23 16:39
>>627
俺はその辺りはあまり知らないけど、
そこまで書くならメーカーに聞いた方が早いような気がするよ。うん。

631 :493:03/01/23 16:42
なんとか完成しました。
>>495様。ありがとうございました。


632 :598:03/01/23 16:45
もう一つ教えてください

VBからエクセルのマクロは起動できましたが、
エクセル側のマクロが終了するまで、
VBの Application.Run  で待機してしまいます。

エクセルのマクロ計算時間が1分以上かかるので、
VB側は待機をせずに次の処理をさせたいのですが、
何か方法はありませんか?

633 :山崎渉:03/01/23 19:58
(^^)

634 :デフォルトの名無しさん:03/01/23 20:57
すいません、質問です。
OUTLOOK2000の受信トレイを、ACCESS2000のDBにエクスポートするまでを
VBAスクリプトで行いたいのですが、やり方がまったく見当つきません。
もし不可能なら、WSHもつかえる環境なのですが。
VBAの知識がなく、マクロの記録機能もないので困っています。
仕事で急に必要になってしまいました。お願いします。

635 :デフォルトの名無しさん:03/01/23 21:05
>>634
知識のあるヤシにやってもらう。
できもしないこと思いついたからって、全部2chに丸投げは無いだろ。

636 :サンプルコード検索中…:03/01/23 21:06
MAPI使ってしこしこデータを取り出すか、
ADO使って一発でデータを取り出すのでわ?



637 :サンプルコード検索中…:03/01/23 21:08
とりあえず、このページに載ってるサンプルコードはどうよ?
http://www.shoeisha.com/event/excel/session/session.html

638 :デフォルトの名無しさん:03/01/23 21:35
スマソだれかパトラ○トって所のビジュアルサインてのVB6で制御やったことあるひといねぇ?

639 :デフォルトの名無しさん:03/01/23 21:38
>>635-637 ありがとうございます。
MAPI ADO ってのがあるんですね、調べます。


640 :デフォルトの名無しさん:03/01/23 21:39
Excel-Outlook連携のコードはあったけど、参考になるかなぁ?
 http://www.microsoft.com/japan/partner/businessdevelopment/SalesResources/catalog/downloadfiles/0028-SH1.pdf
 の、10ページ目近辺

方法としては、
・メールを受信する度に、OutLookのイベント・コードでExcel(Access)にデータ追加する方法と、
・Excel(Access)側から、Outlookの指定フォルダー内のメールを参照する方法、
の二通りがあるらしいです


641 :634:03/01/23 22:02
>>640
ありがとうございます(これから読みます)
わからなくなったら、また書き込ませてください。

642 :デフォルトの名無しさん:03/01/23 22:16
VB側からVCで作ったDLL呼び出そうとしたら”スタック領域が不足です”とエラーが出たんですが
何が原因と考えられますか?
情報少なくてすみません

643 :デフォルトの名無しさん:03/01/23 22:29
>642
でかい配列を値渡しとか

644 :デフォルトの名無しさん:03/01/24 00:22
>>642
無限ループとか

645 :デフォルトの名無しさん:03/01/24 00:24
Media Playerコントロール(msdxm.ocx)を使って再生

他のファイルを再生

ボリュームが元に戻る

マズー
なんですけど、実行中にボリュームバーで変更したときって
ボリュームって取って来れんのですか?

Dim i As Integer

i = MediaPlayer1.Volume

ってやっても最初にプロパティページで設定した
値しかとって来れません。

646 :デフォルトの名無しさん:03/01/24 02:00
>>642
考えられる原因は無限にある。以上。

647 :デフォルトの名無しさん:03/01/24 02:11
>>642
たぶん、スタックが不足したんじゃないかなあ

648 :デフォルトの名無しさん:03/01/24 02:48
>>642
>DLL呼び出そうとしたら
DLL呼び出したら、じゃないの?細かい事のようだけど予想される原因は全く違ってくるのでは。
DLL呼び出したらエラーになったんならVCで作ったDLLに問題があるんじゃない?
俺はそのエラー、再帰処理で出した事あるよ。

649 :642:03/01/24 07:00
>>643>>644>>646>>648
れすどうも
DLLがわですかね、やっぱり。うーん、でも何度見てもわからない〜
渡してるものは二つのデバイスコンテキストと整数型の変数三つを値渡しなんですけど
別に渡してる要素数が多すぎるって訳じゃないですよね、全部で5つしかないし、、、
もっかい精査してみるっす

650 :デフォルトの名無しさん:03/01/24 09:07
>>642 そのDLLどんな処理してんの?

651 :デフォルトの名無しさん:03/01/24 09:14
>>634
http://homepage1.nifty.com/tsware/tips/tips_257.htm

652 :デフォルトの名無しさん:03/01/24 10:08
>>650
FFTです
VB側で読み込んだ画像のフーリエ変換を処理速度上げるために変換処理部分だけVCで作って
DLLとしてリンクさせようと思ったんです
だからVB側でやってる事はファイルから画像読み込んでピクチャーボックスに表示

そのピクチャーボックスのデバイスコンテキストと読み込んだ画像の縦横サイズを引数として
DLL側の関数へ渡す

DLLでFFT処理実行してスペクトル表示にし、その画像に対して加工してやって
加工後の画像を逆FFTしてフィルター処理された画像を得る

あとはその画像をVB側から受け取ったデバイスコンテキストに対して描画してやる


ってな事をやりたいわけです。

653 :618:03/01/24 10:27
>>618>>626の質問をした者です。
解決しなかったので、今度はAccess総合相談所スレで質問してみます。
もし解決したらこちらにも解決方法を書こうと思います。

654 :デフォルトの名無しさん:03/01/24 10:46
>>645

>ボリュームが元に戻る
どの辺にもどる?
最初にプロパティページで設定した値ってこと?

>実行中にボリュームバーで変更したときって
>ボリュームって取って来れんのですか?
だったらボリュームバーを非表示にしてボリュームを
変更できなくする(たしかボリュームバーを非表示にするプロパティが
あったはず よく覚えていない)

スクロールバーでMediaPlayer1.Volumeを制御する





出来なかったら あぼーん


>>653
たのむぜ

655 :VB質問スレ 620:03/01/24 11:37
>>918-919
ReDim を宣言しないでやってみてくれ

656 :655:03/01/24 11:38
>>655 誤爆スマソ

657 :デフォルトの名無しさん:03/01/24 12:16
はじめまして。

現在、VB6proとACCESS2000を使用しデータベースの
検索システムを製作しています。
検索一覧をグリッドに表示し、情報を選ぶと次の画面へ移り
詳細情報が表示されるというものです。
問題は詳細情報の印刷をさせているのですが、データベース
にあるデータを1から印刷してしまいます。
すべてを印刷するわけではなく選択した(表示している)デ
ータのみを印刷するようにしたいのです。
なんども手直しをしましたが直りません。
どのようなコーディングをすればよいか皆様に教えていただ
けたら幸いです。

Set DataReport1.DataSource = frm検索.rs

' レポートを表示(プレビュー)する
DataReport1.Show

という風にコーディングしています。

よろしくお願いします。


658 :デフォルトの名無しさん:03/01/24 12:16
>652
少しずつデバッグして、状況判断しては?
C側の最初に return; を入れて、問題なければ呼び出しはうまくいってるんだし、
どこでエラーが出てるかわからなければ、誰も答えられないとおもうんだが

659 :デフォルトの名無しさん:03/01/24 14:33
ゲーム等のフルスクリーン上で、VBで作ったソフトの画面を
表示するにはどうすればいいですか?
環境 VB6.0 WINDOWSAPI DIRECTX

660 :デフォルトの名無しさん:03/01/24 14:36
>>657
テーブルから1件のレコードを抽出するRecordsetオブジェクトを作成して
DataReport1.DataSourceにセットする。

661 :デフォルトの名無しさん:03/01/24 14:54
解決しました

662 :デフォルトの名無しさん:03/01/24 15:05
>>661
誰だよ。名前のところに番号いれれ。

663 :藍沢:03/01/24 15:29
テキストフォームにあるデータをDataReportで表示させるには
どうすればいいですか?

664 :618:03/01/24 16:26
Accessスレで回答が得られました。(解決策ではないです)

Accessのオブジェクト埋め込みは、ファイルにOLEに関する情報と
おぼしきものが付加されるそうです。
なので、その部分を取り除かずにそのままバイナリで吐き出しても、
Photoshopでは認識できないみたいです。
これを解決するには、吐き出されたバイナリを解析して、OLE付加情報を
自力で取り除くしかなさそうです(かなり厳しい・・・)
とりあえず原因が分かっただけでも一歩前進、といったところでしょうか。

665 :661:03/01/24 16:55
>662

いやだね

666 :デフォルトの名無しさん:03/01/24 17:09
>>665
この偽者め!

667 :デフォルトの名無しさん:03/01/24 17:12
>>663
DataReport1.Sections("Section1").Controls("Label1").Caption = Form1.Text1.Text

668 :デフォルトの名無しさん:03/01/24 17:34
>>667
ありがとうございます!


669 ::03/01/24 17:34
>>664
ASPでビットマップを出力する例ですが、参考にるかと思います。

[ASP]Access データベースから画像を取り込み表示する
http://support.microsoft.com/default.aspx?scid=kb;ja;175261


670 :618:03/01/24 17:38
>>669
おお! ありがとうございます。
まだチラッと見ただけですが、確かに参考になりそうですね。
がんがってみます。成功したらご報告します。

671 :藍沢:03/01/24 17:53
もう一つお願いします。
印刷ページ数を指定してDataReportを表示するにはどうすればいいですか?

672 :デフォルトの名無しさん:03/01/24 18:20
>>671
お前、自分で調べたか?
すぐに見つかるぞ
http://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&q=%E3%83%87%E3%83%BC%E3%82%BF%E3%83%AC%E3%83%9D%E3%83%BC%E3%83%88+%E5%8D%B0%E5%88%B7&lr=

673 :デフォルトの名無しさん:03/01/24 18:41
>>632 には誰も答えないの?

674 :デフォルトの名無しさん:03/01/24 18:59
納豆食えよ

675 :デフォルトの名無しさん:03/01/24 20:07
>>632
Private Sub Command1_Click()
Dim WShell As Object
Set WShell = CreateObject("WScript.Shell")
WShell.Run "D:\ExcelMacroRun.vbs"
MsgBox "VBSを実行しました。"
End Sub

ExcelMacroRun.vbs
--------------------------------------------
Set objExlApp = CreateObject("Excel.Application")
objExlApp.Visible = True
objExlApp.DisplayAlerts = False
objExlApp.Workbooks.Open("C:\test.xls")
objExlApp.Run ("Macro1")
objExlApp.Quit

676 :デフォルトの名無しさん:03/01/25 03:39
shell memo.exe,〜txt
という感じでファイルは通常開きますが、
ただたんにVB側では〜.txtや〜.jpgを開く命令だけを発行し、Windowsで関連付けられたアプリが自動的に開いてそれらのファイルを開くにはどうすればいいのでしょうか?

677 :デフォルトの名無しさん:03/01/25 04:07
関連づけられたアプリを探しShellって事も出来るが、
お手軽にやるならShellExecuteとか。

678 :デフォルトの名無しさん:03/01/25 06:43
あるPATH以下のフォルダとファイルを全てコピーしようと考えているのですが、
一つのファイルが完全にコピーされるのを待ってから、次のファイルに取りかかりたい
のに、どんどん次のファイルに取りかかってしまうからか、エラーっぽいのが出ます。
(多分、同じファイルがあるから)

これを一つのファイルをコピーし終えるまで待つように出来ませんでしょうか。
よろしければやりかたをご教授願います。
おながいします。

679 :676:03/01/25 06:46
>>677サン
ShellExecuteしらべてみまつ

680 :676:03/01/25 06:47
関連付けアプリ探し出すのも面白そうでつ

681 : :03/01/25 11:44
「サウンドとオーディオ デバイスのプロパティ」で設定する、
「音の再生」の「規定のデバイス」をVBから変更したいのですが、
どなたか方法を教えてください。

音声再生の出力先を、場合によって通常のサウンドカードか
USBサウンドのどちらかに変更したいのですが、いちいち
プロパティを開くのも面倒だし、フリーソフト等を探したものの
見つからなかったので自分で作ろうかと思っています。
OSは2000又はXP です。



682 :デフォルトの名無しさん:03/01/25 12:46
>>678
エラートラップ。

683 :598:03/01/25 13:14
>>675
ありがとうございました。参考になりました
VB単独では無理そうなんですね

684 :デフォルトの名無しさん:03/01/25 14:52
>>680
FindExecutable() だったかな。ただし、抜けがあるので、レジストリを読むのが確実

>>681
わかんね。変更前後のレジストリの変化を調べてみたらどうだろう。

>>683
そんなこたーない。VBSをVBのコードに置き換えればいいだけ。

685 :デフォルトの名無しさん:03/01/25 15:07
IEのようにwebbrowserの進行状況をプログレスバーで表示するにはどうすればいいですか?

686 :680:03/01/25 15:07
>>684サン
レジストリが確実れすか〜。ガンガリマス

687 :デフォルトの名無しさん:03/01/25 15:36
>>685
自分でSocketから起こすのが(略

688 :デフォルトの名無しさん:03/01/25 15:47
VB上で動かすと問題なにのにEXEにしたらフォームロードで
オラクルに接続するところで落ちるようになってしまいました・・・

原因わからず、1週間近くも悩んでいます。
助けてください・・・

せめて原因を特定する方法だけでも・・
VCを使うとVBのEXEのデバッグができるというのは本当ですか?
もしできるなら方法を教えてください・・・

689 :デフォルトの名無しさん:03/01/25 15:59
>>688
原因を特定するための情報を一切出さないとはどういう了見で?

690 :デフォルトの名無しさん:03/01/25 16:09
自分でしらべろよ 敬語つかってんじゃねえよ
教えてばっかりいってんじゃねえよ
1週間も悩む暇あったら仕事しろよ
¥¥¥¥¥¥¥¥¥\\\



\\\\\\\\\\


691 :デフォルトの名無しさん:03/01/25 16:17
>>687
よくわかりません・・・・

692 :デフォルトの名無しさん:03/01/25 16:50
>>685
ProgressChange イベントってのがあったけど、これは駄目かい?

>>688
とりあえず、エラーメッセージぐらいだそうよ。
あと、開発環境 = 実行環境なのか、とか、いろいろ情報が不足してるね。

VCでデバッグもできるけど、相当大変なことは覚悟しておいたほうがいいよ。

693 :藍沢:03/01/25 20:09
VBとACCESSの環境です。
ACCESSでチェックボックスがオン
になっている場合VBのフォームに
テキストで表示させたいのですが
以下のように記述しますと
無しとしか表示されません。
どの部分が間違っているの
でしょうか?

If frm検索.rs!寮 = 1 Then
txt寮.Text = "有り"
Else
txt寮.Text = "無し"
End If
If frm検索.rs!残業 = 1 Then
txt残業.Text = "有り"
Else
txt残業.Text = "無し"
End If

694 :デフォルトの名無しさん:03/01/25 20:22
VisualStudio.net買うんじゃなくて
VisualBasic.netだけ単体で買うことって可能?

値段とかどんくらいするものなのかね
詳細キボンヌ

695 :デフォルトの名無しさん:03/01/25 20:23
frm検索.rs!寮
frm検索.rs!残業
この2つの値を確認せよ
チェックしたとき1が入ってくるのか

696 :デフォルトの名無しさん:03/01/25 20:26
winsockで110に接続する。(メルサ

んで認証する

RETRでメールヘッダもらう。

まではできんだけど

送信者の取得がワカンナイーヨ
複数のメールヘッダが変数に格納されてて、
その順番どおり例えばa(1)に一件目の送信者a(2)に2件目の送信者
手ナ感じで代入したいんだけど。

どんな感じでやりゃあいいのかな

スマートな「才支」求む。

697 :デフォルトの名無しさん:03/01/25 21:07
>>694
http://www.microsoft.com/japan/presspass/releases/021402msdn.htm

698 :デフォルトの名無しさん:03/01/25 21:30
>>697
ジブンシラベロバカチュウボウというレスを予想していただけに
激しく感謝!!

699 :デフォルトの名無しさん:03/01/25 21:30
店いってきけよボケ 全部ネットかよ お前の人生ネットかよ
おびえてばっかりでなにもできねえアフォが開発なんてすんなよ
どうせろくでもないようなものしか作れないだろうからやめとけ。マジで。

700 :698:03/01/25 21:36
>>699
ま、こんなレスでいちいちageるやつもどうかと思うが
期待してたレスありがと。

701 :デフォルトの名無しさん:03/01/25 22:22
>>694
VB.netスレあるのに・・・
http://pc3.2ch.net/test/read.cgi/tech/1025848458/l50

ちなみにVB.net単独はStandardエディションのみだ。
旧VBで言うところのLearningエディションにあたる。
仕事で使うならVS.NETだろ。

702 :デフォルトの名無しさん:03/01/25 22:26
Microsoft Visual Studio .NET Academic
通常パッケージ
24,800円

てのは旧VBのぷろふぇ?

703 :デフォルトの名無しさん:03/01/25 22:26
てかvc.netもは言ってこの価格は買いか?

704 :デフォルトの名無しさん:03/01/25 22:37
>>696
POP3プロトコルでそ?
なら、RETRで取り出したメールに
・From:ヘッダが付いてればそれを使い、
・ついてなければあきらめる
って事でいーんじゃないだろーか?

あと、From:ヘッダは、正規表現か、文字列パースで、名前とアドレスを切り分けるって感じ

705 :デフォルトの名無しさん:03/01/25 22:51
>>704
そなんだけど
そのFromの取り出し方がワカンネーダヨ
その「使い方」を教えてホシイダーヨ
どうやって取得し配列変数にカクノウシテイクンダーヨ

イ列 くれたら ネ申

706 :デフォルトの名無しさん:03/01/26 00:57
クラスについて、ワカリヤスーク解説してる本を探してます。
お薦めの本ありますか?

707 :デフォルトの名無しさん:03/01/26 01:28
>>705
文字列から文字列を検索するだけだろ?
取り出し方なんてあまりのも初歩過ぎ&状況によって全然ちがうので
例を書きたくてもかけねーぞ?

>>706
ヘルプ


708 :デフォルトの名無しさん:03/01/26 06:39
以下の内容をコピペ
REM ------------------------------ここから
MSGBOX "  / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄" _
&VBCRLF&"< しいたけですが、何か?" _
&VBCRLF&"  \___________" _
,16,"しいたけ"
REM ------------------------------ここまで

ファイル名をsi-take.vbsとかにして保存

保存したsi-take.vbsをダブルクリック

(゚д゚)シイタケー

709 :デフォルトの名無しさん:03/01/26 06:44
http://jbbs.shitaraba.com/travel/832/
    ◆みんなの情報局◆

710 :デフォルトの名無しさん:03/01/26 08:07
>>708
ワラタ

711 : :03/01/26 10:37
>>688
 ソースが入ってるPathとexeの入っているPathが違っているとか?
 それで、OracleのDBのPathが違って認識されていないとか 

 そんなに簡単な問題じゃないか・・・・


712 :デフォルトの名無しさん:03/01/26 11:16
ものすごく初心者的な質問かもしれませんが、
a=(1024*1024*1391) MOD 13
これでオーバーフローしてしまいます。
これはどうにもならないんですか?

713 :デフォルトの名無しさん:03/01/26 11:22
>>712
VBのintegerってまだ16ビットだったりするの?

714 :デフォルトの名無しさん:03/01/26 11:24
>>712
Integer型になっているためだと思われ
Currency型かDouble型で計算しる

a=(1024!*1024!*1391!) MOD 13 !
↑たとえばこれはSingle型として計算

715 :デフォルトの名無しさん:03/01/26 11:25
a=(1024&*1024&*1391&) MOD 13
&はどれか一つだけでも良いけど

716 :デフォルトの名無しさん:03/01/26 11:28
>>713
まだってCPUによってビット数が変わる言語はC/C++ぐらいだろ。

717 :デフォルトの名無しさん:03/01/26 11:30
>>716
(32ビットOSに特化した言語のくせに)>>713

で良いかい?


718 :デフォルトの名無しさん:03/01/26 11:33
VB3以前は16ビット、VB4は16ビットと32ビットの両方ある

719 :デフォルトの名無しさん:03/01/26 11:36
(同じ境遇のDelphiは32bitになってるのに)>>713


720 :デフォルトの名無しさん:03/01/26 11:41
integerは整数という意味であって16ビットという決まりは無い。

721 :デフォルトの名無しさん:03/01/26 11:42
駄目ぽ

722 :デフォルトの名無しさん:03/01/26 11:44
教えていただいてどうもすいません。
しかし、
a=(1024*1024*1391) MOD 13
これはうまくいったのですが、
a=(10240*10240*1391) mod 13
これを
a=(10240!*10240!*1391!)
ここまではうまく計算されるのですが、
mod 13 をつけるとまたオーバーフローしてしまいます。
教えて君でもうしわけありませんが、教えてください。

723 :デフォルトの名無しさん:03/01/26 11:47
Javaも.NETもデータ型が同じならビット数も同じになったね。

724 :デフォルトの名無しさん:03/01/26 11:50
>>722
>>715

725 :デフォルトの名無しさん:03/01/26 12:53
うう・・
いろいろがんばったけどやっぱりできない
145856921600 mod 13
でエラーが出るのはこれは仕方が無いのですか?

726 :デフォルトの名無しさん:03/01/26 14:16
>>725
頭使って、目的とする解を得られるように計算方法変えてみ。

727 :デフォルトの名無しさん:03/01/26 14:26
>>725
そもそもどのバージョンのVBでやっているの?
VB.NETでは何も問題ないが。

728 :質問です:03/01/26 15:31
常駐しているアプリのアイコンの上にカーソルもっていくと
ツールチップが出て文字列が表示されますよね。
外部アプリケーションのそのツールチップの文字列を取得したいのです。
Tips系サイトとか回ってみたのですが、近い情報はありませんでした・・・
どなたか知識が有る方、ご教授願えませんか。
よろしくお願いします。

729 :デフォルトの名無しさん:03/01/26 16:19
本買えよバカ

730 :デフォルトの名無しさん:03/01/26 16:22
バカは本買うよ


731 :デフォルトの名無しさん:03/01/26 16:24
GrapeCityのSpread6.0 使っています。修正版も入れています。

ADOと連結させている時に
キーボードから入力したものは自動的に保存してくれるのですが
SetTextメソッドからセットした値は自動的に保存してくれません。
何か知っていたら教えてください。

732 :!728:03/01/26 17:56
>>729
知らないならレスするなバカ


733 :デフォルトの名無しさん:03/01/26 17:57
>>732
オマエモナー

734 :デフォルトの名無しさん:03/01/26 19:10
Winampみたいなスキン替えられるアプリ作りたいのですが、
ああいうのをVBで実現しようと思ったら、何から調べれば良いですか。

735 :デフォルトの名無しさん:03/01/26 19:16
>>734
設定ファイル(iniなんか)の読み書き
画像の読み込み
リージョン

スキンなんてそう難しい機能じゃないよ。
作ってって分からなくなったら聞きに来い。

736 :デフォルトの名無しさん:03/01/26 19:27
>>735
「リージョン」自体初耳なので調べる所からはじめまっす。
分からなかったら、その時おながいします。

737 :デフォルトの名無しさん:03/01/26 20:02
>>726さん、
それは13未満になるまでぐるぐるまわるようなプログラムにするってことですか?

738 :デフォルトの名無しさん:03/01/26 20:43
145856921601-int(145856921601/13)*13

739 :デフォルトの名無しさん:03/01/26 21:06
(1024 mod 13)*(1024 mod 13)*(1391 mod 13)
=10*10*0
=0

740 :デフォルトの名無しさん:03/01/26 21:25
>>735
ビットマップからリージョン切れるようになれば好き勝手に形作れておもしろいな。

741 :デフォルトの名無しさん:03/01/26 21:32
>>740
どーやってやんのそれ?
恥ずかしながら多分俺出来ないわ。

742 :デフォルトの名無しさん:03/01/26 21:41
>>741
最新のNrLaunch見てみ。

743 :デフォルトの名無しさん:03/01/26 21:56
>>739
(1024 mod 13)*(1024 mod 13)*(1392 mod 13)
=10*10*1
=100
ですが何か?

744 :デフォルトの名無しさん:03/01/26 22:03
>>741
俺は一ラインずつ見ていってリージョンORしていった。

745 :デフォルトの名無しさん:03/01/26 22:32
On Error Resume Nextって、あんまり使ってはいけないのでしょうか。
エラー無視するのが悪い気がするのですが。。。

746 :デフォルトの名無しさん:03/01/26 22:33
>>745
例外処理についての理解を深めれば割と納得がいく。

747 :デフォルトの名無しさん:03/01/26 22:36
>>745
On Error Resume Nextはインラインエラー処理のための命令。
すなわち、ある命令の次の行でErr.Numberをチェックしエラー処理をする。
APIのように戻り値でエラーを判定する方法と同じような感じになる。
もちろんErr.Numberをチェックしないのも戻り値のエラーをチェックしないのもご法度。

748 :デフォルトの名無しさん:03/01/26 22:42
Outlookから、とあるURLのページを開きたいのですが。。。
IEで開くには、以下のようにすればいいことはわかります。

Set objIEApp = CreateObject("InternetExplorer.Application")
toaruURL = "http://www.yahoo.co.jp"
objIEApp.Visible = True
objIEApp.Navigate toaruURL

ただ、希望としては、「htmlファイルと関連づけられているブラウザ」で
開くようなコードを書きたいのです。(SleipnirなりDonutPなり)
どのようにすればいいのでしょうか?

なお、Outlook2002、IE6、WinXPPro-SP2です。

749 :デフォルトの名無しさん:03/01/26 22:42
>>743
(゚Д゚)ハァ?
>>725の話だが

750 :デフォルトの名無しさん:03/01/26 22:45
>>749
期待する答えになってないだろうがボケ。

751 :デフォルトの名無しさん:03/01/26 22:58
>>748
開くだけなら
Dim WShell As Object
Set WShell = CreateObject("WScript.Shell")
WShell.Run """http://www.yahoo.co.jp/"""

752 :デフォルトの名無しさん:03/01/26 23:02
>>741
いいもんみっけた。
http://www.vector.co.jp/soft/win95/prog/se122274.html

とは言ってもC++のソース読めなきゃ意味ないけどな。
不定形リージョン作るだけならこれ使えばVB房でも大丈V

753 :デフォルトの名無しさん:03/01/26 23:09
>>748
>>677 も参考になるかと

754 :デフォルトの名無しさん:03/01/26 23:10
>>728 の答え 漏れも知りたい

755 :傍観者:03/01/26 23:36
>modでオーバーフロー
こんな事もあるんですね。初めて知りました。
ちなみに"\"でもオーバーフローになるようです。
.netだと問題無いってことなので、これってVB6.0のバグですかね。

756 :デフォルトの名無しさん:03/01/26 23:42
>>これってVB6.0のバグですかね。

仕様とバグの区別もつかないのか?
整数型の最大値はちゃんと覚えているか?

757 :デフォルトの名無しさん:03/01/26 23:44
>>755
単にmodで使用できる整数の範囲を超えてるだけだろ。

758 :デフォルトの名無しさん:03/01/26 23:47
なんかこー、データ型とか分かってない奴が大きな数字にしたらエラーになった。
これはバグに違いない2ちゃんねるで晒してやろうとかいって
実は自分が馬鹿晒しているように見えるのは気のせいだろうか。
で最後に泣きながらネタだよーとか言って逃げていきそうな予感。

759 :デフォルトの名無しさん:03/01/26 23:48
>>755
>.netだと問題無いってことなので、これってVB6.0のバグですかね。
仕様だろ。あさはかにバグとか言わない。
Modも\も整数(Integer、Long)を対象とする。
整数でないものは整数(Integer、Long)に丸められる。
整数に丸められることはヘルプに書かれてある。

>145856921600 mod 13
これの前者はDoubleだ。IntegerやLongには丸められない。
Longで21億ちょいまでだから。

.netはDecimalまでサポートしているし、Long型だって8バイトだしね。


760 :748:03/01/26 23:53
>>751 >>753 >>677 さん、ありがとうございます。ばっちりです。

761 :デフォルトの名無しさん:03/01/27 00:49
VBからExcelファイルにページ番号を出力するツールを作ってます。
Sheet単位の総ページ数を取得したいのですが、できません。
どなたか、よろしくお願いします。

762 :デフォルトの名無しさん:03/01/27 00:52
>>761
どこまでやったか書かんような奴に教えるつもりは無い

763 :デフォルトの名無しさん:03/01/27 01:00
>>761
GetPageNumber()を使いなされ。

764 :761:03/01/27 01:06
>>762 申し訳ありません。

1Sheet1ページでの出力は可能です。
複数ページの場合、2Sheet目を1ページ目の総ページ数 + 1から出力したいです。
で、Sheet単位の総ページ数を取得したいのです。

765 :デフォルトの名無しさん:03/01/27 02:04
質問です。

自作ソフトの印刷プレビュー機能を作成してたら、PaintPictureが画面の解像度を越える位置に
描画できないらしいことがわかってしまいまして。

たとえば縦に2000ピクセルのPicuteBoxを縦1280のマシンで作成して、1000から1500にかけて
PaintPictueすると1000から1280までしか絵が出ないのです。
コリャどうすりゃええんですかね。


766 :デフォルトの名無しさん:03/01/27 02:18
PictureBoxっつーか、Windowのサイズじゃないか?
必要なサイズぶんの大きさにpictureboxを広げて描画し、
それを別のpictureboxに重ねてスクロールバーでスクロールできるようにするとか。
たとえばの話ね。

767 :傍観者:03/01/27 02:38
別に泣いて逃げるつもりは無いけどー
単にヘルプ確認するのめんどいから「ですかね」と言っただけだしー
俺的には>>738の手を使うだけだしー
それを鬼の首を取ったみたいに言われてもねー
恥ずかしいですね

768 :デフォルトの名無しさん:03/01/27 02:49
VBAのコマンドオブジェクトって何のことですか?  

769 :デフォルトの名無しさん:03/01/27 02:55
>>767
不確定形の文章ながらも 「バグ」 と書いてあるからにはそう思い至ったわけだろう。
何らかの不具合をすぐ処理系のバグと思うのは阿呆のすることだと言ってるの。

第一、767 はどこからどう読んでも逃げの文章なのに、「逃げるつもりは無い」 なんて
恥ずかしいと思わないのか?
ハンドルまでが 「傍観者」 なんて、それ名無しよりもみっともないぞ。
発言に責任持たないぞと明言しているようなもんだからな。

叩かれるのがイヤなら、もっと考えて発言しろ。
もしくは、しゃしゃり出てくるな。
叩かれて当然の発言をしておいて、何が 「鬼の首を取ったみたいに」 だ。
鬼の首の鬼にすらなれていない事に気付け。

770 :通りすがり:03/01/27 03:05
>>ALL

771 :デフォルトの名無しさん:03/01/27 03:07
>>770
別に。

772 :デフォルトの名無しさん:03/01/27 03:08
>>770
可哀想に。使いこなせなかったんだね。

773 :デフォルトの名無しさん:03/01/27 03:27
http://jsweb.muvc.net/index.html
 ★お気に入りに追加してしまったアドレス★

774 :デフォルトの名無しさん:03/01/27 08:35
Visual Basic6.0で外部DLLなしで
Outlook に依存せずにメールって送れないんですかね?
Winsockがどうとかってことらしいんですけど、
使いこなせないもので。
どなたかご教授お願いします。

775 :デフォルトの名無しさん:03/01/27 08:36
>>774
Socketは使えるっしょ。

厳密に言えば外部DLLが無ければVBプログラムは起動すら出来んが。

776 :デフォルトの名無しさん:03/01/27 08:53
厳密に言えば外部DLLが無ければすべてのWindowsプログラムは起動すら出来んが。

777 :傍観者:03/01/27 09:56
俺的には>>757みたいなレス期待してただけで
>>758みたいに妄想たっぷりのレスされても、って感じ。
バグですかねじゃなくて仕様ですかねと書かなきゃいけないのか。あほらし。
そもそも断定なんてしてないっつーの。
>>769さ、鬼の首を取ったみたいにって意味わかってないでしょ。実生活で恥かく前に調べときな。
こんな小さい事でわざわざ叩き入れられてもねえ。さらっと答えるのが大人でしょ。
ハンドルまで突っ込まれるとは思いもよらなかったよ。君、人間が小さいって言われた事無い?

778 :618:03/01/27 10:11
>>618の質問をしたものです。
皆さんのご協力のおかげで、かなりの力技ですが、ついにファイルを
取り出すことができました!本当にありがとうございました。
つきましては、汚いソースですが、一応他の方の参考になるかもしれないので
以下に記述します。

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Private Sub Command1_Click()
Dim b() As Byte
Dim buf As String
Dim db As DAO.Database
Dim rec As DAO.Recordset

buf = App.Path & "\tmp.mdb"
Set db = DAO.OpenDatabase(buf)
Set rec = db.OpenRecordset("テーブル")
If rec.EOF = False Then
If GetPSD(rec.Fields("画像"), b) = True Then
Open "c:\tmp.psd" For Binary Access Write As #1
Put #1, , b
Close #1
End If
End If
Call rec.Close
Set rec = Nothing
Call db.Close
Set db = Nothing
End Sub

779 :618:03/01/27 10:12
<<ソース続き>>

Private Function GetPSD(ByVal OleField As DAO.Field, ByRef b() As Byte) As Boolean
Dim Arr() As Byte
Dim Buffer As String
Dim HeaderOffset As Integer
Dim ArrBmp() As Byte
Dim i As Long

GetPSD = False

ReDim Arr(OleField.FieldSize)
Arr() = OleField.GetChunk(0, OleField.FieldSize)

' この辺がかなり強引
Buffer = ""
For i = 0 To 15000
Buffer = Buffer & Chr(Arr(i))
Next i

HeaderOffset = InStr(Buffer, "8BPS")
If HeaderOffset > 0 Then
ReDim ArrBmp(UBound(Arr) - HeaderOffset + 1)
CopyMemory ArrBmp(0), Arr(HeaderOffset - 1), UBound(Arr) - HeaderOffset + 2

b = ArrBmp
GetPSD = True
End If
End Function

780 :デフォルトの名無しさん:03/01/27 10:27
>>777
> 俺的には>>757みたいなレス期待してただけで

何でこんなに荒れてるかわからないか?
状況判断もできないのか?
そういうレス期待していたのなら単に 「どうしてでしょうか」 のように書いて
おけば良かった。
それを事もあろうにあんたは 「バグですかね」 などと言い放った。
しかも回答があっても礼も言わない、指摘されても悪びれもしないばかりか、
なお煽りとしか思えないレスをつけている。
さらに、VB を普通に覚えていった人なら誰でもわかるような内容だった事も
加味している。
これでは荒れるなという方に無理がある。

781 :デフォルトの名無しさん:03/01/27 10:40
>>780
まあまあ、傍観者氏が相当のDQNなのはよくわかってるから抑えて抑えて。
以降、謝罪以外のレスをしても恥なだけなのは明らかなんだから、生温かく見守ってあげようよ。

782 :デフォルトの名無しさん:03/01/27 10:40
↑の方でリージョンの話が出てきたんで思いだした

FormにBMPはっつけて hDC取って
RGB(0,0,0)の部分をリージョンから消し去るDLL(API)があったなぁ〜
>>740が言ってた様なことが出来るヤツ

自分で書いた絵の形がそのままFormの形になるのはビク〜リ ビク〜リ

783 :デフォルトの名無しさん:03/01/27 10:47
今、Outlookの受信トレイのメールをアクセス2000のMDBに
取り込もうと、下のようなテストプログラムを作ってるんですけど、
送信日時がわかりません。送信日時の名前を教えてください。
お願いします。 m(_ _)m

Option Explicit

Sub ReadMail()
Dim OLOOK As Outlook.Application
Dim NameSpc As Object
Dim fmail

Set OLOOK = New Outlook.Application

With OLOOK
Set NameSpc = .Application.GetNamespace("MAPI")
Set fmail = NameSpc.GetDefaultFolder(olFolderInbox)

Debug.Print fmail.Items(1).CreationTime
Debug.Print fmail.Items(1).ReceivedTime
Debug.Print fmail.Items(1).To
Debug.Print fmail.Items(1).CC
Debug.Print fmail.Items(1).Subject
Debug.Print fmail.Items(1).Body
End With

Set NameSpc = Nothing
Set fmail = Nothing
End Sub


784 :デフォルトの名無しさん:03/01/27 11:47
>>777
> >>769さ、鬼の首を取ったみたいにって意味わかってないでしょ。実生活で恥かく前に調べときな。
えーと、普段つけいるスキが無くてくやしい思いをしていた相手を、たまたまやりこめれてはしゃいでる
様子、だったと思うんだけど、そうすると>>769は別におかしくも何ともないけど、
お前の脳内定義はどーなってんの?
別に誰もお前にくやしい思いは持ってないだろよ。

> こんな小さい事でわざわざ叩き入れられてもねえ。さらっと答えるのが大人でしょ。
言葉尻を取ってるのお前の方だってば。
いろんなレスの重要な部分をことごとく無視してんじゃん。
そんなんでもしかして自分は大人だとか言ったりするのか、おめでてーな。
そんなに大人が好きならハンドルも「大人」がお似合いだねw

785 :デフォルトの名無しさん:03/01/27 11:52
またそうやって煽る・・・(;´Д`)

786 :783:03/01/27 11:54
>>784
喧嘩やめれ。

教えてください。 お願いします。 m(_ _)m

787 :デフォルトの名無しさん:03/01/27 12:25
>767=>770=>777



788 :デフォルトの名無しさん:03/01/27 12:34
>>783
.SentOn

789 :783:03/01/27 12:37
>>788
できました♪
ありがとうございました m(_ _)m
また、わからないことがあったら、お願いします。

790 :デフォルトの名無しさん:03/01/27 12:39
拡張子regのファイルをダブルクリックしてレジストリに登録する処理を
VBでやりたいのですが、例えば「c:\aaa.reg」を実行するにはどうやれば良いのでしょうか。


791 :即レス ◆R8POP.SOKU :03/01/27 12:42
>>790
デフォルトで出来るはずだが・・・?

792 :デフォルトの名無しさん:03/01/27 12:44
>790
Shell でも ShellExecute でもExでも。

793 :デフォルトの名無しさん:03/01/27 12:58


Google ツールバーみたいな IE アドインを作りたいのですが、VB6またはVBNETで可能でしょうか? サンプルを探していたんですが、C++のものしかみつかりませんでした・・・

794 :デフォルトの名無しさん:03/01/27 12:59
不用意にAGEてしまってすみません

795 :デフォルトの名無しさん:03/01/27 13:06
VB2〜7まで色々あるからne

796 :デフォルトの名無しさん:03/01/27 16:29
VB6で、Pictureオブジェクト(StdPicture)のデバイスコンテキストの
ハンドルを取得するにはどうすれば良いのでしょうか?
ピクチャーボックスコントロールに一回転送してからじゃないと無理?

797 :デフォルトの名無しさん:03/01/27 18:11
>>796
IPictureインターフェースを使ってみるとか・・・?

798 :デフォルトの名無しさん:03/01/27 18:22
VBでDirectDrawSurface7を使った半透明処理を3Dテクスチャーやデバイスコンテキストに転送->BitBlt And演算に頼らずにやる方法ってありませんか?

799 :783:03/01/27 18:43
>>783で、質問した者です。まだ、テストプログラムです。。。。
下のようになったんですが、わからないことだらけなんです。
それは、「送信者」、「送信者アドレス」、「受信者アドレス」、「ccアドレス」の名前です。
あと、参考になるサイトか、本かあれば紹介してほしいのですが。
よろしくお願いします。 m(_ _)m
Option Explicit
Sub GetMail()
Dim OLOOK As Outlook.Application
Dim NameSpc As Object
Dim finbox
Dim mail
Set OLOOK = New Outlook.Application
With OLOOK
Set NameSpc = .Application.GetNamespace("MAPI")
Set finbox = NameSpc.GetDefaultFolder(olFolderInbox)
For Each mail In finbox.Items
Debug.Print mail.SentOn
Debug.Print mail.CreationTime
Debug.Print mail.ReceivedTime
Debug.Print mail.To
Debug.Print mail.CC
Debug.Print mail.Subject
Debug.Print mail.Body
Exit For
Next
.Quit
End With
Set NameSpc = Nothing
Set finbox = Nothing
Set mail = Nothing
End Sub

800 :デフォルトの名無しさん:03/01/27 18:43
>>798
Win2kとWin9xとではアプローチが違うだろうね。

801 :798:03/01/27 19:38
Win9X(98以降)、Win2k(XP)両方で利用する予定です
何か方法ありますか?

802 :デフォルトの名無しさん:03/01/27 19:51
>>799
送信者アドレス、ccアドレスは知らん。
他はオブジェクトブラウザでMailItemを調べたり、OutlookのVBAのヘルプでわかるだろ

803 :783:03/01/27 20:14
>>802
なるほど!そうやるんですかあ。
ありがとうございました。 m(_ _)m

804 :デフォルトの名無しさん:03/01/27 20:50
メールをテキストファイルに保存して取り出すのも試してみよう

805 :765:03/01/27 21:19
何か荒れてるところに飛び込んだようで・・・
>766
にかかれているように、スクロールバーをつけてスクロールさせていくと、
でっかいPictureBoxの下のほうではPaintPictureが動いていないことが
わかったんですよ。
ところが、これを違うマシンで今日試すと、どうもちゃんと描ける場合もあるかも。
グラフィックボードの関係なんてことありますかねぇ?

806 :デフォルトの名無しさん:03/01/27 21:22
>774
俺作ったことあるよ。
結局、TCP/IPで自分で接続して、SMTPをしゃべればいいわけですからな。
VB TCP/IP
ぐらいで検索してTCP/IPを使えるようにして、
SMTPをしゃべればよい。



807 :783:03/01/27 21:26
>>804
ありがとうございます。
ちょっとやってみました。
確実にテキストファイルに落ちてきますね。
自分の参加してる組織のMLの投稿数が1万件近くあるんですよ。
それの整理にMDBを利用しようとしてるんです。
必要なのは、投稿日と投稿者と件名、内容くらいかなあって
思ってるんですけど、ちょっと検討してみます。

808 :h:03/01/27 21:29
★あなたのお悩み解決致します!!
●浮気素行調査
彼氏、彼女、妻、夫の浮気を調査致します!!
●盗聴器盗撮機発見
あなたの部屋に誰かが仕掛けているかも!!
●行方調査
行方不明になっている家族の消息を調査致します!!
●電話番号から住所割り出し
一般電話、携帯から住所を割り出し致します!!
●ストーカー対策
社会問題ともなっているストーカーを撃退致します!!
その他人生相談からどんなお悩みでも解決いたします!!
 24時間受付  090−8505−3086
URL  http://www.h5.dion.ne.jp/~grobal/
メール  hentaimtt@k9.dion.ne.jp
   グローバル探偵事務局 



809 :デフォルトの名無しさん:03/01/28 01:35
質問です。
VBからoo4oでオラクルに接続して
ストアドを起動したときの処理時間って取得できますか?
VBのタイマーを使うのではなく
SQLPLUSコマンドのset timi onで計った時間を
受け取ることは可能でしょうか?


810 :あのう・・:03/01/28 10:52
アカデミック版って標準版と機能的になにが違うんでしょうか?


811 :デフォルトの名無しさん:03/01/28 11:52
>>810
機能的には何も違わなかったような・・・

812 :デフォルトの名無しさん:03/01/28 13:54
ウィンドウのサイズを変更中に網掛けの境界線が表示されるが
これとまったく同じブラシで描画する方法を教えてくれ

無論 [ドラッグ中にウィンドウの内容を表示する] はオフでの話だ

813 :デフォルトの名無しさん:03/01/28 14:08
>810
アカデミパックはライセンスが安く購入できるってだけ。
モノはいっしょです。


814 :812:03/01/28 14:56
スマソ!自己レスになってしまったが >>812
とりあえず背景を透過、前景を R2_NOTXORPEN にして
ブラシに 2x2 の白黒ビットマップを指定したらいい感じになった
R2_NOTXORPEN (vbNotXorPen と同じ?) の意味がよくわかっとらんが
見た目に問題ないので大丈夫なのだろう

815 : ◆IGEMrmvKLI :03/01/28 15:28
shell関数を使用して、win32コンソールアプリケーションをコールしているのですが、
コンソールアプリケーションの復帰値を受け取ることって、可能なんでしょうか?
もし、不可能であれば、それに代替する関数など存在するのでしょうか?
ご教授お願いします。


816 : ◆x2BppO9N.g :03/01/28 15:39
質問でつ。

PaintPictureで
幅500ある空間に幅100の画像を描きます。
で、残り幅400の空間が余りますよね。
その幅400の空間には、幅100の画像の一番右の1列を伸ばして描画したいです。
どういうコードになるのでしょうか。
画像処理苦手なんでチンプンカンプンだったり・・・。
お願いします。

817 :デフォルトの名無しさん:03/01/28 15:41
>>816
その言葉の通りにコードを組めばできますよ。

818 : ◆x2BppO9N.g :03/01/28 15:49
>>817
それが出来ないから困ってるんですが・・・。
PaintPictureの引数の指定がよくわからん。

819 :デフォルトの名無しさん:03/01/28 15:53
そこまで見えてるなら、もう
「ヘルプ嫁、そして試せ、出来るまで。」
以上の答えが帰ってくることは無い事も予想できんか?

820 :デフォルトの名無しさん:03/01/28 15:55
>>818
何故PaintPictureかはわかりませんが・・・
pointで一番右のドットを読み取って、その色で一番右までLineを
引けばいいのでは?

821 :デフォルトの名無しさん:03/01/28 16:01
vb.net でのツールボックスを使わないで印刷
する方法教えて。テキストオンリーで作りたいの。

822 :デフォルトの名無しさん:03/01/28 16:04
>821
こっちのほうがよい回答が得られるとおもわれ

【老若】VB.net質問スレ【男女】
http://pc3.2ch.net/test/read.cgi/tech/1025848458/

823 :VBの逆コンパイラ:03/01/28 16:06
あるって聞いたんですけど
本当ですか?

824 :デフォルトの名無しさん:03/01/28 16:07
>>815
GetExitCodeProcess はどうよ?

>>821
.NETにはPrinterオブジェクトはなくなったのかな〜? と検索したら・・・
インタープリンタってなんですか?
http://www.google.co.jp/search?q=cache:uI-WveNJf2QC:www.shoeisha.com/book/Detail.asp%3Fbid%3D1374+%22VB.NET%22+%E3%83%97%E3%83%AA%E3%83%B3%E3%82%BF&hl=ja&lr=lang_ja&ie=UTF-8&inlang=ja


825 :デフォルトの名無しさん:03/01/28 16:10
誤字だと思われ

826 :VBの逆コンパイラ:03/01/28 16:31
ヒントは西城秀樹と言われましたが
意味がわかりません

827 :デフォルトの名無しさん:03/01/28 16:34
>>826
少なくとも VB5 以降は無いよ

828 :815 ◆IGEMrmvKLI :03/01/28 16:42
>>824さん、どうもありがとう出ス。
なんか出来そうなので、試してみまっす。


829 :デフォルトの名無しさん:03/01/28 19:37
spy++起動しようとするとエラーがでて使えない(つД`)

830 :デフォルトの名無しさん:03/01/28 20:30
>>829
俺も俺も。正確にはプロセスの情報を表示したらこんなんでて落ちる。

"0x00425a78" の命令が "0x0016c30a" のメモリを参照しました。
メモリが "read" になることはできませんでした。

ちなみに、最初に落ちたときは、プロセスの情報を更新していて、
そんでレジストリに起動して始めに表示する情報がプロセスになってて
起動した瞬間落ちてた。他ユーザからレジストリ情報もらって
始めに表示する情報をウィンドウにしたから、プロセスを見るまでは動く。
なお、Process Viewerも動かない。プロセスが一個も表示されない。
タスクマネージャ、tlistは動く。

なんでだろう?

212 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)