VBプログラマ質問スレ（6.0以前） Part55

VBプログラマ質問スレ ..

669:デフォルトの名無しさん
10/04/24 08:36:17
>>668
意味は、うーんあんまないかもなｗ
描画エンジンを自前で作りたくないし、リッチテキストの処理は非常にめんどくさいのでパスしたいのさ。
俺がやるなら内部にIE一匹飼ってHTMLで表示を作る。CSS使って自由度高いし。
で、入力はフックしてHTMLに変換して制御とか。

670:デフォルトの名無しさん
10/04/24 09:05:00
入力部（カーソルなど）が問題だってのになにいってんの

671:デフォルトの名無しさん
10/04/24 09:18:24
>>603がすばらしいじゃん

672:デフォルトの名無しさん
10/04/24 09:23:00
笑えない冗談だ

673:デフォルトの名無しさん
10/04/24 09:26:10
URLﾘﾝｸ(www7a.biglobe.ne.jp)
これ使えない？

674:デフォルトの名無しさん
10/04/24 09:29:08
まあ>>603にはかなわないか

675:デフォルトの名無しさん
10/04/24 20:56:25
>>603みたいなやり方だと
日本語入力とか出来ないよね？
KeyDownやKeyPressイベントじゃIMEとかの日本語入力使えないよね？

676:デフォルトの名無しさん
10/04/24 21:29:22
え?どこに入力が?

677:デフォルトの名無しさん
10/04/24 21:33:29
IMEの制御くらいAPIでいくらでもできますよ

678:デフォルトの名無しさん
10/04/24 23:26:26
>>594のってエディタ作るんでしょ？>>603のってエディタになってなくね？

679:デフォルトの名無しさん
10/04/24 23:48:22
だからみんな相手してないんじゃん

680:デフォルトの名無しさん
10/04/25 00:54:56
まあRitchTextBoxを使うのが一番簡単だとは思う。
入力した文字にシンタックスカラーがリアルタイムで適用されるような
応答性の高いものは難しいと思うけど、以下の方針で作ればそれなりに
実用的なものはできるんじゃないか。

- テキストの解析とシンタックスカラーの適用は、タイマーを使って一定時間ごとに一行ずつ行う。

- 上記タイマーは、Changeイベントで起動し、全行の解析が完了時点で停止する。

- 行の解析は、タイマー起動時の現在行か、またはその1行上の行から開始する。

- 行番号表示は、左側にもう一つ別の行番号専用のRitchTextBoxを置いて実現する。

681:デフォルトの名無しさん
10/04/25 00:59:51
VB厨はコントロールに頼りすぎる

682:デフォルトの名無しさん
10/04/25 01:22:40
>>680
そんなアホな事をする位だったら自作したほうがラクだろ？

683:デフォルトの名無しさん
10/04/25 01:34:19
>>682（あと>>681)
またそういう寝ぼけた事を言う。
そう思うならやってみたら？
まあやってみなきゃ大変さが分からない時点で君がダメグラマなのは確実だな。

エディタの類はVBじゃなくても一から実装するのは難しい部類に入るプログラムなのに、
低レベルのコーディングにまったく向いてないVBでやったら気が狂うこと確実だわ。

しかし、エディタを書けるかって質問して舐めたこというかどうかで
ダメな奴を見分けられそうだよなw

684:デフォルトの名無しさん
10/04/25 01:43:30
寝ぼけた事を言ってるのは>>680（あと>>683)だが

685:デフォルトの名無しさん
10/04/25 01:46:04
682だけど、
以前やってみたから言ってんだよ。

686:デフォルトの名無しさん
10/04/25 02:37:31
やってるわけがない。
やってたら>>682みたいな戯言が言えるはずがない。
だからVB厨って言われる連中はダメなんだ。

687:デフォルトの名無しさん
10/04/25 02:42:33
ではお前が作ったRutchTextBoxを使ったエディタを見せてくれないか？
俺はリアルタイムの色変更とスクロール、文字位置制御で挫折したんだ
えらそうに言うくらいだから、できたんだろうな？

688:デフォルトの名無しさん
10/04/25 02:44:34
>>680
些細なことだけど
×RitchTextBox
○RichTextBox

689:デフォルトの名無しさん
10/04/25 02:44:38
技術的な難易度を指摘してるだけなのに、いつのまに俺がRutchTextBox（笑）
を使ったエディタを作ったことになってるんだろう。

訳がわからん。

690:デフォルトの名無しさん
10/04/25 02:45:22
>>687
些細なことだけど
×RutchTextBox
○RichTextBox

691:デフォルトの名無しさん
10/04/25 02:46:30
>>689
てめえが難癖つけてきたんじゃねえか糞野郎！！！！！

692:デフォルトの名無しさん
10/04/25 02:47:09
>>680
行番号表示って、編集してるほうのカーソル位置とかスクロールに合わせてスクロールさせるんだよね？
RitchTextBoxのスクロール量の取得・設定てどうやるの？

693:デフォルトの名無しさん
10/04/25 02:52:34
VB6のIDEだと編集中の行は色づけが解除されるよね

694:デフォルトの名無しさん
10/04/25 02:53:12
>>692
↓の454のサンプルの方法で可能なはずだと思った。
もう長いことVB6使ってないんで記憶が確かなら、だけど。
URLﾘﾝｸ(web.archive.org)

695:デフォルトの名無しさん
10/04/25 02:53:44
解除されるのでもいいから、リッチテキストでやってみろよ

696:デフォルトの名無しさん
10/04/25 03:07:47
>>692
ごめん、君の文章を少し読み間違えてたようだ。
でも>>694のサンプルにはそれも一応載ってるな

697:デフォルトの名無しさん
10/04/25 04:06:19
OS、Windows2000じゃないんですけど

698:デフォルトの名無しさん
10/04/25 04:07:02
めちゃくちゃ重いサイトだな

699:デフォルトの名無しさん
10/04/25 04:33:29
>>692
API

700:デフォルトの名無しさん
10/04/25 07:27:25
GWはテキストエディタつくろーっと

701:デフォルトの名無しさん
10/04/25 23:25:04
別にあなたが何しようとどうでもいんですけど・・・＾＾；

702:デフォルトの名無しさん
10/04/25 23:30:53
気になるくせにーｗ

703:デフォルトの名無しさん
10/04/25 23:44:19
反応早すぎだろうｗ
気にしてるのがどっちか丸分かりじゃねーかｗ

704:デフォルトの名無しさん
10/04/25 23:52:19
一日中２ちゃんしてるからｗ

705:デフォルトの名無しさん
10/04/26 14:15:51
VB6でデータベースの列を追加する方法か、その内容をひっかけられるMSDNの語句を教えていただけないでしょうか。
.NETやC#ならすんなり当たるのに…世の中つらい。

706:デフォルトの名無しさん
10/04/26 14:17:14
alter tableするだけじゃねーの？

707:デフォルトの名無しさん
10/04/26 14:31:02
扱いは追加じゃなくて変更なのか…㌧。
ググるとそこそこあたるので探ってみる。

708:デフォルトの名無しさん
10/04/26 17:31:07
つうか、SQLの知識のほうじゃねぇか…

709:デフォルトの名無しさん
10/04/26 20:55:03
>>708
ああ、そうか…　って、VBでSQLなスレ見つけたけど、中身がわりと残念な進行してるねえ。
むこうで聞いて大丈夫だろうか？

710:デフォルトの名無しさん
10/04/26 21:29:41
DBはDB板へ

711:デフォルトの名無しさん
10/04/27 02:33:05
>>705
まずどうやってデータベースに接続してるのか？
まあ、DAO.TableDefかADOXを調べてみろ

つかここ見れば解決
URLﾘﾝｸ(msdn.microsoft.com)(v=msdn.10).aspx

712:デフォルトの名無しさん
10/04/27 18:50:25
VB6付属のMSDNライブラリのVBのLogの項目で

Static Function Log10(X)
Log10 = Log(X) / Log(10#)
End Function

ってあったんだけど、これってStaticつけられてるけど何か意味があるの？

713:デフォルトの名無しさん
10/04/28 12:07:17
実行速度が遅くなる以外は違いがない気がするな

714:デフォルトの名無しさん
10/04/28 13:22:42
インスタンス無くてもアクセスできる

715:デフォルトの名無しさん
10/04/28 14:01:46
なぜインスタンスが？

716:デフォルトの名無しさん
10/04/28 14:16:03
C++とは意味が違う

717:デフォルトの名無しさん
10/04/28 19:20:06
Property Let　とか Property Set は斬新だった

718:デフォルトの名無しさん
10/04/29 09:35:43
b() = Inet1.OpenURL(strURL, icByteArray)
でバイト配列にデータを格納したら
そのあとは
どんなプログラムを書けばハードディスクに記憶できるのか

719:デフォルトの名無しさん
10/04/29 10:30:15
ファイルを作って書き込めばいい。

720:デフォルトの名無しさん
10/04/29 11:18:24
>>718

b = Inet1.OpenURL(strURL, icByteArray)
fn=FreeFile()
Open "File.txt" For Binary As #fn
Put #fn, , b
Close #fn

721:デフォルトの名無しさん
10/04/29 11:32:29
ｻﾝｸｽ

722:デフォルトの名無しさん
10/04/30 01:06:10
またVB厨か
URLﾘﾝｸ(el.jibun.atmarkit.co.jp)

723:デフォルトの名無しさん
10/04/30 02:19:34
>>720
この方法のヤバさと言ったら
File.txtが既に存在していて
書き込むbのサイズよりファイルサイズが大きい場合だよね
超ヤバイ

724:デフォルトの名無しさん
10/04/30 05:57:50
なにが?

725:デフォルトの名無しさん
10/04/30 09:58:29
引き出したい言葉を普通に質問すればいいのに

726:デフォルトの名無しさん
10/04/30 15:25:44
>>723
サンプルにエラー処理の事でつっこむとかバカなの？

727:デフォルトの名無しさん
10/04/30 15:27:14
>>722
60年代前半生まれだしな

つうかSAPて言語・・・なのか？ｗ

728:デフォルトの名無しさん
10/04/30 17:33:14
>>726
エラー？

729:デフォルトの名無しさん
10/05/04 00:24:00
つい最近、Trueの値が-1である理由に気づいた。
もう１０年以上（まぁかなりの素人ではあるけれど）プログラミングに触れてきてるのにね。
２の補数のビットで表現してたって本当つい３日前に気づいた
Falseがビットが全部０に対してTrueはビットが全部１
ビットが全部１だと２の補数だと-1になるという・・・
ずっと昔から、何で1じゃなく-1なんだろうと思ってた・・・その疑問がやっと解決した・・・

730:デフォルトの名無しさん
10/05/04 00:39:23
全部0とそれ以外
それだけだと思うんだ

731:デフォルトの名無しさん
10/05/04 00:43:18
Debug.Print "True="; CInt(True) ' -1
Debug.Print "False="; CInt(False) '0

732:デフォルトの名無しさん
10/05/04 00:44:56
CBool(1)　さて・・・どっち？

733:デフォルトの名無しさん
10/05/04 00:46:46
誰もそんな話してないけどな。

734:デフォルトの名無しさん
10/05/04 00:46:47
Dim a,b
a=10
b=20
Debug.Print CInt(a < b)

735:デフォルトの名無しさん
10/05/04 12:02:02
宇宙線の影響を考えると１ビット反転でコンピュータ障害がおきかねないな

736:デフォルトの名無しさん
10/05/04 23:28:37
原因不明のエラーはWindowsMeのせいじゃなくて、宇宙線のせいだったんだな。それなら仕方ないな。

737:デフォルトの名無しさん
10/05/05 00:40:56
ageてまで言うような事なのか?

738:デフォルトの名無しさん
10/05/05 01:01:06
そこはスルーしとけ

739:デフォルトの名無しさん
10/05/05 10:32:50
なんでもWindows Meのせいにするのは天江衣

740:デフォルトの名無しさん
10/05/06 00:59:32
顧客「おたくのアプリケーション、ちょくちょくエラーが出るんですけど
営業「宇宙線の影響なので仕方ありません
顧客「なんだ宇宙線のせいなのか。それならば仕方ないな。

使える！

741:デフォルトの名無しさん
10/05/06 10:00:50
ねーよｗｗｗｗ

742:デフォルトの名無しさん
10/05/07 23:52:26
なんのためのECCか

743:デフォルトの名無しさん
10/05/08 00:17:54
英語塾？

744:デフォルトの名無しさん
10/05/09 00:23:58
ECCで訂正できるのって1bitのミスだけで2bit以上は検出だけじゃなかったっけ

745:デフォルトの名無しさん
10/05/09 00:28:41
ミスるメモリだとわかる点だけでも価値はあったんだぜ

746:デフォルトの名無しさん
10/05/09 00:31:56
エラー検出訂正 (error detection and correction)？

747:デフォルトの名無しさん
10/05/09 02:32:50
クラスモジュールでグローバルな変数・定数・メソッドを使うのに抵抗があります

748:デフォルトの名無しさん
10/05/10 10:01:21
>>747
それは明らかにおかしい
必要ならば使うしかないだろ

749:デフォルトの名無しさん
10/05/10 14:40:47
俺は使いまくり。とても人に見せられるソースじゃない

750:デフォルトの名無しさん
10/05/10 19:30:36
グローバル変数は害悪
定数やメソッドは問題ない

751:デフォルトの名無しさん
10/05/12 14:03:49
>>750
そのへん含め.NETになったと聞いたけど、そうなのかしら？　.NET触ったことないからよくわかんないけど。

ところで。
Windows7でMSCommがマトモに動いてくれないのだが、なにか情報出てたりしますか？
MSComm使って無さそうなソフトだと(ActiveX？)普通に受信するのに
MSComm32を使ったアプリだと、[ 通信ﾃﾞﾊﾞｲｽ読み取り時にｴﾗｰが発生しました(8020) ] を返してくる…。

USBtoシリアルとWindows7の組み合わせが悪いのか、Windows7だけの話なのか？

752:デフォルトの名無しさん
10/05/12 14:13:30
うちの環境で

DELLノート　Win7+エレコムのUSBシリアル
でソフト書いても問題なかったけどなぁ
VB6でもC#でも

753:デフォルトの名無しさん
10/05/12 14:21:08
APIで書き直せばおｋ

754:デフォルトの名無しさん
10/05/12 14:36:04
>>752
マジカ
おのれＩＯデータ

とりあえず、受信バッファに何かあるときに MSComm.Inputすると出るの。
それ以外は出ないし送信もできるのに…。

>>753
それは最終手段にしたい…。

755:デフォルトの名無しさん
10/05/12 19:53:45
まず本当にOSの問題かどうかの裏をとろうよ。
そんなこと言ってるからVB厨とか言われちゃうんだよ。

756:デフォルトの名無しさん
10/05/12 20:03:34
ＩＯデータってOSなの？

757:デフォルトの名無しさん
10/05/12 20:09:54
おのれIOデータのUSBシリアルめ、という意味なんだろう

758:754
10/05/12 22:38:13
IOデータのサポートに言ったら、他にそういう報告はないとのこと。
とりあえず１世代前の製品の最新ドライバ入れてみてという変なこといわれた。
やったら治った。

なんぞーっ
ドライバがこなれてないのかしら。

>>755
ＸＰで起こらないのは確認済み。

759:デフォルトの名無しさん
10/05/15 01:44:06
自分に限界を感じた
データベースというのがさっぱり理解できない
データベースそのものもわけわからんのだが
それを扱うメソッドもよくわからん
VisDataもヘルプ読みながら使ってみたがよくわからん
これは
もう完全にセンスの問題だと思う。俺のプログラミングに関するセンスがダメなんだと思う
家計簿的なもの作ってやろうじゃんと思ったけど
さっぱりだ。
そもそもデータベースの入門書みたいな本とかもまったく理解できなかった
これは致命的だろう
ああ、くそだ

760:デフォルトの名無しさん
10/05/15 02:30:57
バイナリアクセスモードでファイル開いて
putやgetでstringの読み書きって半角や全角や制御コードとか全部２バイトデータかな
dim s as string * 20
put #1, , s
put #1, , n&
↓
get #1, , s
get #1, , n&
で取り出せるよね？ sの内容にかかわらず

761:デフォルトの名無しさん
10/05/15 02:31:58
回答待つより自分で試したほうが早いか・・・やってみるお

762:デフォルトの名無しさん
10/05/15 08:23:17
>>759
こういう人が居ると安心する。
自分は頭がよくてよかった。

763:デフォルトの名無しさん
10/05/16 12:49:35
>>759
マジレスしたら
センスの有無はあるだろうけど
要は慣れだと思う

俺でもできるんだ
俺だって最初はまったく理解できなかった

764:デフォルトの名無しさん
10/05/16 21:18:53
>759
DBを使わず、自分でファイルの読み書きするプログラムを書いたことはある？
まずはそれからだと思うが・・・」

765:デフォルトの名無しさん
10/05/17 01:29:14
>>759
その「入門書」のタイトルを教えてくれれば、
何かアドバイスできるかも知れないな。
（もっと適切な入門書を紹介するとか）

766:759
10/05/17 01:47:04
なんかいっぱいレス下さって・・・意外です＾＾；

>>762　士農工商より下の位がいるみたいな感じっすかね

>>763　もう諦めの境地ですから、試行錯誤的にやってみてもエラーメッセージとか意味不明すぎて
　ＭＳＤＮの説明じゃ要領得なくて、ネット検索とかもう探すの面倒になりましたっす

>>764　当初は、DB使わず、データをLongやStringの配列で自前でデータ管理しようと試みたんすけど
　データを表示する表みたいなコントロール？（DataGridとか）がイマイチ使い方が理解できなくって
　そのコントロールってデータベースのデータ使ったほうがいいのかなって思って
　データベースに挑んでみたですけど、まぁ忍耐の限界っす

>>765 書籍タイトルはちょっと分からんです、図書館で立ち読みでしたので
　データベースの本はほとんどMicrosoftAccessの使い方の本ばっかでそれらは読んでないです
　大学時代に一応データベースの授業受けたんですけど、ちんぷんかんぷんで、出席点だけで単位を貰った感じっす

まぁ趣味でやってる程度なんで、どうしても出来る必要ってないんで
でもみなさんの気持ちには感謝っす
　

767:デフォルトの名無しさん
10/05/17 02:00:26
あきらめろよ。

768:759
10/05/17 02:08:47
>>767
書き損ねましたっすが、はい、あきらめてます

769:デフォルトの名無しさん
10/05/17 02:27:49
愚痴るだけとか士ねよ

770:デフォルトの名無しさん
10/05/17 02:33:17
家計簿程度ならエクセルで十分なキガス

771:デフォルトの名無しさん
10/05/17 15:42:08
初心者ならVBAでいいな

772:デフォルトの名無しさん
10/05/17 17:51:52
でもまぁ、集計とかその辺が入るしなぁ
どうせやるならDBだろ　と思うんだが

773:デフォルトの名無しさん
10/05/17 18:03:02
趣味で古いVB使うってどんな状況なんだ？

774:デフォルトの名無しさん
10/05/17 20:02:03
>>773
使わなくなったＶＢを貰ったとかいうのはどうか。
あとは昔からのＢＡＳＩＣはよく知ってるんだが、.NETの具合にクラクラしたとかどうか。

775:デフォルトの名無しさん
10/05/17 20:35:32
>>576
>>579

776:デフォルトの名無しさん
10/05/17 21:29:52
質問させて下さい。
VBScriptを使用して開発を行う際、
何のエディタを使っていらっしゃいますか。

ASP(VBScript+HTML)で開発することになったのですが、
使用するエディタを何にしようか迷っています。
詳しい方がいらっしゃいましたら教えていただきたいです。

※候補としてはVisual web developer 2008 expressを考えています。

777:デフォルトの名無しさん
10/05/17 22:12:39
趣味で家計簿みたいなのを作るならExcelVBAがいいと思うよ。
表みたいなやつはもともとデフォルトでついてるし(Excelだから)
結構いろんなこともできる。
VBで画面作ってデータベースに接続して・・・・となるとそりゃ
趣味の範囲としては難しいよ。

778:デフォルトの名無しさん
10/05/19 01:33:39
複数のテキストボックスをテキスト形式で保存するプログラムを作成しています。
なんとか「保存」「読み込み」のボタンを設置し異常なく作動しました。
ここまではいいのですが、よく考えたら起動時に自動で読み込んでくれると
便利だと思うのですが、検索してもなかなか出てきません。
お詳しい方ご教授頂けると嬉しいです。宜しくお願い致します。

779:デフォルトの名無しさん
10/05/19 01:36:24
Form_Loadで処理すればいいんじゃないの？いや、俺も初心者レベルだけど

780:デフォルトの名無しさん
10/05/19 01:47:47
Private Sub Form_Load()
Dim f As New FileSystemObject
Dim t As TextBox
For Each t In Text1
t.Text = f.OpenTextStream("Data" & t.Index & ".txt").ReadAll()
Next
End Sub

こんな感じ？

781:779
10/05/19 01:55:47
>>780も俺のレスだけど、>>779,780は無かったことにして欲しい。俺の勘違いだった

782:778
10/05/19 09:47:49
すいません追加事項を
起動時に自動で読み込み、なおかつ参照ファイルが存在しなければ
作成する。を追加でお願いします。

783:デフォルトの名無しさん
10/05/19 15:18:27
>>758
マジで？　おれも数ヶ月前に同じようなこと聞いて同じような回答をもらったが、あきらめて
Ratocのやつに買い換えたよ。
もう一度試してみる価値ありかもな。

784:デフォルトの名無しさん
10/05/20 00:30:58
>>782
よくわからんけど、どういうことなの？

785:デフォルトの名無しさん
10/05/20 00:38:19
自分で考えるつもりはなくて
人に作って欲しいってことじゃね？ｗ

786:デフォルトの名無しさん
10/05/20 00:46:35
MDIフォームで作ってんのか？

787:デフォルトの名無しさん
10/05/20 00:54:11
>>778の言いたいことを少しずつみんなで推理していこう
まずこれ
＞複数のテキストボックスをテキスト形式で保存するプログラムを作成しています

う～ん・・・
複数のテキストボックスをテキスト形式で保存？？？
これは・・・・テキストボックスの内容をテキスト形式のファイルに保存してるってことなのかな？
１つのテキストボックスに対してファイルを一つ用意するのかなぁ・・？

788:デフォルトの名無しさん
10/05/20 22:24:38
age

789:デフォルトの名無しさん
10/05/21 00:50:30
フォームロード時にファイルシステムオブジェクト使えば簡単に処理できます

790:デフォルトの名無しさん
10/05/21 16:01:21
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\wmi")
Set colitem = objWMIService.ExecQuery _
("Select * from WmiMonitorID")
For Each objitem in colitem
Wscript.Echo
Wscript.Echo "シリアル: "& objitem.SerialNumberID[]
Next

win7ですが、シリアル採集できるはずですが、ステートメントの末尾が不正エラー出ます。
YearOfManufactureとかは採集できますが、[]のなかになにかいれないとだめなんでしょうか。

791:デフォルトの名無しさん
10/05/21 17:03:55
角かっこを私は知らない

792:デフォルトの名無しさん
10/05/21 17:17:07
かっこわるい

793:デフォルトの名無しさん
10/05/21 17:22:47
ひとまずwinmgmtsでググってみたよ
おれには分からない