くだすれVB6.0以前（超初心者向け）

1 名前：d mailto:age [2008/03/30(日) 09:01:59 ] このスレッドはVBについて、 他のスレッドでは書き込めない超低レベル、 もしくは質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。 VB使いが優しくコメントを返しますが、 お礼はVBの布教はしなくてよいので、初心者の救済をお願いします 前スレ くだすれVB6.0以前（超初心者向け） pc11.2ch.net/test/read.cgi/tech/1165574205/ 705 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 22:15:50 ] C#やVB.NETなどで作れという神託だよ 706 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 22:38:24 ] >>704 ありがとうございます。 私の探し方が悪いんでしょう。 なかなか見つけられなくてココに来た次第です 諦めるわけには行かないので調べなおします。 >>705 業務で使うのでVB6を使うしかありません。 10年以上稼動する機器なんてざらにあるので・・・ こちらがリファクタリングしたくても 機能も仕様も変わらないのにお金出すところなんてありませんから 707 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:30:07 ] 自力で動かすと、ちょっと上でも方法込みで出てるし。 708 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:32:36 ] 業務で使うのに、サポート切れてるツールを使おう、ってのがわからん。 不具合があったって、MS は知らん顔だよ？ 709 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:34:13 ] MSのサポートなんか受けたことないよ 710 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:38:51 ] >>706 厳密にTopIndexが一つ変化するごとに確実にイベントが欲しい、 とかで無ければタイマ使ってポーリングしたら？ こんな感じのクラスを作って検証してみたが、悪くないように思うけど。 [ListBoxWatcher Class] Private WithEvents mListBox As ListBox Private WithEvents mTimer As Timer Private mTopIndex As Integer Public Event TopIndexChanged() Public Property Set ListBox(lb As ListBox) Set mListBox = lb Dim frm As Form Set frm = mListBox.Parent If mTimer Is Nothing Then Set mTimer = frm.Controls.Add("VB.Timer", "pollingTimer") mTimer.Interval = 200 End If If frm.ActiveControl Is mListBox Then StartPolling End If End Property 711 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:40:35 ] Private Sub StartPolling() 　　mTimer.Enabled = True 　　mTopIndex = mListBox.topIndex End Sub Private Sub mListBox_GotFocus() 　　StartPolling End Sub Private Sub mListBox_LostFocus() 　　mTimer.Enabled = False End Sub Private Sub mTimer_Timer() 　　Dim currentTop As Integer 　　currentTop = mListBox.topIndex 　　If currentTop <> mTopIndex Then 　　　　mTopIndex = currentTop 　　　　RaiseEvent TopIndexChanged 　　End If End Sub しかし、なんでそんなイベントでそんな値が必要なんだろう 712 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:44:28 ] VB6のサブクラス化って初めて見た 横から勉強になります 713 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:48:29 ] 「VB6 のサブクラス化」は、違う意味を指すもんだけどな。 714 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:55:46 ] 「ホイールで動かしたけりゃこのドライバ入れるかあのソフト入れろ」と言える俺は趣味グラマ 715 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 00:03:30 ] 趣味グラマ以前にバカすぎ 動かしたいって話ではなく 動かすのは出来てる上で そのイベントを取りたいって話なのに 716 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 15:06:15 ] FlexGridライクなグリッドツールで 使いやすくてフリーか安価な物ってありますか？ 717 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 16:16:19 ] ttp://www.grapecity.com/japan/support/database/p1_223.htm 718 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 16:17:29 ] Windows7でもランタイム入ってるのか あと5年はイけそうだぬ 719 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 16:25:32 ] >>718 ところが動かないソフト続出ｗ 720 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 18:44:50 ] >>716 俺はMSHFlexGridを自作のクラスと組み合わせて使いやすくしてる プログラマなら他人が作ったものを使うことばかり考えてないで 少しは自力で便利にしようって気になろうよ 721 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 19:10:59 ] DataGridView 722 名前：デフォルトの名無しさん mailto:sage [2009/03/09(月) 00:37:17 ] DataGridViewって.NETのコントロールじゃないの？ VB6でも使えるのか？ 723 名前：716 mailto:sage [2009/03/09(月) 00:46:37 ] 自分で実装しても良いんですけど 自作にかかる費用と購入する費用を考えたときに 購入する方が安上がりかと思いまして 後、うちの会社レベルが低すぎてクラスの概念理解できる人がいないんです… やっぱグレープシティ買って貰うのが一番手っ取り早いですかね 1週間分の人件費で買えますし… 724 名前：デフォルトの名無しさん [2009/03/10(火) 22:18:45 ] 何でもかんでも自分で作ろうとする奴は馬鹿なのか？ 費用対効果とか生産性で一番効率品質ともに良いほうを選ぶだけのこと。 車輪の再発明なんぞ自宅でやれ。仕事でやるな。 再発明した低レベルの車輪を見せびらかすな。 725 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 22:25:08 ] たいていは、上の人が買ってくれないから、って理由じゃない？＞自前で作る 726 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 22:33:08 ] FlexGridProの品質の悪さは異常 727 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 23:25:40 ] > 車輪の再発明なんぞ自宅でやれ。仕事でやるな。 そもそも最初の質問で仕事で使うとは一言も書いてない件について 個人で使うことを想定した回答を、後出しの仕事で使うという情報を理由に叩く奴は馬鹿なのか？ 728 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 23:40:34 ] >>724の回答もどうかと思うが、 君のそれも話が噛み合ってないんじゃないの？ >>725の言うように724は勤め人にありがちな境遇がわかってない、 ってのなら同意するんだが。。 まあ、くだらんことで熱くなってもしょうがないだろ。 729 名前：デフォルトの名無しさん mailto:sage [2009/03/11(水) 23:33:39 ] でも車輪の再発明って楽しいよな。 730 名前：デフォルトの名無しさん mailto:sage [2009/03/12(木) 00:15:49 ] 再発明ではなく 新発明に出来る可能性を秘めてるからな 再発明にすら届かない可能性も孕んではいるが 731 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:12:26 ] 再発明ってやつは、意識して取り組めば、何らか得るものがあるが、 いかんせん時間効率がよくない。と思う 車輪の再発明は学生のうちにしとけ。とはよくいったもの 世の中そううまくいかん(実りある再発明行為が、学生のうちにできるわきゃない)わけだが 732 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:21:25 ] 時間効率が重視される仕事に置いてまで 再開発でも自作しろなんて言ってる奴は皆無である件について 733 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:28:14 ] コスト計算できない上司が部品買ってくれないってのは、自作しろって事じゃないの？ 734 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:43:24 ] それは上司の主張であって、このスレの住人の主張ではないだろ 735 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:45:13 ] なんで上司の主張は除外されるわけ？ 736 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 02:50:12 ] ここが会社ではなく2chのスレだから 737 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 03:19:15 ] 2chのスレだったら会社の話をしちゃいかんのか？ 738 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 05:24:15 ] 別にいいんじゃないの？ ただ会社の場合は「会社では」って付けてね 何も付けないと、名前空間上「このスレでは」って意味になるから 739 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 15:41:56 ] 上司の話をするのに、いちいち会社の上司はと付けなければいけないのか？ いつからそんなルールになったんだ？ 740 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 15:48:00 ] いや、そもそも「このスレの住人の（合意された）主張」なんてものが存在しません。 741 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 17:43:28 ] ★印の ”A7” とこを Cells(ｙ, x) とすると 「Rangeメソッドは失敗しました」 と文句言われますが、どうすればいいのでしょう！？ Range("A7:R120").Select Application.CutCopyMode = False Selection.Sort _ Key1:=Range("A7"), _　　　★ Order1:=xlDescending, _ Header:=xlGuess, _ OrderCustom:=1, _ MatchCase:=False, _ Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin 742 名前：デフォルトの名無しさん mailto:sage [2009/03/21(土) 18:37:57 ] おしえてくだせえ。 frmMain 実行中に、フォームの右端をドラッグして大きさかえると、Resizeイベントが発生するまではいいんだが、 その後 frmMain.ScaleWidth や、frmMain.Width などを取得してみると大きさ変更前の値しか出てこないんだよ。 なにか足りない部分があるのでしょうか？ 743 名前：742 mailto:sage [2009/03/21(土) 18:45:53 ] すんません。事故解決です。 VBのウイザードからある程度メニューやツールボックスが揃ったプロジェクトではじめていたので、 Set fMainForm = New frmMain と標準モジュールからフォームオブジェクトが開かれてました。 初心者に意地悪なつくりでした。

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef