VBプログラマ質問スレ ..
357:デフォルトの名無しさん
08/05/16 00:21:38
>>351-352
あのなあw
それ以上馬鹿を晒さないうちに黙っていた方がいいと思うよ。
358:デフォルトの名無しさん
08/05/16 02:04:54
>>352
359:デフォルトの名無しさん
08/05/16 02:56:11
VB脳ｗ
360:デフォルトの名無しさん
08/05/16 11:35:01
VB6を使用しています。
ADO2.5のRecordsetオブジェクトを使用し
以下のようなDBを参照し
ﾌｨｰﾙﾄﾞ1 |
----------
A |
B |
C |
データを
Aを取得し変数にセット→MoveNext
Bを取得し変数にセット→MoveNext
Cを取得し変数にセット
という流れで取得しています。
MoveNextなどをせずに
一気にA B Cのデータを取得し変数にセットをしたいです。
もし可能であればご教授ねがえませんか？
361:デフォルトの名無しさん
08/05/16 11:49:27
ご教授なんて呼ばれても そんな人いません
362:デフォルトの名無しさん
08/05/16 12:19:34
恥ずかしい馬鹿だな。
「ご教授」でもいいんだよ。嘘だと思うなら辞書引いてみな。
DBはやったことないんで質問には答えられなくて申し訳ない。
363:デフォルトの名無しさん
08/05/16 12:28:39
>>362
ご教授なんて日本語存在しませんがw
嘘だと思うなら「間違った日本語」とかでググってみな？w
あ、ゆとりさんに無理ですか そうですか
存在しないものを作りあげてしまうなんて
もうレベルが低すぎてこちらまで恥ずかしくなってきましたw
364:デフォルトの名無しさん
08/05/16 12:31:39
辞書を見て自分の都合のいい解釈する人に何を言っても。
365:デフォルトの名無しさん
08/05/16 12:33:54
それはいわゆる無知な「誤用厨」（まあ今俺が命名したんだけどw）が
勝手にそう言ってるだけ。
だから辞書引けって馬鹿。
ついでにその「誤用厨」が得意げに指摘する「確信犯という言葉の誤用」も
誤用じゃないんだよ本当は。
366:デフォルトの名無しさん
08/05/16 12:41:38
間違ったものを強引に正しいものにしようと必死な人がいると聞いて
飛んできますた
>>365
間違いを指摘されてるんだから、そろそろ悪あがきは止めて あきらめようぜ？ww
お前が馬鹿なのは十分分かったから、これ以上 墓穴掘るなよ
ご教授はどう考えても 存在しない日本語
日本人なら正しい日本語使え、プログラミングとかやる奴ならなおさら
367:デフォルトの名無しさん
08/05/16 12:44:29
あのなあ。
そもそも「教授」って言葉をポストに使う方が元々は派生的な用法だっての。
字面見ればわかるだろそんなの。
368:デフォルトの名無しさん
08/05/16 13:00:50
プログラムは正しくない命令文ではエラーが出るが、
「ご教授ねがう」は「ご教示いただく」のことだろうなってわかるだろ。
教えてやればいいだけでしょ。
お前らそんな固い頭でプログラミングとか向いてないんじゃね。
>>360
文章から、変数は配列じゃないと想定してレスすると、一気に変数に入れるのは不可能。
数が少ないならフィールド横に配置して１レコードにするとか。
ﾌｨｰﾙﾄﾞ1 | ﾌｨｰﾙﾄﾞ2 | ﾌｨｰﾙﾄﾞ3 |
----------
A | B | C |
変数に配列使ってループさせれば解決すると思うけどネ。
369:デフォルトの名無しさん
08/05/16 13:08:43
Function Nihongo_OK(ByVal str As String) As Boolean
Select Case Instr(str,"ご教授")
Case 0
Return True
Case Else
Return False
End Select
End Function
370:デフォルトの名無しさん
08/05/16 13:25:32
Debug.Print Nihongo_OK("あたご教授は素晴しい教授だ")
False
( ﾟДﾟ)
371:デフォルトの名無しさん
08/05/16 13:26:54
誰？
372:デフォルトの名無しさん
08/05/16 16:08:10
ご教授って存在しないの？
教授に対して
ご教授お願いしますってのもだめなの？
373:デフォルトの名無しさん
08/05/16 18:47:18
Private Sub CommandButton2_Click()
Dim mambo As Date
If Trim(mambo) = Null Then Exit Sub
mambo = UserForm1.ComboBox1.Value
Call search_light(mambo)
End Sub
上のプログラムで「mambo」という変数には時間が入る(or空白)のですが、
「mambo」が空白の時でも、プロシージャが終了してくれません。
「""」を使うとエラーになるし、エラートラップを使うしかないのでしょうか？
374:デフォルトの名無しさん
08/05/17 11:42:08
>>360
Recordset.GetRowsメソッドじゃだめ？
375:デフォルトの名無しさん
08/05/17 11:48:17
>>373
とりあえずDate型の初期値はNullじゃないよ
If mambo = #0:00:00# Then Exit Sub
376:デフォルトの名無しさん
08/05/17 12:38:58
ListViewのような行と列を持つコントロールに
テキストボックスやコンボボックスを表示されられるコントロール名ってなんでしょうか？
377:373
08/05/19 09:13:12
>>375
遅くなってすみません。
ありがとうございます
378:デフォルトの名無しさん
08/05/21 10:13:48
コンボボックスで起動直後に任意項目を選択済みにするには
ロードイベントにSelectedIndexで設定する以外に方法はありますか？
コンボボックスのプロパティには初期値を設定出来る項目はないようですし
379:デフォルトの名無しさん
08/05/21 12:20:53
初期値を設定すべき実行部分で初期値を設定する以外に方法はないと思う
380:デフォルトの名無しさん
08/05/22 18:10:29
msgboxで表示される文字のフォント指定はどうやるのでしょうか？
381:デフォルトの名無しさん
08/05/23 03:09:51
そりゃあコントロールパネルからだ
382:デフォルトの名無しさん
08/05/26 17:14:46
URLﾘﾝｸ(jeanne.wankuma.com)
↑のクラスライブラリをVBで使おうとしても
この引数を受け付ける New がないためオーバロードの解決に失敗しました というエラー出て
インスタンス化出来ないです、なぜですか？
参照設定でDLLを読み込んで
Dim ini As New Jeanne.Ini.IniFile
のコードを書きました
383:デフォルトの名無しさん
08/05/26 17:51:30
>>382
どうみてもC#だが誤爆か？
それともそれをDLL化したものが「VB6以前」で使えないといってるのか？
後者ならあたりまえなので、COMのラッパークラス書いてレジストリ登録しなさい。
384:デフォルトの名無しさん
08/05/26 19:10:45
>>383
やっぱりVBで他言語のdllはコーディングし直さないと使えないのですか
VCで書いたライブラリをVBで利用するための詳しい解説付きサイトがあったので
C#のもいけるかなと思ったのですが
385:デフォルトの名無しさん
08/05/26 19:39:03
つか、inifile読み書きクラスって、車輪の再発明もたいがいにしろって感じ
386:デフォルトの名無しさん
08/05/26 23:28:12
>>384
「VC#で書いたライブラリをVBで利用するための詳しい解説付きサイト」を探して読め
387:デフォルトの名無しさん
08/05/27 10:49:51
ファイルAとファイルBのCSVファイルの内容を比較するプログラムを作る時
みなさんならどうしますか？
自分はまだ知識が乏しいので
それぞれのファイルをSystem.IO.StreamReaderを使ってオープンして
一行読み込むたびに,区切りのデータをArray変数にsplitで代入して
GetUpperBound(0)で最大を把握しながらArrayの各値を比較しています
先に全部のデータを変数かデータベースに読み込んでから比較したら
比較速度はかなり増しますか？
388:デフォルトの名無しさん
08/05/27 11:01:04
Dim tmp1(),tmp2() as string
Dim CSV1 As New System.IO.StreamReader(ファイル1, System.Text.Encoding.Default)
Do Until CSV1.Peek() = -1
tmp1 = Split(CSV1.ReadLine(), ",")
Dim CSV2 As New System.IO.StreamReader(ファイル2, System.Text.Encoding.Default)
Do Until CSV2.Peek() = -1
tmp2 = Split(CSV2.ReadLine(), ",")
''''ここに比較処理
Loop
CSV2.Close()
Loop
CSV1.Close()
>>387 実際のコードはこのような感じです
比較処理時間を短縮出来るもっと効率の良い方法があればご教示お願いします
389:デフォルトの名無しさん
08/05/27 11:22:21
>>387
.NETの話題ならスレチだが。
VB6以前なら
Dim FSO As Scripting.FileSystemObject
Dim sFileA As String
Dim sFileB As String
Set FSO = CreateObject("Scripting.FileSystemObject")
sFileA = FSO.GetFile(FileAのパス).OpenAsTextStream(ForReading).ReadAll
sFileB = FSO.GetFile(FileBのパス).OpenAsTextStream(ForReading).ReadAll
Set FSO = Nothing
If sFileA = sFileB Then
MsgBox "同じ"
Else
MsgBox "違う"
End If
ってやるとめっちゃ早いけど。
行単位比較だったら取得したファイル内容を、
SplitでvbNewLineを区切り文字にして配列ゲットしてループ＆比較かなぁ？
それにしても携帯でコード書くと疲れるな。
390:デフォルトの名無しさん
08/05/27 11:42:36
比較してどこが違うか具体的に示す必要があるなら、それでいいんじゃない
ただ異なっているかどうかだけでいいならバイナリで読み込んで比較するけど
391:デフォルトの名無しさん
08/05/27 11:49:22
>>390
その手があったか＞バイナリ
392:デフォルトの名無しさん
08/05/27 11:56:42
>>389-390
ありがとうござます
>比較してどこが違うか具体的に示す必要があるなら
やろうとしてることがまさにそれなので>>387の方法で比較するしかなさそうですね
みなさん、とても助かりました
393:デフォルトの名無しさん
08/05/27 16:02:59
まずはファイルのサイズを比較して異なっていたら別物、同じなら中身を調べる、って処理を入れるのもアリだ
394:392
08/05/27 19:38:04
DoEventをやめて
BackgroundWorkerで完全なマルチスレッドにしたら
処理速度にかかる時間が以前の半分くらいと かなり早くなりました
マルチスレッド化はロジックが結構複雑で
今までやりたいなと思いながらも結局はDoEventで代用してましたが
やってみたら意外と簡単でいい勉強になりました
395:デフォルトの名無しさん
08/05/27 19:43:13
ループにDoEvent入れてたってオチじゃないだろうな
396:デフォルトの名無しさん
08/05/27 20:27:52
細かいようだが訂正
× DoEvent
○ DoEvents
397:デフォルトの名無しさん
08/05/27 20:51:27
>>394
スレタイにいいかげん気づこうな
398:デフォルトの名無しさん
08/05/27 22:30:43
携帯プログラミング
テキストボックス１に文字が出る
ボタン１２個
ボタン１（１）
ボタン２（２、Ａ，Ｂ，Ｃ）
ボタン３（３、Ｄ，Ｅ，Ｆ）
・・・
ボタン９（９、Ｗ，Ｘ，Ｙ，Ｚ）
ボタン１０（*）入力画面を初期化
ボタン１１（０）
ボタン１２（＃）同じ文字・数字をつづけて入力できる
多いですがプログラミングコードを教えてください。
本当によろしくお願いします。
399:デフォルトの名無しさん
08/05/27 22:33:39
>>398
ここは宿題スレではありません
400:デフォルトの名無しさん
08/05/28 00:20:58
>>398
そんな簡単過ぎるコードも書けないのか今時の学生って
ホントに勉強してるの？
401:デフォルトの名無しさん
08/05/28 01:40:47
グーグルツールバーみたいに入力候補がでるテキストボックス作りたいんだけどどうやるのがいいんだろう
検索対象の件数が増えると使い物にならないようなのしか作れん・・
402:デフォルトの名無しさん
08/05/28 01:44:56
候補の用意ができたとして、
表示する部分は、シェルにIAutoCompleteなどというものがあるらしいが、
VBから使えるのかどうかわからない、すまん。
403:デフォルトの名無しさん
08/05/28 03:17:40
>>401
ユーザーコントロールでコンボボックスとセットにして、
入力されたらリストだけドロップして見せればいいんじゃね
404:デフォルトの名無しさん
08/05/28 12:54:04
環境はWindowsXP PRO SP3 WSH5.7です。
以下のコードを実行すると、"1 2 ... 19 20"という結果になります。
For i = 01 To 20
j = j & " " & i
Next
WScript.Echo j
実行結果が、"01 02 ... 19 20"となるようにするには、
どうすれば良いでしょうか？
405:デフォルトの名無しさん
08/05/28 13:54:53
やらんとすることはゼロサプレス無しの２桁化でいいのか？
j=j+" "+format(i,"00")
ところでjの初期化は？
406:デフォルトの名無しさん
08/05/28 14:31:56
For i = 101 To 120
j = j & " " & mid(i,2)
Next
WScript.Echo j
407:デフォルトの名無しさん
08/05/28 16:04:31
>>405
レスどもです。VBSではformatが無いようで動きません。
FormatNumberとかはあるんですけど欲しい動作はなくて。
>>406
こういうトリッキーなやり方があるんですね。動きました。ありがとうございます。
408:デフォルトの名無しさん
08/05/28 20:13:51
ゼロパディングって言え
409:デフォルトの名無しさん
08/05/28 21:52:39
失礼な
tricky
────────
形 ①ずるい,こうかつな
②手のこんだ,扱いにくい,巧妙な
410:デフォルトの名無しさん
08/05/28 22:58:24
VBScriptはスレ違いのような
411:デフォルトの名無しさん
08/05/28 23:19:34
>>410
くだらんレスをするな。モレモナー
412:デフォルトの名無しさん
08/05/29 08:27:54
うんスレチガイだね
413:デフォルトの名無しさん
08/05/29 08:55:59
パディングとサプレスの区別が付いていない奴の居るスレはここですか？
414:デフォルトの名無しさん
08/05/29 09:03:46
VS2008のC++に移行しようと思って少しさわってみたけど
コマンドの候補を表示してくれるインテリセンス機能ってないのか・・
さらに敷居が高くなった
415:デフォルトの名無しさん
08/05/29 10:33:35
>>410-412
>>1
416:デフォルトの名無しさん
08/05/29 13:40:32
Right("0" ＆ i, 2)とかやらない？
417:デフォルトの名無しさん
08/05/29 14:30:56
Right(100+i, 2)
418:デフォルトの名無しさん
08/05/29 18:14:03
>>417
ふいたｗｗｗｗｗｗｗｗ
どうしても数値でやりたいのかｗｗｗｗｗｗｗｗｗｗ
419:デフォルトの名無しさん
08/05/29 18:42:16
>>417
それだと14桁で限界くるだろ
420:デフォルトの名無しさん
08/05/29 18:50:50
でもありだな
>>416だろｊｋくらいしか思わなかった
421:デフォルトの名無しさん
08/05/29 20:35:30
trickyだね
422:デフォルトの名無しさん
08/05/29 22:28:35
VBで標準出力に出力ってどうやるんですか？
423:デフォルトの名無しさん
08/05/29 22:52:10
ぐぐれ
424:デフォルトの名無しさん
08/05/30 00:53:16
ProgressBarを描画させながらその上でラベルを使って進行状況の%表示をさせると
ラベルの背景が透明にならず不格好なので
PictureBoxの疑似プログレスバーで 背景をDrawStringで透明にして%の文字を描画させたら
通常のプログレスバーよりとてつもなく描画処理が遅くなってしまい困っています
プログレスバーの上に 進み具合を背景透明な文字で%表示させても高速に描画させる
いい方法はないでしょうか？
425:デフォルトの名無しさん
08/05/30 01:28:04
オーナードローで文字を置けば？
426:デフォルトの名無しさん
08/05/30 01:40:29
プログレスバーの上にラベル表示ってどうやるの？
配置してみたら下になっちゃうんだけど・・
427:424
08/05/31 10:25:49
カスタムプログレスバーで ものすごく良いサンプルがありました
URLﾘﾝｸ(www.codeproject.com)
これバーの部分にオリジナル画像使えたり色々なところが調整出来てスゴイです
でもやはりプログレスバーと処理時間比較してみると
何倍か時間がかかりますね、負荷を減らしつ表示するにタイマー使えばいいのかな
428:デフォルトの名無しさん
08/05/31 10:28:55
修正
>でもやはりプログレスバーと ×
>でもやはり標準のプログレスバーと ○
429:デフォルトの名無しさん
08/05/31 12:05:01
>>427
確かにそのサンプルすごくいいな
ただのプログレスバーがそこまで自由にカスタム出来るとは思わなかった
430:デフォルトの名無しさん
08/05/31 12:30:27
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'ｘ２乗値を計算して、書き出すだけの問題
Dim intA, intB, intC, intD, intN1, intN2, intM1, intM2, intT As Integer
intA =
intB =
intC =
intD =
intN1 =
intN2 =
intM1 =
intM2 =
intT =
TextBox9.Text =
'この問題で使う関数は絶対値を求めるMath.Absだけ
End Sub
visual basic 2003 です。＝の後に入る答え教えてください。
431:デフォルトの名無しさん
08/05/31 13:05:08
断る
432:デフォルトの名無しさん
08/05/31 13:11:49
なにその低レベルな宿題
433:デフォルトの名無しさん
08/05/31 14:40:57
スレタイが読めないレベルの人になに言っても無駄
434:デフォルトの名無しさん
08/06/05 11:29:07
VB6で文字を書くとき、OSのアンチエイリアス無効にすることってできる？
435:デフォルトの名無しさん
08/06/09 14:26:05
あと１年半でWindows7が出て、自作のVB6プログラムが動かなくなりそうなので、
VC++に移植作業を始めたけど、案外するすると移植できるもんだね。
VBではClassモジュールとFormしか使わなかったからかな。
C++は配列の代わりにvectorが使えるから楽だね。
436:デフォルトの名無しさん
08/06/09 14:27:45
Windows7だとVB6は動かないの？
437:デフォルトの名無しさん
08/06/09 14:39:25
MSが、VB6のコンパイラはもうサポート外
つくったEXEはVistaまではサポートに努力するが、それももう終わり
って事だろ
438:デフォルトの名無しさん
08/06/10 00:29:10
あと1年半じゃ新しいOSは出ないと思うぞ。まVistaみたいに1年間も有料ベータテストを
やるっていうのなら可能性はなくもないけど。常識的には2012年ごろかな？
439:デフォルトの名無しさん
08/06/10 10:46:22
じゃあVB6で作られたシステム使い続けてる多くのユーザーさんから
爆発的な量の案件がやってくるってことになるのかな？
新しいＯＳ出た途端にってことは無いだろうけど。
動作テストして、VB6のシステムが動かなかったら
そもそもＯＳ変えないかもだけどｗ
440:デフォルトの名無しさん
08/06/10 11:24:53
Vistaにしたら動かなくなったソフトなんてよく聞くだろう
VB6でもなんでも、ディレクトリ決め打ちとかせずにきちんと書けば、次のOSでも動くかと
MSがVBランタイムを次のOSで殺せば全滅だが
441:デフォルトの名無しさん
08/06/10 11:45:27
VB6.0 SP6 なんですが、A dministrator権限のないユーザから
OCXを使用することはできるでしょうか？
レジストリに登録せずに参照する方法があれば教えてください
442:デフォルトの名無しさん
08/06/10 12:00:40
コレクションについて質問です。
キー文字列からインデックスを得る事は可能でしょうか？
443:デフォルトの名無しさん
08/06/10 17:41:20
ＶＢＡで素数判定するプログラムを作らなきゃいけないのですが、作り方が分かりません。
フォームは作れるんですが。。
どうやって作ればいいのでしょうか？
誰か教えて下さいませ。
444:デフォルトの名無しさん
08/06/10 17:57:57
>>443
素数判定がわからないのか
ＶＢＡがわからないのか
ＶＢＡで再現する方法がわからないのか…
ＶＢＡだし
445:デフォルトの名無しさん
08/06/10 18:15:03
ＶＢＡはある程度分かるんですが、素数判定をＶＢＡで再現する方法がわからないです。
ｐｒｉｖａｔｅ ｓｕｍとかはわかります
446:デフォルトの名無しさん
08/06/10 19:06:15
宿題は自分でやりなよ
447:デフォルトの名無しさん
08/06/10 19:45:28
ここは質問スレだから聞いてるんです。。
448:デフォルトの名無しさん
08/06/10 20:02:41
Public Function 素数判定(数) As Boolean
If 数 Like "素数" Then
素数判定 = True
Else
素数判定 = False
End If
End Function
449:デフォルトの名無しさん
08/06/10 21:15:32
>>445
ｐｒｉｖａｔｅ ｓｕｍって何？
450:デフォルトの名無しさん
08/06/10 21:38:54
>>448
感動した
451:デフォルトの名無しさん
08/06/10 21:53:51
>>441
manifest使えばレジストリへの登録をせずにOCXを使える（XPから）。
URLﾘﾝｸ(www.microsoft.com)
452:デフォルトの名無しさん
08/06/11 01:33:30
>>447
はいって何だよ。出来んのかよ。さっきから何度も。何がはいなんだよ。
出来もしねえ奴が軽々しくはいなんて言うんじゃねえよ。
わかってんのかよ。はいって言う事の責任の重さを。
社会勉強のつもりでやってんだったら辞めろおまえ。
453:デフォルトの名無しさん
08/06/11 01:41:32
素数判定ｗｗｗｗ
そのくらい自分で書くかググれよｗｗｗｗｗ
サンプルソース結構多いのにアホかとｗｗｗｗｗｗ
…って宿題か。
ここは宿題スレではないからスレチだな。うんうん。
454:デフォルトの名無しさん
08/06/11 09:18:44
VistaでVB6の環境立ち上げるとOLEレジストリへのアクセスエラーですってメッセージが
毎回表示されるんだけど回避方法ありませんかね？
その後は普通に動作するんだけど気分悪いよ。
455:デフォルトの名無しさん
08/06/11 11:46:00
VB6ってXPにすら対応してないのに
456:デフォルトの名無しさん
08/06/11 12:15:15
「OLEレジストリへのアクセスエラー VB6」sw\\でぐぐった１つめ
URLﾘﾝｸ(blog.heiichi.com)
457:デフォルトの名無しさん
08/06/11 13:00:20
>>455
( ﾟДﾟ)ポカーン
458:デフォルトの名無しさん
08/06/11 19:25:39
>>456
ありがとう。
やってみます。
459:デフォルトの名無しさん
08/06/12 13:08:35
>>443
で、宿題はできたかい？
添削ぐらいならしてやるよ
460:デフォルトの名無しさん
08/06/12 16:05:25
メニューバーの「表示」からコマンドとデザイナの項目が消えて、ファイルを
読み込んで続きをデザイナで作成することができなくなってしまいました。
どうしたらデザイナ画面を復活させられるのでしょうか？
461:デフォルトの名無しさん
08/06/12 16:42:55
>>460
メニューバーから開いたことがない俺ですこんにちは
俺はいつもプロジェクトエクスプローラから開いてるなぁ
462:デフォルトの名無しさん
08/06/12 22:05:02
MSflexgridで一番上と下の行を固定させる方法を誰か教えてー(;_;)
463:デフォルトの名無しさん
08/06/14 00:48:17
XMLHTTPでリクエストするときって、ポート80じゃないの？
464:デフォルトの名無しさん
08/06/16 15:22:25
あるデザインから他のデザインへクリック１回で飛べるようにしたいのですが、
リンクラベルのどの項目をいじって配置すればいいのかよくわかりません。
どうすればできるようになるのでしょうか？ 教えてください。
465:デフォルトの名無しさん
08/06/16 16:01:34
先にシャワー浴びて来いよ
466:デフォルトの名無しさん
08/06/16 16:59:48
WinXPでVB6.0+ｸﾘｽﾀﾙﾚﾎﾟｰﾄでの開発をしています。
ｸﾘｽﾀﾙﾚﾎﾟｰﾄのﾊﾞｰｼﾞｮﾝは何が正しいのか不明ですorz
とりあえず既存ｿｰｽを動かしたいがCRPEAutoでｺﾝﾊﾟｲﾙｴﾗｰを起こします。
ｸﾘｽﾀﾙﾚﾎﾟｰﾄはﾊﾞｰｼﾞｮﾝ不明ながらｸﾘｽﾀﾙﾚﾎﾟｰﾄ9をｲﾝｽﾄｰﾙしました。
Crystal Reports 9 ActiveX Designer Runtime Libraryを参照したが解決しません。
ｺﾝﾊﾟｲﾙｴﾗｰなので参照を指定すれば良いと思ったのですが根本的に勘違いしてますか？
何か参照する対象を間違えてますか。
467:デフォルトの名無しさん
08/06/16 20:22:31
>>466
GrapeCityのActivereportをかいなよ。
468:デフォルトの名無しさん
08/06/16 23:47:14
>>466
一度、元々のﾌﾟﾛｼﾞｪｸﾄﾌｧｲﾙ(*.vbp)をﾃｷｽﾄｴﾃﾞｨﾀで開いてみると良いかと。
469:デフォルトの名無しさん
08/06/16 23:50:51
ｘｘ
470:468
08/06/16 23:55:09
いちおう説明追加しとくと、
「Reference=～」となってるのが、参照設定
「Object=～」となってるのが、コンポーネントね。
471:デフォルトの名無しさん
08/06/17 00:00:16
昨晩、車で猫を轢いちまったばっかりなんでな・・・・
頭がタイヤの下に入っちまったようで、ゴリッと鈍い音がした・・・
たぶん即死だったと思われ。気のせいか眠るときに「ニャ」という声が聞こえた。
今日も聞こえるかと思うと恐くて恐くて・・・もうorz
472:デフォルトの名無しさん
08/06/17 00:18:36
……ぉ…ま……ぇ………ヵ……
473:デフォルトの名無しさん
08/06/17 01:50:46
……ヵッォ……
474:466
08/06/17 10:44:45
> 467
たぶん、予算がありませんorz
> 468
ありがとうございます。
参照しているdllに関しては同一名(パスは違った)を参照しているので問題はないはずなのですが
もうちょっと頑張ってみます。
475:デフォルトの名無しさん
08/06/17 11:10:20
無駄にしている時間、日数の給料分を考えれば買ったほうがいい場合もある
予算の効果も考えろ
476:デフォルトの名無しさん
08/06/17 12:24:35
>>475
会社の実態を知らないなんで無職の方ですか？
問答無用で稟議が通らないなんてザラですが？
477:デフォルトの名無しさん
08/06/17 12:29:08
クリスタルレポートって重くねーか？
改良試作費で買ったけど使い物にならないんで放置。
どうせ捨てるんでよければあげるよ。
これが使える用途って元々かなり大きくて思いシステムで
帳票系の負荷が表に出て来ないようなシステムだろうな。
軽量化が望まれる俺たちのプロジェクトでは到底使えない。
478:デフォルトの名無しさん
08/06/17 12:33:40
>>476
馬鹿な会社に勤めてるんですね
恥ずかしくないですか？
479:デフォルトの名無しさん
08/06/17 12:38:48
>>478
会社が馬鹿なんじゃなくて、稟議が通るように根回しできない奴が馬鹿なのでは？
俺なんて秘書課の姉ちゃんとデキてるからやりたい放題だぜ。
480:デフォルトの名無しさん
08/06/17 13:30:57
ﾌﾟﾛｼﾞｪｸﾄの予算や納期などもわからない物件に対して、ああだこうだと
言うことになんか意味があるのか？
481:デフォルトの名無しさん
08/06/17 13:34:53
今話してるのは概念的なことだろうよ？
何もプロジェクトの詳細を知る必要はないだろう？
482:デフォルトの名無しさん
08/06/17 13:36:50
問答無用ですか
馬鹿ですね
483:デフォルトの名無しさん
08/06/17 13:38:02
何もかも「馬鹿」という言葉で集約するのはよろしくない。
それこそ「何とかの一つ覚え」と言われてしまうよ？
484:デフォルトの名無しさん
08/06/17 13:39:17
>>482
劣勢だなｗｗｗ
485:デフォルトの名無しさん
08/06/17 13:41:17
>>475-476,478-479
お前らの会話がVB(6.0以前)製煽りプログラムならいいが、
そうでないならスレ違いだ。
486:デフォルトの名無しさん
08/06/17 13:41:55
集約できてしまうんだよな
馬鹿は馬鹿でしかない
487:デフォルトの名無しさん
08/06/17 13:43:38
>ｸﾘｽﾀﾙﾚﾎﾟｰﾄはﾊﾞｰｼﾞｮﾝ不明ながらｸﾘｽﾀﾙﾚﾎﾟｰﾄ9をｲﾝｽﾄｰﾙしました。
何気に見落としたが、この行為って超怒級の大馬鹿じゃね？
どう考えてもやることがプロじゃねぇよｗｗｗ
488:デフォルトの名無しさん
08/06/17 13:44:35
>>481
ああ、レスの流れを読み返したらそうだった。orz
「一考の余地がありますよ」→「実態も～」？
ってことね。
489:デフォルトの名無しさん
08/06/17 13:46:05
ちょっと冷静になろうぜ。何に対して怒ってるのか明確にしてくれ。
まずはｸﾘﾚﾎﾟのＡ君からどうぞ。
490:デフォルトの名無しさん
08/06/17 13:52:44
まずは俺がCrystal Reports ActiveX のバージョンを明確にしてやろう
プロジェクトファイルをエディタで開いてOｂｊｅｃｔ =から始まる文を全部コピーしてここに貼り付けてみなよ。
491:デフォルトの名無しさん
08/06/17 13:54:39
>>490
たぶん、プロジェクトファイルがどれかもわからない素人かと．．．
492:デフォルトの名無しさん
08/06/17 13:57:17
>>466
よく読み返したら素人だな。よくもまあみんな釣られたもんだなｗ
493:デフォルトの名無しさん
08/06/17 13:59:31
>>490
ActiveXの自動アップデート機能で既に書き換わってると見た。
実行環境の方は互換が保障されていれば上位のコンポーネントでも動くのだが、
開発環境の方はバージョンは絶対変えたらいけない。
実際無闇にパッチや他のソフトも入れられないことがあるのだ。
494:デフォルトの名無しさん
08/06/17 14:02:16
>>493
いや、もちろん>>468が言うようにオリジナルのをという意味だ。
素人だからオリジナルをそのまんま使ってしまったかも知れないがなｗｗｗｗ
俺たちプロは絶対にそんな過ちをしないもんだぜ。
495:デフォルトの名無しさん
08/06/17 14:04:40
>>493
俺はＬＥＡＤＴＯＯＬＳで酷い目に遭った事がある。
ＧＵＩＤは同じでバイナリ互換なのにメソッドの仕様を変えてきやがった。
普通。インタフェース仕様を変えたらＧＵＩＤを変えるもんじゃないのか？ＯＣＸは
それ以降、恐くてアップデートできなくなった。
496:デフォルトの名無しさん
08/06/17 14:12:21
>>495
バイナリ互換にしなかった場合を考えればわかると思うが？
プロジェクトの変換でもしない限り新しいバージョンに差し替えられなくなる。
実際にはOCXの製品バージョンアップでもない限りGUIDは変更されないものだ。
497:デフォルトの名無しさん
08/06/17 14:15:36
ﾊﾟｯﾁ毎に挙動が変わるBocSpreadSheetと共存してた俺は、もはや菩薩だな。
498:デフォルトの名無しさん
08/06/17 14:19:36
>>497
Spreadは2～7まで使って来たがバージョン内ではそんなに大きな仕様変更はなかったぞ？
まあ確かに若干の挙動の変化はあったが俺としては許せる範囲だった。
そんなことを言ってたらＬＥＥＤＴＯＯＬＳなんて絶対に使えないぞ。
同一バージョン内でリペイントの仕様を変えられて、全フォームで画像が表示しなくなったんだから！
びびるよまったくｗｗｗｗ
499:466
08/06/17 14:21:47
えっとですね、VBPではｸﾘﾚﾎﾟ9を参照してるんですが、11を使えと言われるようなﾌﾟﾛｼﾞｪｸﾄです。
だからとりあえずｸﾘﾚﾎﾟ9を入れたんですよ。
既存ｿｰｽを動かして大枠を理解したいので。
後は基本仕様書はないけど詳細設計書だけがあるとか、
でも詳細設計書もまともに書かれてないです
過去にﾌﾟﾛｼﾞｪｸﾄに関わった人が辞めていないor忙しすぎてどこにいるのかも分からん
という形なので困ってるという所です。
VBに関しては素人なんですが(一応7年この業界にいます、仕事でVBを触ったのは3ヶ月程度)
基本Javaﾒｲﾝでやってて今回火消し要員で途中から入れられた、
このﾌﾟﾛｼﾞｪｸﾄに関わってる人間が1年目～2年目の人間だけ。
環境設定手順書にも一切記述なし。
俺にどうしろっちゅうねん!!(来月退職届出す予定)
500:デフォルトの名無しさん
08/06/17 14:27:07
>>499
それはデザインとランタイムのバージョン不一致やん。
CRはそれが現実として起こり得るから恐いんだよね。
501:デフォルトの名無しさん
08/06/17 14:29:20
>>499
どおりで素人臭いわけだな・・・
最初からそこまで詳しく書いていれば荒れずに済んだものを・・・
クリレポ使いのおいらにはもう解決の方法は概ねわかったよ。
ちょっと面倒くさいがやってみるか？
502:デフォルトの名無しさん
08/06/17 14:31:17
それこそ、vbpのテキストを貼り付けたらいいじゃないの。
コンパイルエラーが出るような場合、多くは「古いVer」だし。
「とりあえず」って言葉が誤解を招いているのに気付いてる？
503:デフォルトの名無しさん
08/06/17 14:32:27
>>502
まあまあ、相手はJava使いでVB素人さんだ。もっと優しくしてやろうぜ！
504:デフォルトの名無しさん
08/06/17 14:35:35
>>499
それなら9じゃなくて11をインストールするだろ普通は？
505:デフォルトの名無しさん
08/06/17 14:37:36
おそらく11をインストした環境で9で設計したんだろうよ？
506:デフォルトの名無しさん
08/06/17 14:38:57
ランタイム配布する時にどうするつもりなんだろ？？？
おそろしやおそろしや・・・
507:466
08/06/17 14:47:46
言葉不足でした、申し訳ありません。
VBPからReference部分を抜き出しました。
4行目の指定からｸﾘﾚﾎﾟ9を使うべきなのか？と思っていました。
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\..\..\WINDOWS\system32\stdole2.tlb#Standard OLE Types
Reference=*\G{EE008642-64A8-11CE-920F-08002B369A33}#1.0#0#..\..\..\..\..\..\..\..\WINDOWS\system32\MSRDO20.DLL#Microsoft Remote Data Object 1.0
Reference=*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#..\..\..\..\..\..\..\..\WINDOWS\system32\DAO360.DLL#Microsoft DAO 3.6 Object Library
Reference=*\G{AF376990-6120-4E28-96DD-63FD2DC27B7A}#9.0#0#..\..\..\..\WINNT\system32\craxdrt9.dll#Crystal Reports 9 ActiveX Designer Run Time Library
VBP内の記述はどこまでならWeb上に出せる情報かも分かっていません。
すみません。
後は記述しなきゃいけないと思われる内容は
どうもDBから直接データを抽出するのではなくて
一度MDBファイルに落としてそっからﾚﾎﾟｰﾄとして出してると見ています。
プロジェクト内にﾃﾞｻﾞｲﾅは存在しない。
その為にシステム共通のbasファイルがあってそこにCRPEAutoの記述がある。
ここでコンパイルエラーです。
過去に携わった人とちょっとだけ連絡取れて話が聞けたので
ｸﾘﾚﾎﾟ11をｲﾝｽﾄｰﾙしました、またDLLも使うべきDLL(貰えた)で上書きしました。
でもエラーが消えていない状況です。
また、孫受けな為環境の変更に口出し出来ません。
508:466
08/06/17 14:55:58
> 501
是非是非教えて下さい!お願い致します。
509:466
08/06/17 15:01:51
追記：11を入れた後に参照してるのは
Crystal ActiveX Report Viewer Library 11.0
Crystal ActiveX Report Viewer Export Library 11.0
Crystal ActiveX Report Viewer Web Report Source Library 11.0
の3つです。
510:デフォルトの名無しさん
08/06/17 15:04:08
>>508
以前、同じ問題に遭遇した事がある。そのときAGTechからもらった
CRPEAutoコンポーネント整合性修復ツールがあったと思うので探してみるよ。
ちょっと待ってて。
511:デフォルトの名無しさん
08/06/17 15:06:02
環境が無いから、なんともいえないけど、コンパイルエラーが出るオブジェクト
または、メソッドについて、どもようなえらーが出るかで、対応は変わると思います。
エラーの内容（大事だよね）も必要かと。
512:511
08/06/17 15:08:31
「どもような」？orz
まあ、そんな感じです。
513:466
08/06/17 15:09:09
Oｂｊｅｃｔ =に関してはｸﾘｽﾀﾙﾚﾎﾟｰﾄ関連は参照していないと思います。
システム固有のocxも入ってますので晒すとまずそうなんですが・・・
ﾏｲｸﾛｿﾌﾄ系が2つ、ｽﾌﾟﾚｯﾄﾞｼｰﾄ用が1つ、後はシステム固有が2つという状況です。
514:デフォルトの名無しさん
08/06/17 15:10:15
セクションとかじゃなくアプリケーション、たとえば
Dim app1 As CRPEAuto.Application
の段階でエラーが出ると理解してるが？違ったりして・・・
515:466
08/06/17 15:13:21
失礼しました。
ｴﾗｰ内容は以下です。
ｺﾝﾊﾟｲﾙｴﾗｰ:
ﾕｰｻﾞ定義型は定義されていません。
516:466
08/06/17 15:17:10
514の方の理解で合ってると思います。
ｿｰｽ内の
Dim XXX As New CRPEAuto.Application
上記部分がｴﾗｰﾒｯｾｰｼﾞが表示された時に青くﾏｰｷﾝｸﾞされます。
VBももうちょっと触っとけば良かったorz
517:デフォルトの名無しさん
08/06/17 15:17:20
>>515
エラー発生行の内容（コード）は？
518:デフォルトの名無しさん
08/06/17 15:17:25
参照設定、コンポーネント、または、バージョン不一致だな。
DLLだけ持ってきてﾎﾆｬﾎﾆｬしたなら別だが…
519:466
08/06/17 15:24:42
> 517
515で記述したﾒｯｾｰｼﾞ以外は表示されていません。
ｴﾗｰ発生行のｺｰﾄﾞは516に記述している通りです。
どの参照をチェックすれば良いのか分からず
ｸﾘﾚﾎﾟ関係の参照を全部チェックしてみたり、
ｺﾝﾎﾟｰﾈﾝﾄを全部チェックしてみたりしたのですが駄目でした。
どっか根本的な所で勘違いしているのかもしれません。
520:デフォルトの名無しさん
08/06/17 15:32:21
まさかとは思うが CRPEAuto.dll がレジストされていないんじゃないのか？
regsvr32 CRPEAuto.dll はやってみた？それでエラーにならない？
521:デフォルトの名無しさん
08/06/17 15:39:13
クリーンな環境でCR11をインストして、Dim XXX As New CRPEAuto.Applicationが正常に
実行できる環境を作って、下のツールを使って CRPEAuto.dllとコンポーネントとの依存性を
確認してみたら？
URLﾘﾝｸ(www.programmersheaven.com)
それを現在の環境とで比較すれば、原因がわかるはず。
522:466
08/06/17 15:40:19
> 520
regsvr32 CRPEAuto.dllはやっていません。
CRPEAuto.dllというdllファイルがないのですが、
こちらはCRPEAuto.dllというファイル名のファイルが存在しなくても実行可能ですか？
523:デフォルトの名無しさん
08/06/17 15:45:16
>>522
お前は何を言っているんだ
524:466
08/06/17 15:47:12
貰ったdllはｸﾘｽﾀﾙﾚﾎﾟｰﾄ11の
\Common Files\Business Objects\3.0\crystalreportviewers11内にある
ActiveXControlsをフォルダ事上書きしてくれと言われたので上書きました。
フォルダ内にはcab、dep、dll、oca、ocxが入ってました。
525:デフォルトの名無しさん
08/06/17 15:52:25
>>524
上書きしただけでレジストしてないのか？
レジスト内容は9の当該コンポーネントのままだったり？
JAVAとは違うんだぞｦｲ
526:デフォルトの名無しさん
08/06/17 15:53:27
>>522
＞CRPEAuto.dllというdllファイルがないのですが、
もしかして壮大な釣りだったの？
527:466
08/06/17 15:54:06
> 523
ごめん、俺自身良く分かっていない。
URLﾘﾝｸ(home.att.ne.jp)
↑を見て
regsvr32 CRPEAuto.dllをコマンドプロンプトで実行してみた。
指定したﾓｼﾞｭｰﾙが見つかりませんと出てきた。
> 521
いまいち理解出来ていないが頑張ってみる。
俺テンパってるな・・・orz
もしかして、VBの場合のdllのファイル名が
CRPEAuto.Application
↑のここと一致するのか？
Javaのクラス名とファイル名を一緒にするとかとちょっと似たようなもの？
528:466
08/06/17 15:58:29
> 526
すまんが釣りのつもりはない!
VB素人でいきなり放り込まれて本当に訳が分かっていない。
Javaで例えてもらえると助かる。
Javaで言うと現在の状況はimport文の対象先が見当たらないから
ｺﾝﾊﾟｲﾙできないと怒られていて
import文の対象さえ見つかればどうにかなるんじゃないかな？
という認識だけど根本的に間違ってる？
529:デフォルトの名無しさん
08/06/17 15:58:52
>>527
Javaのアプレットは登録しなくても良いだろうが
OCXとか DLLはregsvr32で登録しないと参照できないんだよ。
君の環境ではCR9は登録されているのは間違いないが
CRPEAutoの構成こんぽーねんとはコピーされただけで登録されていない。
登録された位置に参照DLLが存在しないとレジスト自体ができないはず。
VB6は簡単だと思ったかも知れないが、一歩踏み込めばOLEオートメーション
という地獄が口をあけて待ってるのさ。君はその口の中にどっぷり入ってしまったわけよ。
おめでとうWWWW
530:529
08/06/17 16:00:11
単にDLLと言ったがActiveX DLLな。
もしかしてDLLが二種類あるのも知らないだろ？
531:デフォルトの名無しさん
08/06/17 16:11:12
>>466
お前が偉そうな態度で物を言ってたから少しはデキル奴だと思っていた。
今、それが大きな間違いであった事に気付いたｗ
532:466
08/06/17 16:15:21
> 529
えっと・・・やっぱりCR9をｲﾝｽﾄｰﾙしないといけなくて、
その後でCR9にあるCRPEAuto.dllというファイル名のファイルをregsvr32で登録しましょう
という理解であってますか？
CR9をｱﾝｲﾝｽﾄｰﾙしてCR11を入れてWindowsのファイル検索で「CRPEAuto.dll」を検索したけど出てこなかった。
DLLが2種類あるのは遠い昔に勉強した気がするが最近は一切触ってないので覚えていませんでした。
533:466
08/06/17 16:21:51
> 531
偉そうだったか・・・すんません!!
とりあえずVB素人なのは確定でお願いします。
プログラムを組んだのもこの業界に飛び込んでからで専門的に教えてもらった事もないorz
2chで技術的な質問をきちんとしたのは今回始めてで、
今まではググったり、自分で調べればどうにかなったのだが
今回は本当に何がなんだか訳分かっていないで準備期間も用意出来なかった。
534:デフォルトの名無しさん
08/06/17 16:26:13
>すんません
などとふざけた態度とる奴に、お前はどう接する？
535:デフォルトの名無しさん
08/06/17 16:29:20
>>466
お前の技量と目前にしている問題の大きさとがつりあわない。
困ったね。と、他人事だから軽く言うｗ
でも自分の問題だとしたらかなりやっかいだね。
正常に動いている時の状態があればまだしも
これじゃ複雑なパズルを解くようなもんだよ。
536:デフォルトの名無しさん
08/06/17 19:56:13
VB6 において
_DragDrop() について、対象オブジェクト上での発生時
およびそれ以外での発生時ごとの処理が行いたいのですが、
どうやら一括しての「それ以外」処理は行えない様子
それではと言うことで _MouseUp() 時に処理を行えばいいかと
思ったのですが、DragDropを「0 - 手動」にしたうえで
_MouseDown() 内で .Drag を発生させると
その後マウスを放しても _MouseUp() が生じません
なぜかダブルクリックを行うと2回目の放したタイミングで
_MouseUp() が発生します
これはどのようにすれば対応可能でしょうか
537:デフォルトの名無しさん
08/06/17 19:57:12
過去「VB初心者質問スレ Part4」において同じ悩みであろう
657 名前： デフォルトの名無しさん 投稿日： 01/12/27 16:22
Drag&Drop後のMouseUpイベントを取得する方法について教えて下さい。
具体的には．．．
DragModeを手動にし、MouseDows時にDragメソッド（引数 1）で
Drag&Dropを行うのですが、Drag&Drop後のMouseUpイベントが
取得できません。
フォーム外にDragされた場合に、イベントを取得できないので、
MouseUpであれば、フォーム外でもイベント取得できるので、
どうにかMouseUpを取得できれば良いのですが
と言うのがありましたがレスがなかったようでした
538:466
08/06/17 21:21:45
失礼しました、少し頭を冷やしてきます。
お騒がして申し訳ございません。
539:デフォルトの名無しさん
08/06/18 23:24:52
xpとvb5.0を使ってます
バイナリアクセスでファイルを読み書きしたいのですが・・・
レコード位置の指定方法がわかりません。
構造体に値を入れてから
putで入れてるのですが
そのときにレコードの位置をセットする方法がわかりません。
2番目のレコードを取得するにはどうすればいいのですか？
ここのやり方でほぼそのまま作ったのですが
URLﾘﾝｸ(support.microsoft.com)
seek(#1)とやるとエラーがでました
あと
if EOF(#1)=true thenも
記述エラーが出ました
Seekでビット位置を取得しようと思ったのですが他にやり方があるのでしょうか？
また
持ってる本には
PRecord.FName = String(StrSize," ")が
String＄
StrSize = Len(PRecord.FName)が
LenBだったのですが
それぞれの違いがわかりません
540:デフォルトの名無しさん
08/06/19 16:06:38
すみません。ピクチャーボックスを回転させるには
どうしたらいいでしょうか？
541:デフォルトの名無しさん
08/06/19 16:29:35
そんなものはないから相応のコード書け
542:デフォルトの名無しさん
08/06/19 16:51:48
PlgBltというAPIがありました。
543:デフォルトの名無しさん
08/06/20 00:35:54
>>539
なんだかよくわからない質問だけど、
seek(#1) → Seek(1)
EOF(#1) → EOF(1)
関数の「$」有無は、引数がNULL値の場合にNULLを戻すとか、エラーにするとか。
Lenは文字数、LenBはバイト数。
全部ヘルプに書いてある希ガス。
544:デフォルトの名無しさん
08/06/20 17:24:49
>466がかわいそうだ
今後こういうパターン増えていくんだろうな
545:デフォルトの名無しさん
08/06/21 12:28:59
>>543
>>539は自分で晒したKBの内容すら読めてない
日本語できない子だから英語で教えてあげて
もしくはスルー推奨
546:デフォルトの名無しさん
08/06/21 16:33:11
VB6ってもう手に入らないんですか？
547:デフォルトの名無しさん
08/06/21 16:33:39
日本語出来ない以前にバイナリアクセスで次のレコードって…
548:デフォルトの名無しさん
08/06/21 16:51:38
>>547
クマーーー
549:デフォルトの名無しさん
08/06/21 17:23:01
>546
MSDN契約しな
550:デフォルトの名無しさん
08/06/21 17:25:16
おいくら？
551:デフォルトの名無しさん
08/06/21 21:48:21
URLﾘﾝｸ(direct.ips.co.jp)
ここによれば単体で160,800円、Open Business2年で67,157円x2=134,314円になる。
552:デフォルトの名無しさん
08/06/23 02:08:39
VB6の値段としては高いな
553:デフォルトの名無しさん
08/06/23 02:18:04
VB6などはMSDNから外されてなかったっけ？
持ってるから興味ないけどさ
554:デフォルトの名無しさん
08/06/23 02:22:41
JAVAを外してVB6.0だけ復帰してたはず
555:日立バキバキ高野くん祭り
08/06/23 19:50:18
1．日立製作所社員の高野くん（高野光弘）が会社を誹謗中傷して機密も漏洩
2．日立のユーザーにも「キチガイ」との障害者差別発言
3．日立製作所の企業イメージをバキバキにする
4．自身のサイトの『32nd diary』に掲載
5．日立製作所に通報される
6．あせって似顔絵削除
7．火に油を注ぐだけで所属する日本UNIXユーザ会にも通報祭り勃発
8．「給料泥棒」と説教される
9．「殺します」と殺人予告をして警察に事情を聞かれる←イマココ
高野光弘の行動
現在は、過去の記事を閲覧できなくして、「本日の日記はツッコミ数の制限を越えています」としています。
まずは、不愉快な思いをされた方々に謝罪するべきなのではないでしょうか。
高野光弘の発言
「まぁ、どこの団体もそんなにヤワじゃないので、平気なんですけども。
日本UNIXユーザ会が一番対応に慣れてる感じ。」
日本UNIXユーザ会が対応に慣れているか、みなさん確認してみてください。
連絡先
URLﾘﾝｸ(www.net.intap.or.jp)
556:デフォルトの名無しさん
08/06/23 21:26:58
536です
上記の件についておわかりになる方、いらっしゃいませんでしょうか
557:デフォルトの名無しさん
08/06/24 00:23:11
>>556
VBだけだと、無理なような気がします。
APIでドラッグ中オブジェクトのシステムメッセージを取ってみると、きちんと
マウスイベントは通知されているようです。
SetWindowLong、CallWindowProc などを調べてみてください。
上記のAPIを使う上での注意点としては、システムからVBの関数にコールバックさせるので、
後始末をきちんとしないと、動作が不安定になることがあります。
558:デフォルトの名無しさん
08/06/24 12:59:05
>557
参考になりました
APIを使わずに回避したかったのですが
仕様ならやむ無しです
ありがとうございました
559:デフォルトの名無しさん
08/06/29 16:04:13
VBScriptで質問があります。
HTMLのselectタグの中のoptionタグをボタンで押すことで、
消したり追加したりしたいんですが、innerHTML以下のようにしたのですが、
駄目でした。どこが悪いのでしょうか？お力を。
ちなみにサーバサイドはASPです。
Sub changeRadio(strFlg)
Dim strAti
Dim strNvidia
<%
Dim strA
Dim strB
Dim intCounter
For intCounter = 0 to rs.recordcount-1
if left(rsGPU.fields.Item("vchGPUName"),1)="A" then
strA= strA & "<option value=""""" & rs.fields.Item("intA") & """"">" & rs.fields.Item("vchA") & "</option>"
else
strN= strB & "<option value=""""" & rs.fields.Item("intB") & """"">" & rs.fields.Item("vchB") & "</option>"
end if
rs.movenext
Next
%>
strAA="<%=strA%>"
strBB="<%=strN%>"
if strFlg="A" then
document.formA.SelA.innerHTML=strAA 'SelAがselectタグです
else
document.formA.SelA.innerHTML=strBB
end if
End Sub
560:559
08/06/29 16:09:26
すいません、2行目訂正ですorz
>HTMLのselectタグの中のoptionタグをボタンで押すことで、
HTMLのselectタグをボタンで押すことでselectタグ内のoptionタグ
でした。
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
4276日前に更新/166 KB
担当:undef