★★VB初心者質問スレ Part9(´･ω･`)★★
レス数が1000を超えています。これ以上書き込みはできません。
0001激☆初心者
NGNGPart 1 http://piza.2ch.net/tech/kako/968/968328471.html
Part 2 http://piza.2ch.net/tech/kako/990/990793224.html
Part 3 http://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
Part 4 http://pc.2ch.net/tech/kako/1006/10069/1006922992.html
Part 5 http://pc.2ch.net/test/read.cgi/tech/1010624646/
Part 6 http://pc.2ch.net/test/read.cgi/tech/1013844542/
Part 7 http://pc.2ch.net/test/read.cgi/tech/1015836357/
Part 8 http://pc.2ch.net/test/read.cgi/tech/1018794901/
Win32 API関連スレ
http://pc.2ch.net/test/read.cgi/tech/1017072275/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調てみる。
参．VBScript もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。
新ｽﾚ立ってなかったみたいなんで立てました。
重複してたら誘導お願いします。
0002デフォルトの名無しさん
NGNG0003デフォルトの名無しさん
NGNGΛ《Λ ｽﾞｻﾞｰｰｰｰｰｯ3get
（ / ⌒ヽ
ﾉﾉ ﾉ (´´;;; (´
(ﾉ /ﾉ ≡≡≡≡ (´´
ﾉ ﾉﾉ ≡≡≡≡(´⌒(´⌒;;≡≡
(ノノ (´⌒(´⌒;;
￣￣￣￣￣￣
0004デフォルトの名無しさん
NGNG自体が起こるのですが、これって回避できませんか？
原因もよくわからないです。
いっかいスクロールバーをいじると、他の部品をクリックしてもフォーカスが移りません。
一見フリーズしたかのように見えます。
で、タスクバーから最小化したり他のウインドウに切り替えたりすると、
フォーカスが帰ってきます。
こんな感じになる症状がたまにでます。
0005デフォルトの名無しさん
NGNG市ね
0006ひまお
NGNG0007デフォルトの名無しさん
NGNG反映されてないようなんですが、JetOLEDB3.51（別のDB）だった場合はうまく設定
されているようなのです。
同じように
set DataGrid1.DataSource = mRs
と書いてあるのですが…。
どなたか解決法等をご教授お願い致します。
0008デフォルトの名無しさん
NGNGファイルに保存してからNavigateすれば表示はできますが、なんかすごく無駄な気がして。
String型変数に入ってるHTMLをそのまま表示させたいです。
0009デフォルトの名無しさん
NGNG0010デフォルトの名無しさん
NGNGIE自体がファイル経由なんじゃないの
0011デフォルトの名無しさん
NGNGんなわけねーじゃん…。
キャッシュがあるからそう思ったのか？
0012デフォルトの名無しさん
NGNGMDACのバージョンとか関係ないかな。
完全に未確認でｺﾞﾒｿ
0013デフォルトの名無しさん
NGNGうん。
0014Delフサギコ ◆zE1iiRdQ
NGNG| monazillaに逝けばわかるかも…>>8
＼
￣￣￣￣ Ο ￣￣￣￣￣￣￣￣￣￣￣￣
ο
♪ ∧,,∧ﾟ ♪
ミ,,ﾟДﾟ彡 ♪
ﾐつ[|lllll］).
～ﾐ ﾐ
Ｕ''Ｕ
00158
NGNGhttp://members.jcom.home.ne.jp/monazilla/document/directwrite.html
そのものずばりっぽいのがあったんですが、デルファイなんですよね。
うーん、わかんないっす。
これをVBで書いたらどうなるのかな。
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
この変がキモなのかな。
0016Delフサギコ ◆zE1iiRdQ
NGNG∩ ∩
ﾐ ﾞ''ﾞ？
ﾐ∧,,∧ ／￣￣￣￣￣￣￣￣
ミ,,ﾟДﾟ彡 ＜ TStreamAdapterってなんじゃらﾎｲ
Ｕ Ｕ ＼＿＿＿＿＿＿＿＿
> (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
よくわかんねですが
WebBrowser＝COMかＡｃｔｉｖｅＸかなんかのコントロールかなんか
.Document＝そのメンバーかメソッドかプロパティかなんか
IPersistStreamInit＝ＣＯＭのインターフェースかなんか
.Load＝たぶんIPersistStreamInitのメソッド
TStreamAdapter.Create(ms)＝メモリデータを変換したりとか？
こんな感じ。ＶＢで
IPersistStreamInit
Document
Load
あたりを検索してミル
適当なレスでスマンソン
0017デフォルトの名無しさん
NGNG現象
Microsoft.Jet.OLEDB.4.0 と ADO のサーバー サイド カーソルを使用して
取得したデータを DataGrid に連結 (ADO データ コントロールを使って、
あるいは直接グリッドに連結) したとき、DataGrid にデータが表示されません。
原因
Microsoft.Jet.OLEDB.4.0 プロバイダは、DBPROP_LITERALIDENTITY
プロパティをサポートしていません。そのため、IRowsetIdentity
インターフェイスをインプリメントする必要があります。ADO では、
このプロパティを行セットのオープン前に設定する必要があります。
解決方法
レコード セットを開く前に、
RecordsetObject.Properties("IRowsetIdentity") = True
を実行します。
http://support.microsoft.com/default.aspx?scid=%2Fisapi%2Fgomscom%2Easp%3Ftarget%3D%2Fjapan%2Fsupport%2Fkb%2Farticles%2Fjp224%2F1%2F92%2Easp&LN=JA
0018>8
NGNG実際、XSLTで変換したページなんか保存なんてせずに
DOMオブジェクト中のコードでしょ。
そのかわりHTMLがXMLフォーマットでないとだめだが。
0019デフォルトの名無しさん
NGNG.Navigate "about:blank"
.Document.Clear
.Document.Open
.Document.Charset = "Shift_JIS"
.Document.write "(ﾟДﾟ)ｺﾞﾙｧ!<BR>(ﾟДﾟ)ｺﾞﾙｧ!<BR>(ﾟДﾟ)ｺﾞﾙｧ!"
.Document.Close
End With
0020デフォルトの名無しさん
NGNG過去ログ漁ったんですが、上手く検索かからなくて。
ほんと申し訳ない。
0022もったいぶりｱﾗｼ
NGNGさあオフスクリーンだったな
でもねむいなｗ
気が向いたらアラスね
0023デフォルトの名無しさん
NGNGこんなん見つけた。
http://www.layer-8.com/sce/smp_detail.php3?view_flg=&argCatId=3&argSubCat=35&argSmpId=200
0024デフォルトの名無しさん
NGNGHTML(ソースじゃなく見たまんま)の印刷ってできる？
コントロールは非表示で、できれば印刷設定のダイアログとかも出さずに。
無理なら、市販コンポーネントで知ってるのあったら、
情報きぼんぬ。
0025もったいぶりｱﾗｼ
NGNGそ
ま
み
れ
く
そ
ま
み
れ
く
そ
ま
み
れ
く
そ
ま
み
れ
く
そ
ま
み
れ
0026デフォルトの名無しさん
NGNGこの板の過去ログなんか漁っても無駄。Users-MLの過去ログとか見れば
大量にヒットするよ。
>>もったいぶりｱﾗｼ
いい加減にしませんか？
002820
NGNGVBUGのことですか？
0029デフォルトの名無しさん
NGNG確か前回から付いてるよな。
余計にガキっぽく見えるだろ。
Ｐ板はもっと殺伐としてるべきなんだよ。
0030デフォルトの名無しさん
NGNG0031デフォルトの名無しさん
NGNG0032デフォルトの名無しさん
NGNG前の板でも変なイタズラしたろ。どっか逝けよ。
ｵﾏｴだろ
アラシは？
0034デフォルトの名無しさん
NGNGhttp://www.users.gr.jp/
0035デフォルトの名無しさん
NGNGどうも仲良くいかｋないようだね
厨な年頃かい？ミﾟДﾟ,,彡
003620
NGNGありがたい。VB.NETや.NETに登録してみます。
0038り
NGNG0039デフォルトの名無しさん
NGNG自由度が全然違う。と、言いたいところだがVBだからどうでも良いんじゃないの？
0040デフォルトの名無しさん
NGNGクラス内では関数が使える。
0041デフォルトの名無しさん
NGNG関数て・・・。
そう言えばC++って通常はメソッドなのに仮想関数は関数なのね。
0042即レス
NGNG0043デフォルトの名無しさん
NGNGVBScriptでiモードにBASP21を使ってメールを送信させようとしているのですが、
553 ... Relay operation rejected to
というエラーが出て送信できません。
メールサーバー名の指定が間違っているようなのですがiモードの場合、
サーバー名の指定をどうすればいいのか分からないのです。
ご存知の方がいらっしゃいましたら、どうか教えていただけないでしょうか？
よろしくお願いします。
0044デフォルトの名無しさん
NGNG人によってcboとかcmbとか付けられて鬱だ
0045デフォルトの名無しさん
NGNGMSDNで「オブジェクトの名前付け基準」を検索
0046デフォルトの名無しさん
NGNGありがと。愛してる。
0047デフォルトの名無しさん
NGNG激遅レスですが、ありがとうございました。
0048デフォルトの名無しさん
NGNGまったく他人ですが、どういたしまして。
0049こういうことか？
NGNGこういうことがしたいのか？
多分これで大丈夫だけど実験してないので動作不明（ｗ
バグってたら直してちょうだい。
Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
Private Const STDOUT_HANDLE = -11&
Private Function SendDoc() As Long
Dim hnd As Long
Dim strDoc As String
Dim lngRet As Long
Dim lngWriteLen As Long
SendDoc = 0
strDoc = vbNullString
strDoc = strDoc & "HTTP/1.1 200 OK" & vbCfLf
strDoc = strDoc & "content-type:text/html" & vbCrLf
strDoc = strDoc & "<html><body><span style={font-size:64;}>ゴルァ！</span></body></html>"
hnd = GetStdHandle(STDOUT_HANDLE)
lngRet = WriteFile(hnd, ByVal strDoc, LenB(StrConv(strDoc, vbFromUnicode)), lngWriteLen, ByVal 0&)
If lngRet = 0 Then
SendDoc = Err.LastDllError
Else
If LenB(StrConv(strDoc, vbFromUnicode)) <> lngWriteLen Then
SendDoc = vbObjectError + 513
End If
End If
End Function
0050デフォルトの名無しさん
NGNG0051デフォルトの名無しさん
NGNG0052デフォルトの名無しさん
NGNG寂しいときに友達を宣言すれば隠蔽された友達を呼び出せます。
0053デフォルトの名無しさん
NGNGなんとなくC++と勘違いしている予感。
0054デフォルトの名無しさん
NGNGhtml内でtextareaの改行コード込みの内容をPostして、次のasp内で
Request.Formで引っ張ってくるんだけど、なぜか改行してくれないんです。
良い方法おしえてください。
0055デフォルトの名無しさん
NGNGCR LFを<BR>に置換
0056デフォルトの名無しさん
NGNGありがと＆ごめんアフォなんでもちっと詳しく
0057デフォルトの名無しさん
NGNGVBに付属してるディストリビューションウィザードでセットアップファイルを
作るときに、空のフォルダをセットアップファイルの中に含むことって
できるんでしょうか？
セットアップファイルを作るときにファイルは選ぶことができても、
フォルダを選べない気がしたんで・・・・
0058デフォルトの名無しさん
NGNG空フォルダは作れないと仮定しての話だけど（未検証）、
ダミーのファイルを入れてしまって、アプリの起動時か
なんかに消しに行くようにしたら？
0059デフォルトの名無しさん
NGNGんーやっぱそういうふうにしないと駄目なんでしょうか・・・
ウィザードとおりにやってるとフォルダが指定できない時点で、
ダミーファイルの作成をカンガエはしたんですが・・・
0060デフォルトの名無しさん
NGNG58だけど、もしかして単に気分の問題か？？？
動けばいいってことなら、アプリの起動時にフォルダなければ
作るなり、前述の方法なりでできると思われ。
それでもいやなら、セットアップウィザードのソースあるんだから
直接内容いじればなんでもできるじゃん。
0061５４
NGNG0063デフォルトの名無しさん
NGNG言ってる意味がさっぱり解らんないのは俺だけ？
0064デフォルトの名無しさん
NGNG日本語変。
英語の使い方も変。
宿題他力本願。
生きている価値を疑う。
0066デフォルトの名無しさん
NGNG配布はインストーラ付きじゃないとだめですか？
exeのみ配布はﾑｯﾁｬﾑﾘﾑﾘでしょうか？
0067デフォルトの名無しさん
NGNG0068デフォルトの名無しさん
NGNGツールバーの絵をスキンで変えられるようにしたいのですけど、
定石はどんな方法ですか？
picture clip control ですか？
0069デフォルトの名無しさん
NGNGとりあえず、宿題か何かを手伝ってほしいと？
0070デフォルトの名無しさん
NGNG0071デフォルトの名無しさん
NGNG00723t
NGNGテトリスとかぶろっく崩しとかの他人のソース読んで勉強しろといっても無理な気がしてきました。
せめて○×ゲームからはじめようかと思っていますが、一人ではわかりません。。
誰か教えていただけ無いでしょうか。
よろしくおながいします。
それがだめならせめて
ゲームの基本画面はテキストボックス、ピクチャーボックス、ラベルのどれで
作るかだけでも教えていただけないでしょうか。
00733t
NGNGよろしくおまえがします。
0074デフォルトの名無しさん
NGNG0075デフォルトの名無しさん
NGNG0076デフォルトの名無しさん
NGNGまずは、かんたんなゲームが作れる解説つきの本を買うことをお勧めする。
007768
NGNGpcl じゃなくて image list なんでしょうか？
007868
NGNG0079デフォルトの名無しさん
NGNGいるのですがマルチユーザ環境での排他制御の仕方などがいまいち
わかりません。
良書や便利なサイトなどがあれば教えていただきたいです。
具体的にはレコードセットをつかってupdateメソッドを使って更新を
行いたいのですが、他端末でaddnewされたレコードに対して自端末
がaddnewしたような場合等です。
0080デフォルトの名無しさん
NGNGhttp://www.google.com/search?num=100&num=50&hl=ja&q=Visual%20Bsaic
0081デフォルトの名無しさん
NGNG0082デフォルトの名無しさん
NGNG0083デフォルトの名無しさん
NGNG0084デフォルトの名無しさん
NGNGあれにどう答えろと？
後、自作自演痛い。
008568
NGNGもうさぱーりです。よくあるように、例えば5x2でアイコンが並んだ
一枚絵をスキンとして使いたいのです。
PictureClipで読み込んで、ImageListに格納して、
TooBarに反映させるんでしょうか？
0086デフォルトの名無しさん
NGNG>>83はお前だろ？
0087デフォルトの名無しさん
NGNGPicture2のJPEGのDDBをDIBピクチャに変換し、Picture2にDIBピクチャを入れ替えました。
もちろんきちんと画像が表示されるのですが、問題はそこから先なのです。
成功する方法は
SavePictureで適当にBMP変換&保存し、
buffer = CreateCompatibleDC(Picture1.hdc)でメモリDCを作成し、
buffer2 = LoadImage・・・で先ほど保存したBMPをLoadし、
SelectObject buffer, buffer2をして
StretchBlt Picture1.hdc・・・buffer・・・で拡大表示したピクチャをPicture1に表示。
これはうまくいくのですが、HDDに保存せずメモリ上で全ての作業を行いたいのですが、
とりあえず、私なりに
buffer = CreateCompatibleDC(Picture1.hdc)でメモリDCを作成し、
buffer2 = CopyImage(Picture2.hdc・・・とやったのですが、戻り値が０でエラーだったので、
DIBなのがいけないのかな？と思い、
(そもそもこのCopyImageの使い方がいいのかが分かりません。ネットで色々探しても、１０件も
HITしません(泣、MSDNではピクチャを複製すると書いてありました)
buffer1 = CreateCompatibleBitmap(Picture2.hdc・・・として、BMPに変換し(ハンドルを一応受け取りました）、
buffer2 = CopyImage(buffer1・・・をしたら、戻り値が０じゃないのでいいのかなと思ったのですが、
SelectObject buffer, buffer2をして
StretchBlt Picture1.hdc・・・buffer・・・しましても、Picture1に何も表示されませんでした。
Bitbltでも同様でした。CopyImage(Picture2,Picture.handle・・・でもハンドルが戻ってくるのですが、
画像が表示されずダメでした。一応、Bitbltの戻り値が1が戻ってくるので、処理はミスっていない
ようなのですが・・・。
ここの知識は乏しく、根本的に間違ったことをしているかもしれません(泣
ぜひ、ご教授お願いします。よろしくお願いします。
最低限使いたい関数はCopyImage(多分、LoadImageと結果は似てると思うのですが･･･)と
StretchBlt(Bitblt)です。LoadImageは拡大読み込みにアンチエイリアスかけてくれるのですけど、
CopyImageはどうなのか分かりません。かけてくれるのかな・・・。
008868
NGNG0089デフォルトの名無しさん
NGNG同意。二行目以降は読んでないけどな。
0090デフォルトの名無しさん
NGNG例に挙げたような場合の DBの一貫性は保たれるので気にしなくて良いです。
それ以前に、まず、排他させなきゃいけない 場面、機能、等を一度整理して
みてはいかがでしょう？
0091デフォルトの名無しさん
NGNGクラスならコレクションに入れられる(by VB5)
(VB6ならユーザ定義型でもいけてまうけどな。ま、メソッドないとうまみ半減)
009287
NGNGひーん。読んでください(´Д⊂ヽ
長文ごめんなさい
0093デフォルトの名無しさん
NGNGそれって構造体みたいなもん？ ＜定義型
0094デフォルトの名無しさん
NGNGなるほど。ありがとうございます。
では、後れてaddnewした側にはなにかエラーが渡されるのです
よね？その辺のロジックの組み方がいまいちわからないのです。
0095デフォルトの名無しさん
NGNG009687
NGNG作ったDLLをかましてまして、そのDLLにはBMPファイルに変換＆保存する
機能があるのですが、その機能をSavePicture代わりに使うと
表示はするものの、LoadImageの機能であるアンチエイリアスされず、
StretchBltそのままのドットバリバリの汚い画像が表示されるのです。
（LoadImageがエラー起こしている雰囲気はないです）
でも、ファイル自体正常な？BMPファイルでして、ペイント等でも開けます。
ただ気になるのは、SavePictureだと200KBを超えるのですが、
そのDLLで作ったBMPは150KBぐらいなのです。
多分、変換工程が違うからだと思うのですけど・・・。ｱﾔｽｨ。
0097デフォルトの名無しさん
NGNGもし table に同じ内容のレコードを書き込んだ場合､
primary key が設定されていれば 一意制約違反が
発生します。が、そうでなければ両方とも書き込みは
成功します。
0098デフォルトの名無しさん
NGNGDBが保証する一貫性と、設計者が考慮しなければならない
トランザクションの範囲､分離性、がごっちゃになっていませんか？
0099仕様書無しさん
NGNG顧客の名前などは既にデータベースに登録されており、
プログラムでIDを自動的に割り当てたいのですがうまくできません。
番号はSequenceで生成を試みているのですが、1ずつ増加するはずなのに、
120ずつ増加しちゃったりします。わけわからん。
こんな感じで処理をしています。
Do
Set Objecthoge(Sequence.NextVal)
レコードID = Objecthoge.Fields("NextVal").Value
Objecthoge = nothing
Loop Util 全レコード数
↑また、数百件処理をした後、ループ中にハングしてしまうです。
書き込みが下手で申し訳ありませんが、要約すると
VBプログラムで全てのレコードに対してIDを割り当てたいんです。
アドバイスおねがいします。
0100デフォルトの名無しさん
NGNGCreate sequens したときに、INCREMENT BY 120ってしてませんか？
0101デフォルトの名無しさん
NGNGハング事に関してはなにもアドバイスできませんが､
ストアドにしたほうが良さそうな処理と見受けましたが､
検討してみましたでしょうか？
0102仕様書無しさん
NGNGSet Objecthoge(Sequence.NextVal)の部分は
CreateDynaSetでいいのかな?
レコードの取り出し方が正しくない可能性ありえそうです。＞＜
0104仕様書無しさん
NGNGNet8とか設定しないといけないんですよね?
DBの設計をやっているのはうち会社ではないので、
かってにOracleの設定を登録したらやばくないかなぁ。。。
0105デフォルトの名無しさん
NGNGこのスレ。びくーり
010687
NGNG特に変わった点はなさそうです。サイズも正常ですし・・・。
010787
NGNG0108デフォルトの名無しさん
NGNG0109デフォルトの名無しさん
NGNGメモリをアフォほど積んだ環境なら。
011087
NGNGぜひ教えてください
0111デフォルトの名無しさん
NGNGスレタイトルが読めない幼稚園児？
0112デフォルトの名無しさん
NGNGoo4o で VBから Oracle に接続できるということは Net8の
設定は正しくされてます。ストアドを使うにあたってはそれ以上の
設定はとくに必要ないです。
ただ、DB設計が別会社で、>>104 さんが ストアドの作成経験
がないのであれば今回はやめておいたほうが無難ですね。
0113仕様書無しさん
NGNG了解です。ありがとう。
Oracle連休前の一週間前からはじめたんですけど、
適当にやっているうちに設定されてたんですね。(^^;
0114unlha32.dllです
NGNG圧縮する前に圧縮後のファイルサイズを取得したいのですが、
何か方法はあるでしょうか？
UnlhaGetCompressedSize API関数等調べたのですがどうも
書庫内のファイルサイズを取得するものらしいです。
やはり、テンポラリーに一度圧縮してから、そのファイルのサイズを
取得する以外方法はないのでしょうか？
（圧縮する時間がかかるので避けたいのです）
あと、もう一つあるのですが。
unlha32.dllをＡというVBアプリで使っていたとします。
その時にＢというＶＢアプリでunlha32.dllを使用しよう
とした場合に既にＡが使っているという情報を
取得する方法はあるでしょうか？
何かヒント等でもお知りでしたらご教授下さい。
よろしくお願い致します。
0115デフォルトの名無しさん
NGNG0116デフォルトの名無しさん
NGNG圧縮後のファイルサイズは圧縮しないとわからないと思われ。
それを計算する暇あったらそのついでに圧縮を行える。
0117デフォルトの名無しさん
NGNG0118デフォルトの名無しさん
NGNG0119デフォルトの名無しさん
NGNG0121デフォルトの名無しさん
NGNG原理的に無理。
WinRarの事前予測は、サンプリングで。
実行中の予測は、処理済みの比率で計算してると思われ。
下の質問は、APIでプロセス列挙かな。
0122デフォルトの名無しさん
NGNG下の質問。
なんでそんなこと調べる必要があるの？
dllは再入可能なように作られているはずだから
競合とかの心配はないのでは？
0123unlha32.dllです
NGNGやはり、一度圧縮しないと無理なんですねー。
>>121さん
>下の質問は、APIでプロセス列挙かな。
と、言われたので調べてみると以下のような単語が検索されました。
PSAPI.DLL
EnumProcesses()、
EnumProcessModules()、
GetModuleFileNameEx()、
GetModuleBaseName()
多分、これでできるんですよねー？
重要なヒントを教えて頂いて有難うございます。
これで、土日は休めそうです（笑）
ありがとうございました m(__)m
0124デフォルトの名無しさん
NGNG土日やすめるようにがむばってね。
おいらもあしたぢゅーに、あれして、これしないと....はやくねよっと。
0125unlha32.dllです
NGNGうーん なんでかはわかりません（笑）
できるかどうか調べてくれと上司に言われたので
色々、調べていた次第です。
0126デフォルトの名無しさん
NGNG0127デフォルトの名無しさん
NGNGその上司はﾘﾊﾞｰｽｴﾝｼﾞﾆｱﾘﾝｸﾞ中だと思われ。
0128デフォルトの名無しさん
NGNG012968
NGNGImageListに入れて、ToolBar でした。
っていうかこのやろう。
厨が適当にWeb上でＶＢのTipsを拾って来て
まず、「教えてください」と聞いて
答えます
あわよくば、違う手法を他から拾うことを狙っています
お礼を言ってる礼はまずそうです
これからも厨の自作自演を見据えて、マジレスなどしないようにしましょう
0131デフォルトの名無しさん
NGNG130はほっとけってことか。煽り厨にはこまったものだ。
0132（ ´∀｀）
NGNG0133デフォルトの名無しさん
NGNG87は２行目以降読んでないけど、StretchBltで拡大縮小バリバリなのを
回避するには
Call SetStretchBltMode(hdc, HALFTONE)
Call SetBrushOrgEx(hdc, 0, 0, 0&)
ってやらないと駄目だったよーな。たしかディスプレイドライバ依存。
0134デフォルトの名無しさん
NGNG013587
NGNGしかし、画像がアンチエイリアスかからず、そのまま拡大縮小した画像が表示されました。
どうやらCopyImageはLoadImageのようにアンチアリアスかけてくれないみたいです（泣
他にアンチエイリアスかけてくれるAPIはないのでしょうか？
それともBitbltやらなんやらアルゴリズムで画像を処理する以外無いのでしょうか。
GDI系はめっぽう弱く、どこかにサンプルはないかしら・・・。
013687
NGNG0137即レス
NGNGむう。読みづらいな。しかも結局何がしたいのか良くわからん。
とりあえずPicture1のAutoRedraw=TrueにしてRefreshしてみれ。
CopyImageはアンチエイリアスはかからん。
LoadImageはかけてくれるがリソースかファイルからしかダメ。
Jpeg読みこんで拡大表示したいなら
LoadPictureとStrechBltが一番簡単で速い。
>>96
SavePictureは現在のディスプレイ設定依存。（最悪だね、これ。）
多分24Bitと32Bitの違いとかだろう。
バイナリエディタで情報見てみ。
>>114
即レスにはなってないが、
基本的に無理。圧縮→ファイル書きこみのファイル書きこみをサイズ計算
だけにすれば出来るが圧縮とたいして時間変わらん。
>>123
そこらへんの関数はNT系じゃないと使えないから注意だな。
#最近まとれす来ないね。
013887
NGNG>>137
＞CopyImageはアンチエイリアスはかからん。
＞LoadImageはかけてくれるがリソースかファイルからしかダメ。
135にも書いてあるのですが、かかりませんでした（ｼｸｼｸ
名前が似てるのに（MSめ！
＞Jpeg読みこんで拡大表示したいなら
＞LoadPictureとStrechBltが一番簡単で速い。
これってアンチエイリアスかけてくれませんよね？
＞SavePictureは現在のディスプレイ設定依存。（最悪だね、これ。）
なるほど道理で・・・。SavePictureだと画質が落ちるんです
なにかいい方法はないかしら・・・
013987
NGNG画像をアンチエイリアスをかけて、拡大縮小をしたい。
っていうことです。もちろん全ての作業はメモリ上です。(一旦ファイル保存はタブー)
分かりづらくてすみません。
0140即レス
NGNGNETでは出来るらしい。
DirectX8では2Dも出来たかな･･･？
StrechBltは環境依存。
VC使えるんならDLL作ったほうが早くて速いだろうな。
速さを求めないならVBで計算するも良し。
0141デフォルトの名無しさん
NGNG014287
NGNGNETｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!
って、NETに買い換える予算も目新しい機能もなさそうですし・・・
やっぱりVCですか・・・。
昔、素人工房さんとこにVBでのアンチエリアスのサンプルがありましたが、
あれは・・・激重ですた（泣
0143デフォルトの名無しさん
NGNG最初は
menuOption
menu2
で、ボタンを押すと
menuOption
menu2
menu3
menu4
menu5
menu6
menu7
などのように自由に増やすことは出来るのでしょうか？
0144_
NGNGコボルとは何が違うんでしょうか？
レベルにもよると思いますが、このVBはどのくらいで覚えられる
ものなんですか？
モバイル端末の開発とかいきなり言われちゃってるもので、いやはや・・・
0145デフォルトの名無しさん
NGNG１週間みっちりやれば余裕だと思うぞ。
0146_
NGNGでもそれは、ごく初歩的な段階ですよね。
今後このIT（特に金融関係）で生き抜くのに必要な知識ではあるんですかね？
0147デフォルトの名無しさん
NGNG......モバイル端末の開発でVB?
って事はeMbeddedVBか...ｸｸｸ、ご愁傷様。
0148＞147
NGNGどうゆううことなんですか？
素人をいじめないでよぉ～
0149デフォルトの名無しさん
NGNG0151不明なデバイスさん
NGNGどこならいいですか？
015279
NGNG今日は仕事が忙しくVBをいじれませんでした。
本屋に本を探しにでかけたのですが、VBの使い方本はあってもDBの
エラートラップについて詳しく乗ってる本はないのですねぇ（はぁ
どうやら他の人がaddnewで追加したキーを持つレコードを
後から追加しようとするとエラーコードが帰ってくるらしいということが
わかったのですが、（まだためしていないのでどんなエラーコードが
帰ってくるかはわからないのですが）そういったエラーコードの一覧表
ってどこに書いてあるのでしょう？MSDNをしらべてみたのですが
探し方がわるいのかみつからない・・・・・。
私が今作っているのはマスタメンテのようなアプリケーションなのですが
通常どんなトラップをしなくてはならないのでしょうか？
dbPessimisticで開いたレコードセットは排他制御がかかるため
更新処理では主だったエラートラップは必要が無いように思います。
削除処理も排他制御のおかげでエラートラップは必要ないかなぁ。
やっぱり思いつくのは追加処理で他のユーザーに追加されたような
場合なのかなぁ？
0153デフォルトの名無しさん
NGNGコードは
MSDNを 「ADO 列挙定数」で調べれば出てきます。
DBが SQLサーバーと仮定すると デフォルトでタイムアウトは無限
になってますので､競合が発生しててもあとかきたプロセスが
またされますのでエラーはかえってきません。
SET LOCK_TIMEOUT 1000 -- 1秒ごにタイムアウト
で設定しておくと エラーが帰ってきます。
0154デフォルトの名無しさん
NGNG0155デフォルトの名無しさん
NGNG0156デフォルトの名無しさん
NGNGアプリレベルでの排他はどうしてますでしょぅ。
同時に二人がおなじマスターメンテ画面を開いて､同じコードの
修正をするのはどうやって排他しようとしていますか？
0157デフォルトの名無しさん
NGNGアプリレベルとは？
アプリは同一端末の多重起動を不可能とし。
EXEは端末に一つずつ置いています。
レコードは排他されるので問題ないようにおもうのですが。。。。。
ちがうの？
0158デフォルトの名無しさん
NGNGVBだけじゃなくDBだけじゃなくエラートラップについて詳しく載っている
ものは少ないぞ。残念なことだ。
俺から一つアドバイスをやろう。
エラー処理をするときには、どんなエラーがきても
ある程度対処できるようなコードを最初にかけ。
エラー状態ってのは通常状態以外すべてだからな。
通常状態は数えるほどしかないが、それ以外は無限にある。
どのようなエラーが発生するかを調べるだけ無駄だ。
すべてのエラーは発生すると仮定しろ。
だからエラーコードに依存しないエラー処理を最初に書いておけ。
その上で個々のエラー処理を追加していくのだ。
決して分かっているエラー処理だけをして、その他のエラーは
発生しないと仮定して、発生したときの動きは不明なんてコードを
書いてはいかんぞ。
0159デフォルトの名無しさん
NGNGExcelについては、ビジネスsoft板のExcel相談所で質問したほうがいい。
Excel依存の割合が小さいVBAなら、こっちだけど。
016079
NGNGそれについてはまったく問題ありません。
エラーはなんでもかんでもトラップしてエラーコードを出して処理を
抜けるようになっているんです。だけどそれじゃあみっともないので
わかってるエラーには対処したいのですがいかんせんエラーコード
一覧が見当たらないのとどんなエラーが予想されるのかがちっとも
見当がつかないのですよ（とほほ
どっかにいいサンプルコードでもないでしょうか？
0161デフォルトの名無しさん
NGNGそうか。ならいいんだが。
よくある馬鹿な例だが、
call a
call b
のときaの中でエラーが起きてaの処理が中断したにも
関わらずbが実行されてしまうってことをしていることが
あるが大丈夫か？大丈夫ならいいんだが。
それから多分知っていると思うがErr.Descriptionは
使っておけよ。
0162デフォルトの名無しさん
NGNGユーザーＡが、コード001 のマスターを画面で修正中に
ユーザーBが、他ユーザー が コード001 を編集中とわかるようにして
修正､削除をさせないようにしてるのか､
じっさいに削除や、修正実行をユーザーA よりさきに行ったときに
エラーにしているのか？
などでしょうか...
漏れは select に with (updlock) ヒント付けて 前者にしてます。
0163デフォルトの名無しさん
NGNGどうかけばいいですか？
0164デフォルトの名無しさん
NGNGどうかけばいいですか？
0165デフォルトの名無しさん
NGNGどうかけばいいですか？
0166仕様書無しさん
NGNGPC1 PC2
Oracle Client----N/W----Oracle Server
自作ツール
クライアント側のツールからサーバーにアクセスするには
ツール側にはどんな機能が必要で、Oracle C/Sはそれぞれどんな
設定が必要なのか教えてください。よろしくお願いします！
0167デフォルトの名無しさん
NGNG[ ] [２５４] ←こういうﾃｷｽﾄﾎﾞｸｰｽで2つ目のﾎﾞｯｸｽの２の前にｶｰｿﾙがあるときに
左を押したら前のﾃｷｽﾄﾎﾞｯｸｽにﾌｫｰｶｽを移したいんですけど、
Enterとかならｷｰﾀﾞｳｿ取れるんだけど十時キーだけは取れなくて困ってます。
ﾍﾙﾌﾟ！
0168デフォルトの名無しさん
NGNGKeyPressでなくKeyDownとかKeyUp使いなされ。
ちなみにIPエディットな顧問コントロールが別にWindows側で用意されてるんじゃなかったっけ？
0169デフォルトの名無しさん
NGNG不破要るが蜜軽夜。
0170デフォルトの名無しさん
NGNGexeのアイコンをかえるにはどうしたらいいですか？
「ｐｒｏｊｅｃｔ１のプロパティ」の中に
「実行可能ファイルの作成」ってタブがあって、
アイコン選ぶところはあったんですが、フォームのアイコンしかないです。
0171名無しさん＠そうだ選挙にいこう
NGNGメインのフォームにアイコンを登録すれ
0172デフォルトの名無しさん
NGNGうおぉぉできました！ありがとうございました。
駄質問ですいませんでした。
ヘルプいれてないもんで・・・。
0173デフォルトの名無しさん
NGNGアイコンを一つ設定するだけなら>>171の方法でいいけど、
複数のアイコンを持たせるのってどうやればいいのかな。
iriaとかsusieとか、プロパティ開いてアイコンの変更ってやると、
いっぱいアイコンがあって選べるけど、あんなかんじの。
別に出来なくても困らないけど、知っておきたい。
0174デフォルトの名無しさん
NGNG不正なVBの入手の可能性がある
そんなやつにレスする必要はない
0176デフォルトの名無しさん
NGNGナローな昔だったら一週間くらいDLに時間かかるよね。
0177デフォルトの名無しさん
NGNG0179デフォルトの名無しさん
NGNG>>174,>>175,>>176
0180デフォルトの名無しさん
NGNG>>176氏ね
0181デフォルトの名無しさん
NGNGVB6ランタイムを入れれば動きますか？
0183デフォルトの名無しさん
NGNGま、あんなにバカバカCDこられても困るしね。
0184デフォルトの名無しさん
NGNGアクティブサブセットの項目が
「MSDN,技術文書・・・・・・」
がずらーと。同じのが何個も・・・。
再インストールは面倒なので、それ以外に直す方法はないですか？
0185デフォルトの名無しさん
NGNG再インスコしれよ。どんなスペックでも30分もかからんだろ。その間に風呂入れ。
0186184
NGNG0187デフォルトの名無しさん
NGNG0188184
NGNG0189デフォルトの名無しさん
NGNG.NETのヘルプでも直ってないのかなぁ…。誰か調べて。
0190デフォルトの名無しさん
NGNGどうやって治った？再インストール。
俺も一度同じ状況になったことあるのよ。
たしか会社のやつで適当にほうっておいたけど。
0192デフォルトの名無しさん
NGNG別に作るわけじゃないけど、興味本位で。
0193デフォルトの名無しさん
NGNGAAを使わない。
0194デフォルトの名無しさん
NGNG0195デフォルトの名無しさん
NGNG消してデバック用のエラーメッセージだからといって２ｃｈ用語書かないように。
0196デフォルトの名無しさん
NGNGあぁ、そんなところにそんなものがあったのか。
はじめて気づいたよ。あんがと
0197デフォルトの名無しさん
NGNG企業向けじゃなくともごくノーマルに！
MS Office を手本にすればいい
デスクトップの様々なデザインにも考慮
後はコントロールをなるだけ減らす
0198デフォルトの名無しさん
NGNG残念ながら企業向けの場合、ノーマルじゃないのを要求されるのがざら。
だけど、ノーマルな動きを知らないとはまる。
基本はノーマル、そしてそれをなるべく破らないように非ノーマルな
ユーザインタフェースを構築するようにすると良い。
0199超初心者
NGNGWith WebBrowser1
.Navigate "about:blank"
.Document.Clear
.Document.Open
.Document.Charset = "Shift_JIS"
.Document.write "(ﾟДﾟ)ｺﾞﾙｧ!<BR>(ﾟДﾟ)ｺﾞﾙｧ!<BR>(ﾟДﾟ)ｺﾞﾙｧ!"
.Document.Close
End With
を表示させて見たんだけど、一瞬だけ表示されて真っ白になっちまうよ。
何が足んないでしょ？
0200デフォルトの名無しさん
NGNG0201超初心者
NGNG.refershしたら出来ました。
答え違ったけどさんくすっす。
0202デフォルトの名無しさん
NGNG（ＭＳＤＫはＤＬできたけど、ＭＳＤＮもあるのかな？）
0203超初心者
NGNG0204超初心者
NGNGありがとっす。
>>203鬱だ…
0205ブビブビ
NGNG0206デフォルトの名無しさん
NGNG煽りｳｻﾞｲ ｼﾈ
0207デフォルトの名無しさん
NGNGなんでC#があるのにおまえらVBなの？
0208デフォルトの名無しさん
NGNGなんかC#で作ったソフト公開した？
0209デフォルトの名無しさん
NGNGアマグラマにはわかるまいて。
0210デフォルトの名無しさん
NGNGお前若いだろ。物事を自分中心にしか俯瞰できないんだね。
世界全体で最大数のVBプログラマが.NETに移行しやすくするためだよ。
普段に雑誌を読んでれば分かるはず。勉強しろよ、若いの。
0211デフォルトの名無しさん
NGNGC++でかつlinux用のならオプソで開発中だけど。
普段はJAVAでアルバイト。
時給3000円。
来月はもう500円上げてくれないと辞めちゃうけどね。
C#はテラリウムにて。
>お前若いだろ。
よくわかったね。
>世界全体で最大数のVBプログラマが.NETに移行しやすくするためだよ。
それはVB.netをMSが作った理由でしょうが？
まあVB→VB.net→C#.netって移行してくれば、
VB.netを余分に買ってくれるからね。
で､おまえらなんでVBなんて使ってるんだ？
別に流行なんて知ろうと思わないから、雑誌なんて読む必要ないと思うけど。
0212デフォルトの名無しさん
NGNG茨の道
0213デフォルトの名無しさん
NGNGLinux用に開発しているオープンソースのソフトってどんなソフトだよ？
JavaでアルバイトってJavaで何作ってるの？
0214デフォルトの名無しさん
NGNG分類的にはDSPなんで、ソースフォージ行って見てきて。
LINUX用ってのはプラットフォームがLINUXって意味ね。
LINUX使う必要性があるんでね。
まあ、VBやってる人はDSPなんか縁がないだろうけど。
PC以外のものと通信して、それを制御する・・・・
って説明でいいのかな？
携帯じゃないよ（ｗ
で、213は何作ってるの？
0215デフォルトの名無しさん
NGNGなんだけどな。
自分の技術に自信があるのならわざわざ他人を馬鹿にしないもんだけどね。
0216デフォルトの名無しさん
NGNGどっかのバカが何作ったか聞くから劣等感まみれにな(以下略
0217デフォルトの名無しさん
NGNG0218デフォルトの名無しさん
NGNGデブ専用プログラマー
0219デフォルトの名無しさん
NGNGお前、DSP知らないってそれいくら何でも笑えない。
0220即レス
NGNG>>217
http://www.heg.co.jp/know/dsp/dsp1-1.htm
0221デフォルトの名無しさん
NGNG初心者スレッドで
「○○知らないの？」と言って悦に浸るぐらいしかないぐらい
底辺なんですね。あなた。
0222デフォルトの名無しさん
NGNGというかVBでDSPはできんだろう。
0223デフォルトの名無しさん
NGNG0224デフォルトの名無しさん
NGNG自分のことじゃん。
217 名前：デフォルトの名無しさん 投稿日：2002/05/11(土) 19:53
DSPって何？
218 名前：デフォルトの名無しさん 投稿日：2002/05/11(土) 19:54
さぁ
デブ専用プログラマー
PC初心者
http://pc.2ch.net/pcqa/
に行けば楽しいと思うよ。
0225デフォルトの名無しさん
NGNGお前が書いたレス見ろよ・・・。
0226デフォルトの名無しさん
NGNGへ？俺は初心者スレッドで質問されたら
「そんなこと知らないの？いくらなんでも笑えない」なんていいませんが？
必死だね。あなた。初心者スレッドでなにいきがってるの？
初心者にアドバイスできないのならどっか他に行けば？
0227デフォルトの名無しさん
NGNG0229＿
NGNGフォーム上にドラッグ＆ドロップで持ってきたファイルの
フルパスを取得したいんですが、どうやればいいんでしょう？
0231214
NGNG214以降は何も書いてませんのであしからず。
DSPは信号処理です。
MP3のエンコード、デコードなんかもDSP系です。
で､結局.netはC#のほうがいいんですね？
VC#.netを買うかVB.netを買うかは大きいと思いましてね。
テラリウムのためにその決断を下すのは浅はかですからね。
0232デフォルトの名無しさん
NGNG今ひとつ詰まってしまっていることがあるのです。
入力されたデータをVBのコードとして実行することはできないのでしょうか
つまりTextに Label1.Caption = Label2.Caption
と書かれていたら、それを実際にコードとして実行する、ということです。
やっぱり無理なんでしょうか。
0234デフォルトの名無しさん
NGNG手の凝んだ自作自演だな。
0235デフォルトの名無しさん
NGNGできます。
入力された文字列を解析して、その通りの処理を記述するように
すればいいです。
変数の宣言ができるように、あらかじめメモリを確保しておく必要があります。
0236デフォルトの名無しさん
NGNGよく見るとageているのはこいつだけ。（劇藁嘲笑
0237デフォルトの名無しさん
NGNG初心者スレでいきがっていた自分に気付いて恥ずかしくなったのでしょう。
0238即レス
NGNG俺はNET使ってないがC#とVBNETならなじみのある方でいいだろう。
>>232
基本的に無理。
VBAのDLL使えば出来そうだが。
>>235の方法でも出来るがｗ
0239229
NGNGすみません。それをやってみたんですが
Formにドラッグしてる状態でマウスカーソルがいかにも「できません」
みたいな表示（○の中に/みたいな）になって、実際やってもできませんが・・・。
0240デフォルトの名無しさん
NGNGちみ、そんなのできたらVBインタープリタに高い金を出す意味がなかろう。
0241214
NGNG高校生に負けてそんなに悔しいですか？？
低脳な大人はかわいそうですね。
４０，５０になったら仕事もない上に､趣味もないんですか？
何のために生きてるんですか？
税金払うためですか？
がんばって働いてください。
0242デフォルトの名無しさん
NGNGPerlとかなら出来るけどね。
0243デフォルトの名無しさん
NGNGだから煽りに乗るなって、、、放置しろよ。
0244デフォルトの名無しさん
NGNG制限付のインタープリタでよければ､作った方が安い。
でも、どうがんばってもコード中のシンボルにアクセスするのは無理だよね？
VB.Netはできるけど。
0245デフォルトの名無しさん
NGNG若さ自慢は沢山です。
0246デフォルトの名無しさん
NGNG0248241
NGNG偽者ってバレてる？
0249デフォルトの名無しさん
NGNG困ったら高校生だからとかお涙頂戴するあたりがまた情けないね。
# 自分で喧嘩かしかけといて旗色が悪くなると周りを巻き込むなんて
人として終わってるよな。
0250デフォルトの名無しさん
NGNGForm の OLEDropMode を vbOLEDropManual にしておかないと。
0251プルプル・・・プルプル
NGNG煽られるのが嫌なのなら煽らなけりゃいいのじゃ？
煽られるのが嫌なのなら煽らなけりゃいいのじゃ？
煽られるのが嫌なのなら煽らなけりゃいいのじゃ？
煽られるのが嫌なのなら煽らなけりゃいいのじゃ？
煽られるのが嫌なのなら煽らなけりゃいいのじゃ？
煽られるのが嫌なのなら煽らなけりゃいいのじゃ？
煽られるのが嫌なのなら煽らなけりゃいいのじゃ？
手がプルプル（ｗ
0252デフォルトの名無しさん
NGNG|＼（ﾟ ωﾟ ） ／|
| ｜
| ももんか！ .|
| |
|／ ￣￣￣ ＼.|
' '
0255デフォルトの名無しさん
NGNG試しに Form1.OLEDropMode=vbOLEDropManual にして次のコードを
実行して、適当なファイル1個をドラッグ&ドロップしたらドロップした時点で
Captionがファイル名になったけど。。
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Caption = Data.Files.Item(1)
End Sub
0256＠＠＠
NGNGやり方がわかりません。APIとか使わないと無理でしょうか？
ご教授お願いします。
0257デフォルトの名無しさん
NGNGActiveControl
0258観鈴
NGNGshowでだした新しいフォームに
変数引渡しをしたいのですが
どうしたらよいでしょうか。
0260デフォルトの名無しさん
NGNG0261観鈴
NGNGわかんないです･･･。
もうちょっと調べてみますー。
0262デフォルトの名無しさん
NGNGこーゆーことだよ。
Form1,Form2作成。
Form2のコード
Function UserShow(ByVal Title As String, Optional ByVal Mode As Variant = vbModeless, Optional OwnerForm As Variant = Nothing) As Long
Me.Caption = Title
Me.Show Mode, OwnerForm
End Function
Form2をShowする時に、代わりにUserShowを使う。
0264観鈴
NGNGうーんうーん
Usershowっていう関数を作ってしまえって事なんですか？
色々調べててcallなのかな、とか思ってたりしてたんですが。。。
難しいですけれどがんばります。
PGまでありがとうございます。
0265デフォルトの名無しさん
NGNG入力として文字列が与えられ
それをもとに木をつくれとの事なのですが
どのようにすればいいのでしょうか？
文字列の解析の仕方は既に友人に教えてもらいました。
それと、当方プログラム歴3日です。
ソースコードを提出するので、動きそうであればいいのですが。
0266デフォルトの名無しさん
NGNGあらあら、宿題なのね？
http://pc.2ch.net/test/read.cgi/tech/1020785918/l50
0267デフォルトの名無しさん
NGNG意味不明。具体的に説明してくれないとわからんぞ。
0268デフォルトの名無しさん
NGNG0269デフォルトの名無しさん
NGNGPublic変数にするのはダメなの？ 変数名がHogeの場合、
Form1.Hoge で Form2 から参照できるけど。
あと、標準モジュールで宣言するのも一般的。
0271デフォルトの名無しさん
NGNG主部と述部があります。
主部が、名詞と形容詞みないになります。
例えば、「親切な名無しさんが宿題を教えてくれた」
とあった場合、
各単語がどういう品詞か分類する事ができます。
「親切な名無しさんが宿題を教えてくれた」は
「親切な名無しさん」「が」「宿題を教えてくれた」
に分けられます。
「親切な名無しさん」は
「親切」「な」「名無しさん」
にわけられます。
これらを木として保存しろと言う事だと思います。
0272デフォルトの名無しさん
NGNG愉快なはなこがジャンプした。
0273デフォルトの名無しさん
NGNG「親切な」（形動）「名無しさん」（固名）だろうな。
「親切な」「名無しさん」「が」「宿題を」「教えて」「くれた」だね。
・・・これをVBにやらせるのか？？
0274デフォルトの名無しさん
NGNG0275デフォルトの名無しさん
NGNG0277デフォルトの名無しさん
NGNG0278デフォルトの名無しさん
NGNGこうやって分解する関数はもう作ってもらいました。
アルゴリズムもプリントで配布されたので、
その関数を作った人は、作るだけなら簡単だと言ってました。
0279デフォルトの名無しさん
NGNGサボりまくってこの様です
0280デフォルトの名無しさん
NGNG＞アルゴリズムもプリントで配布されたので、
お前、全然違うアルゴリズムが出てきたら
「プリントとは違うので・・・」
とほざくつもりだったのか？
0281デフォルトの名無しさん
NGNGそれはともかく、関数ができあがってるならあとは簡単なのでは？
「木」の形式がわかってればできるんじゃないの？
0282デフォルトの名無しさん
NGNG違いますよー
木を作るっていうのはどういう風にすればいいのか聞きたいのです。
(((親切 な） 名無しさん が) ((宿題 を) 教えてくれた))
プリントによると､こういうのが木だそうです。
0283デフォルトの名無しさん
NGNGその友達はマニアなんです。
ほとんどの言語を知ってるから、
どんな言語でも1時間で使えるようになると
豪語してました。
0284デフォルトの名無しさん
NGNG0285デフォルトの名無しさん
NGNG0286デフォルトの名無しさん
NGNGLisp かよ。
0287デフォルトの名無しさん
NGNG品詞を構造化するわけだから、形態素解析と文法書が必要。
素人には無理。
形態素片はともかく、まず日本語わかってないと無理。
0288デフォルトの名無しさん
NGNGLisp かよ。
0289デフォルトの名無しさん
NGNGその友だちはｽｰﾊﾟｰﾊｶｰですか？
0290デフォルトの名無しさん
NGNGSICPに英語だけど、自然言語パーサのサンプルが載ってるよ
0291デフォルトの名無しさん
NGNGサンプルは全部lispとかいう言語で書かれていました。
でも、unixよくわからないし、インターフェースが作れないので
VBしか残されていないんです。
そして､無理でもやらないとやばいんです。
0292デフォルトの名無しさん
NGNGもう神です
0293デフォルトの名無しさん
NGNG素人丸出し（ｗ
0294糞レス
NGNG２ちゃんで宿題処理か ｲｲ時代な
何言いたいか わかるな？
0295デフォルトの名無しさん
NGNGLISPとVBは性格を全く異にする言語。
物にもよるけど死ぬよ？
0296デフォルトの名無しさん
NGNG構造化手続き型言語しか知らん奴の典型やね。ｗ
昔の俺がそうだった。
0297糞レス
NGNG個人的な事片付けんなら
オフ会でもやれよ おまえらダケで
0298デフォルトの名無しさん
NGNGこの先VBは希望が無いから、他の言語探したほうがいいよ。
課題には別にGUIとか必要ないだろうから、素のC言語でもいいし、
そのほうがナンボかマシ。
0299デフォルトの名無しさん
NGNG他に何があるんだと､書いてみるテスト
0300デフォルトの名無しさん
NGNG0301デフォルトの名無しさん
NGNGオマエ１ダロ
自作自演が得意の（´Д｀；）
0302デフォルトの名無しさん
NGNG0303デフォルトの名無しさん
NGNGPrologとかXSLとか。
0304デフォルトの名無しさん
NGNG>構造化手続き型言語しか知らん奴の典型やね。ｗ
他に何があるんだと､書いてみるテスト
0305デフォルトの名無しさん
NGNG気づけよ
この板に糞スレが元ネタだぞ
0306デフォルトの名無しさん
NGNG愛とか・・・勇気とか・・・?
0307デフォルトの名無しさん
NGNGXSLってプログラミング言語ではないと思われ。
他には？
0308デフォルトの名無しさん
NGNGあいつはプログラミング言語に限定していないと思われ。
0309糞レス ◆XYlAt4tU
NGNG0310デフォルトの名無しさん
NGNG0311デフォルトの名無しさん
NGNGXSLは言語になるらしい。何かの本で読んだ。
条件分岐があれば言語だとか書いてあった。
0312デフォルトの名無しさん
NGNG論理型（Prologとか）、関数型（LISPとか）などなど。
と、ギリギリの答えを書いてみるテスト
0313デフォルトの名無しさん
NGNGだからそれがコピペのネタなんだよ
0314デフォルトの名無しさん
NGNGs/言語/プログラミング言語/gと置き換えて・・・・
じゃあSQLもプログラミング言語にあたいするの？
あれは違うような・・・
0315デフォルトの名無しさん
NGNGつまり世の中にプログラミング言語は3種類しかないのか
と聞いてみるテスト
0316デフォルトの名無しさん
NGNGおまえがコピペなんだよ。
はやく寝ろ
0317糞レス ◆KGXXSJYw
NGNGしばらく放置 ｲｲな厨達
0318デフォルトの名無しさん
NGNG0319デフォルトの名無しさん
NGNGshemeとかRPGとか（これはよく知らんな）。
ALGOLとかCの子孫どもは構造化続き型言語だと認識。
0320デフォルトの名無しさん
NGNG0321デフォルトの名無しさん
NGNGVB厨のがまだましだな
しばらく放置 ｲｲなVB厨
0322デフォルトの名無しさん
NGNGなんか無理っぽいので、全部やってもらう事にしました。
どうもありがとうございました。
0323デフォルトの名無しさん
NGNG結局プリントの中身は謎の中。
0324デフォルトの名無しさん
NGNG0325糞レス ◆KGXXSJYw
NGNG0326デフォルトの名無しさん
NGNGソースキボーン
0327デフォルトの名無しさん
NGNGhttp://pc.2ch.net/test/read.cgi/tech/1020785918/l50
0328デフォルトの名無しさん
NGNG0329糞レス ◆KGXXSJYw
NGNGオマエだなｱﾗｼ君 ﾈﾅｻｲ
0330デフォルトの名無しさん
NGNGソースキボーン
0331（ ´_ゝ`）
NGNG0332（ ´_ゝ`）
NGNG0333（ ´_ゝ`）
NGNG0334（ ´_ゝ`）
NGNG0335（ ´_ゝ`）
NGNG0336
NGNGIEの右下らへんにある、処理が現在どこまで完了したかを知らせるあれ
のようなものをつけたいんですが、どうしたらいいんでしょう？
つまるところは、WebBrowserで読み込まれているのが、現在どこまで
いっているのかを取得したいんですが。
0337（ ´_ゝ`）
NGNGお前には無理
0338デフォルトの名無しさん
NGNGonProgressChange
でできるだろ。
>>337
お前もわからなかったんだろ。（ﾌﾟ
0339デフォルトの名無しさん
NGNG切符を使って
今荒らしがいるようです
0340デフォルトの名無しさん
NGNG検索等してもうまくわかりません。
ウィンドウハンドル取得をFindWindowでしてから
SendMessageやPostMessageを使ってメッセージを送る・・・
みたいなことは色々みてまわってわかったのですが
具体的にどうやればいいのやら・・・。
たとえばメモ帳のテキストに別アプリから↑のやり方で文を入力させたりできますか？
フヌケな俺ですがよろしくおねがいします。
0341デフォルトの名無しさん
NGNG可能。
っていうか、メモ帳がサンプル第一位。
0342ななし
NGNGユーザー定義型（C言語で言うところの、構造体）をより発展させたものがクラス。
という理解でよいのでは？（ちなみに、俺はC言語はわかりません。ごめんなさい）
>>40さんも書いておられるように、クラスにはメソッドやプロパティを実装できる。
他の人の説明もそれぞれに正しいと思いますけど、初心者には理解できないのでは？
「わかっている」人には、問題ないけれど、わかっている人は最初から質問して来ない
訳だし・・・。
0343ななし
NGNG> VBでDAOを使ってMDBにアクセスするアプリケーションをつかって
SQL Server または、MSDEではダメなのですか？
(顧客からの強い要望、とかなら仕方ないですけど)
Accessしかわからない、VBAを使えない、とかなら、DAO + Jet に頼らざるを得ないのは
わかりますけど、文面を拝見する限り、VBはある程度の技量に達しておられるようですし、
Jetなんかにこだわる理由が俺にはわかりません。
0344ななし
NGNG技術評論社から出ている、「300」シリーズの第3作（正確な書名は失念）に、
まんまのサンプルが掲載されてます。
本を買うお金もケチりたいなら、↓こちら。
ttp://www.vbvbvb.com/jp/index.html
調べる労力も厭うなら、あきらめてください。
（そういう人はプログラミングの適性がないと思います）
0345ななし
NGNG>>344
ごめん、最後の2行を読み落としてました。m(_ _)m
> たとえばメモ帳のテキストに別アプリから↑のやり方で文を入力させたりできますか？
> フヌケな俺ですがよろしくおねがいします。
これは、出来るかどうか、俺にはわかりません。（自信なし）
0346ななし
NGNG自己フォローです。
相手のアプリがCOMインターフェイスを公開していれば、オートメーションで
簡単に操作できるんですが、それは相手次第です。
メモ帳（Notepad.EXE）の場合は、当然、×。
0347ななし
NGNGファイルの種類（例: *.TXT, *.DOC, *.BMP ......e.t.c.）によって
ある程度の傾向はつかめるとは思いますが、参考程度にしかならないと
思います。
他の人も書いておられるように、「やって見なけりゃわからない」が正解
ですね。(笑)
0349ななし
NGNGそれとも、*.OCXを自作しちゃうとか？（むずかしいかも？）
グレープシティの*.OCXにそういう機能はないですか？
（フォロー希望）
0350デフォルトの名無しさん
NGNGコンポーネント 化 されているからな。
実際出来る。アタッチしたよ。
感覚的にはTreeViewと同じ。
a :TMenuItem;
begin
a := TMenuItem.Create(MainMenu1);
a.Caption := '追加';
MainMenu1.Items.Add(a);
end;
0351デフォルトの名無しさん
NGNGいいなぁ。VB.NETでは出来るのかしら？
0352デフォルトの名無しさん
NGNG0353デフォルトの名無しさん
NGNGMainMenuってリソース？
Framework化されてると踏んでるんだけど・・・。
0355デフォルトの名無しさん
NGNG#プログラ
作ってみましたワイ。
0356デフォルトの名無しさん
NGNG原稿状態で流してもうた。ごめんなさい。
２ｃｈのIRCサーバ（irc.2ch.net）に#プログラっつーチャンネル作ってみました。
0357コピペ名人
NGNGVBは悪くない。
RADとしてはC#が無ければ、最強だと思う。
もちろんDelphiもいい。
ただ、仕事をVB専門でやってる奴のプライドを疑いたい。
それがおまえの限界かと。
そんな安月給でいいのかと。
俺もマジレスすると、
仕事をVBだけでやってる奴なんているのか？
そんな奴いたら、そいつの人生暗すぎる。
0358デフォルトの名無しさん
NGNGどうでも良いけど言ってること理にかなってるから論争にはならんと思うぞ？
0359デフォルトの名無しさん
NGNG少なくても派遣で登録してる奴にVBだけの奴はいない。
VBの仕事なんて無いからな。
0360まとれす ◆mato/KTI
NGNG>>340
つか、そこまでわかってるなら、あとはサンプルを書くだけだと思うぞ
>>342
VB.NETの構造体には、メソッドやプロパティを定義できたりするな
>>343
正しい。MDBだとよく壊れるしな
>>345
WM_CHARをポストするか、VB的にやるならSendKeysでいいと思うぞ
>>349
Activeなんとかってのが確かあったな
>>350
できるぞ。そゆサンプルがMSにある
0361デフォルトの名無しさん
NGNG0362デフォルトの名無しさん
NGNG360に書いてあることが理解できないのなら知る必要ないと思うよ。
0363まとれす ◆mato/KTI
NGNGいっぱいありすぎて書ききれないくらい変わったぞ。MSDNの「Visual Basic 言語の新機能」を
見てみると、
「継承」、「例外処理」、「オーバーロード」、「プロパティとメソッドのオーバーライド」
「コンストラクタとデストラクタ」、「データ型」、「インターフェイス」、「デリゲート」
「共有メンバ」、「参照」、「名前空間」、「アセンブリ」、「属性」
などが紹介されているな。もちろん、これ以外にもコンポーネント（CLR）も変わってるし、
ADOなどのミドルウェアも変わってる。
はっきりいって、別の言語だと思ったほうがよいかもしれん
0364デフォルトの名無しさん
NGNG0365即レス
NGNG思うんだけど、実際みんなどうする？
受注開発ならまだ何とかなるだろうけど、
オンライン作家とかは？
俺は静観するつもりなんだけどどうよ。>ALL
0366まとれす ◆mato/KTI
NGNGVBのバージョンは？ 6.0以降から正式サポートだったか？ で、6.0では、Variant のひとつ
であるという罠。VB.NET では、Currency もなくなるし、これしかないな
>>365
俺はオンラインソフトなんか作ってないけど、WindowsUpdateにも出てきてるし、このブロード
バンド時代（ださい台詞）だし、ダウンロードしてくれ！ で済むと思うぞ
0367デフォルトの名無しさん
NGNG誰もがブロードバンド環境にあるわけじゃないし.NETのランタイムって何MBだ？
0369即レス
NGNGむう。そうなんだよな。たしか1年前ぐらいで
ISDN以下の普及率が40-50%ぐらいだったか。（うろ覚え）
VB6.0のランタイムすらいれてない人が多いのに
20MBはキツイよなあ。
言語自体にはかなり興味あるんだが。萎え。
>>368
ランタイム不要なコンパイルできるのってC#だけだっけ？
0370ななし
NGNG取りあえず、フォロー感謝。
> WM_CHARをポストするか、VB的にやるならSendKeysでいいと思うぞ
あれ？SendKeysってNumLock問題とかでマズくありません？
SendKeys よりは、keybd_eventの方がいいと思うけど・・・。
まあ、どちらにしても、仕事で使う（元の質問者が求めているような実装をする）
ことはまずないと思いますが。(苦笑)
0371まとれす ◆mato/KTI
NGNGC#でもだめ。Visual C++でアンマネージドだけだな
>>370
NumLock問題に加え、CapsLock問題まである。だが、VBの機能のみなら、それが限界。
APIを使ってもいいなら、keybd_eventでもSendInputでもウィンドウメッセージでも好きなのを
使えばいい
0372
NGNGそのうちIE6のコンポーネントとかにしてまとめて配布（雑誌の付録CD）じゃねーの
0373デフォルトの名無しさん
NGNG思いつきでいいかげんなこと言うのやめたら？
冗談としてもまったく面白くないね。
0375372ですが...
NGNGどこが気に障ったのか正直理解できません(^_^；
ありうる話だと思うんですよ。
まとれすさんのSPに含まれるってのが配布しやすいかもしれないけど、
一般ユーザの端末にインストールするならやっぱIEじゃないのかなあ。
0376デフォルトの名無しさん
NGNG一般ユーザの場合、市販されているゲームやビジネスソフトで
インストールする人も多いんじゃないかな。
(まだ.NET使っている市販ソフトはなさそうだけどね)
0377観鈴
NGNGAccessからデータをロードし
自分の思うようなtextboxにいれたいのですが
どのようにPGをかいたらよいのかわかりません。
レコード変数を使用するんだとはわかっていますけれど
そこからが･･･。
どうかご教授ください。
0378デフォルトの名無しさん
NGNG372をどう読めば冗談として読めるのか不思議
0379デフォルトの名無しさん
NGNGメモ帳にかいてある文字から
一行分の内容を分けて、他の配列などに割り振りたいんですが、
namae1 , namae2 , namae3
といった感じにコンマ区切りな場合はいいんですが、
name1 name2 name3
といった空白での場合はどうやってわければよいのでしょうか。
超初心者的な質問ですみませぬ。
0380デフォルトの名無しさん
NGNGセパレータを,から に変えて処理すれば？
0381３７９
NGNG読み込みにinput を使ってるので、
勝手にコンマで認識してくれてたので、
それに頼ってセパレータとかいうの知りませんでしたｗ
そのセパレータってので、分割の設定変更できるんですね。
ありがとうございました! その方向で調べてみます。
0382デフォルトの名無しさん
NGNG環境はVB6 Win98SE です
たとえばメモ帳が、txtに関連付けられている場合に
txtを実行したら、メモ帳が開いて同時に実行したテキストが読み込まれますよね。
それと同じようなことをVBでつくりたいんですが・・・。
どうやればいいんでしょうか？
0383まとれす ◆mato/KTI
NGNGかなり説明が面倒になるから、使いたいミドルウェアを選んで、サンプルを探した
方がいいぞ
>>379
Line Inputで一行単位で読み込めば、好きなように分割できるぞ
0384まとれす ◆mato/KTI
NGNGよくわからんが、自分で作成したアプリにドキュメントを関連付けたい、ということか？
それなら、レジストリに登録する必要がある。まず、HKCUの.txtを探して、そこから
順に追っていってみろ
で、関連付けができたら、Command関数でファイル名を取得すればいい
0385デフォルトの名無しさん
NGNGNET.FrameWorkがOSに含まれるのは、NT6.0＝BlackCombから。
つまり、最短でも2005年以降ってことか。
0386デフォルトの名無しさん
NGNGVB6よりパフォーマンスはどう？だれか比べてないかしら？
0387デフォルトの名無しさん
NGNGその頃になればC#も浸透してるかな？
正直、中途半端に使ってるC++より、一気にC#に変えたほうがいい？
0388３７９
NGNGサンクス！
そうそう、始め、Input と LineInput 以外の方法
ムダに探してたんですよ。
一気に読み込んでからじっくりわけてきます。
0389デフォルトの名無しさん
NGNGものにもよるが、比較するのは難しいかも。
0390デフォルトの名無しさん
NGNG知りたいときはどういう書式になるでしょうか？
0391デフォルトの名無しさん
NGNGa[n]
0392デフォルトの名無しさん
NGNG簡単なループとかでいいからさ。
0393デフォルトの名無しさん
NGNGMID関数を使うのが普通かな。
0394デフォルトの名無しさん
NGNG0395デフォルトの名無しさん
NGNG0396デフォルトの名無しさん
NGNG萌えてらっしゃい
0397デフォルトの名無しさん
NGNGいやぁ、ｼﾝﾀｸｽｴﾗが出るもんで・・・
>>393-394
ｻﾝｸｽです。
0398観鈴
NGNGそうですか
ご返答どうもです。
苦戦してます。。。
0399デフォルトの名無しさん
NGNGさっさとゴールしろ
0400デフォルトの名無しさん
NGNGVBでどう書いたらよいでしょうか？
0401デフォルトの名無しさん
NGNG0402まとれす ◆mato/KTI
NGNGほー。そのロードマップは、どこの情報だ？ ま、どっちみち、MSの言うことなんて
信用できんが
>>386
パフォーマンスがいい、とは言えんな。ただで落とせるんだし、試してみたらどうだ？
>>387
諸刃の剣だな。まったく失敗する可能性も、ないわけじゃない
>>391
VB.NETでもそうは書けんぞ。s.Chars(n) だな
>>398
どうしてもわからんかったら、使いたいミドルウェアを指定して、再度質問しろ。わかる
範囲で答えてやる
0403デフォルトの名無しさん
NGNGえらそうだな。オイ
0404デフォルトの名無しさん
NGNGMSDN会員じゃないけど、タダで落とせるん？
0405まとれす ◆mato/KTI
NGNGぜんぜん初心者質問じゃないぞ。俺はまったくマルチメディア系は駄目だが、
こんなのを見つけたぞ
http://www.microsoft.com/japan/msdn/directx/japan/dxvb/dxvbdshow.asp
>>403
そういうキャラだからな
>>404
.NET Framework ならな。VB.NETのコンパイラも含まれてるぞ
0406デフォルトの名無しさん
NGNGえらそうだな、このやろ
0407デフォルトの名無しさん
NGNGその根性が気に入らない。
0408デフォルトの名無しさん
NGNG0409デフォルトの名無しさん
NGNG簡単ＹＯ
0410デフォルトの名無しさん
NGNG0411デフォルトの名無しさん
NGNGカメレスだな
0412デフォルトの名無しさん
NGNG0413デフォルトの名無しさん
NGNGIEはWebBrowser、DirectAnimation(DirectX)、その他ある
MediaPlayerもそうだ(6.4のものは、DHTML上でも扱える便利)
使えるという意味はコントロール自体を配布しなくていい事だ
ほぼWin98以上ならインストールされているだろう
まだいっぱいある SDK見てごらん
0414デフォルトの名無しさん
NGNGうん分かった。
ちょっと待っていて。
0415デフォルトの名無しさん
NGNG0416デフォルトの名無しさん
NGNG今ふたなり見てるんだから（´Д｀；）
0417デフォルトの名無しさん
NGNG82を出力したいんですが、できません。
MSComm1.output = chr$(82) とすると &H00 が出力されています。
MSComm1.output = chr$(80)はできます。どなたかおわかりの方教えて
ください。
0418デフォルトの名無しさん
NGNGまさかﾃﾞｰﾀﾋﾞｯﾄが7ﾋﾞｯﾄ(以下略)
0419デフォルトの名無しさん
NGNG0420名無し＠新人
NGNG自分で計算機みたいな物を作ろうと思ってプログラム
書いたのですが、どうしても上手くいきません。
Private Sub Command5_Click()
Dim strHandan
Dim intT1 As Integer
Dim intT2 As Integer
Dim intAns As Integer
Dim strMsg As String
If Label2.Caption = "" Or Text1.Text = "" Or Text2.Text = "" Then
strMsg = MsgBox("正しく入力してください", vbOKOnly, "Error")
Exit Sub
Else
strHandan = Label2.Caption
intT1 = Text1.Text
intT2 = Text2.Text
Select Case strHandan
Case "+"
intAns = intT1 + intT2
Case "-"
intAns = intT1 - intT2
Case "*"
intAns = intT1 * intT2
Case "/"
Do Until intT1 < intT2
intT1 = intT1 - intT2
intAns = intAns + 1
Loop
Case Else
strMsg = MsgBox("演算子を選んでください", vbOKOnly, "Error")
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Select
End If
End Sub
これって何故動かないのでしょうか？
あと、簡潔にかけるところをお教え願いたいです。
よろしくお願いします
説明不足な所は言ってください。詳しく書きます
0421まとれす ◆mato/KTI
NGNG試せる環境がない・・・。あ、いっとくけど、&H をつけないと、16進にならんぞ
>>419
移行したぞ
>>420
何がどう動かないのか書け
0422デフォルトの名無しさん
NGNG移行したってのがどういう状態か分からんが、
VB.NETを使っている人、勉強している人はいるけど、
.NET自体が普及せんことには、主流にはならんだろう。
0423420です
NGNG計算は上手く行ってたんですが、表示させてない
事に気づきました。
では、頑張ります
0424デフォルトの名無しさん
NGNGStringで定義した変数に
String * 20
といったようにバイト数を設定しているのですが、
それ以下の大きさの文字を入れると、
”ああああ ”
というように後ろに余分なスペースがついてしまい困っています。
簡単に
”ああああ”
とだけに変換できる方法はあるんでしょうか・
0425デフォルトの名無しさん
NGNG固定長文字列使わないって手もあるけど、そうもいかないなら、
RTrim$(string) でできたっけかな？
Replace(string,vbNullchar,"")でもいいかも。
基本に忠実にLeft$(string,instr(string,vbNullChar)-1)って
やるとエラー処理が面倒な罠。
0426デフォルトの名無しさん
NGNGleft$(text1.text,m)
0427デフォルトの名無しさん
NGNG0428デフォルトの名無しさん
NGNGそれ。答えになってないっしょ。
0429デフォルトの名無しさん
NGNG50M位
0430デフォルトの名無しさん
NGNG従来のVBとObjectPascal程度違う。
0431仕様書無しさん
NGNG2005年にMSは.NET ServerでJ2EEを駆逐する予定。
2005年に向けてみんな頑張ってるのだ。
0432デフォルトの名無しさん
NGNGexeのみで渡しましたが動かないようです。
やはりインストーラをつけないとだめでしょうか？
0433デフォルトの名無しさん
NGNGCより日本語を。
0434４２４
NGNGご指導ありがとうございまっす！
その辺の命令参考に、ヘルプも確認しながらがんばってきます。
0435デフォルトの名無しさん
NGNGディストリビューションWizardがあるだろう？
dllのバージョンでコンポーネントのインタフェースが変わって
互換性が無いば場合があるからね。
0436デフォルトの名無しさん
NGNGえぇっと。Setup形式にせず、exeで配布したいのです。
かちゅーしゃのような感じでしょうか。
いきなりexe起動ですぐ使えるようにしたいのです
そのdllやocxとかとかを同じフォルダに入れとけばうまくいく
みたいな話を聞きましたが、どうなのでしょうか？
0437デフォルトの名無しさん
NGNGそのとおり。必要なサーバをアプリケーションEXEと同じフォルダに
いれておけばレジストリにサーバのパスを検索しに行かなくていいので。
でも依存性ってDependencyWalkerとかDistWizardとか使わんとわからないでしょ？
0438デフォルトの名無しさん
NGNGVC使いま・・・
0439デフォルトの名無しさん
NGNGttp://www.aparto-soft.com/eXeries/eXeed/
これVB製なんだけど、自己解凍書庫を解凍するだけで
貴方が言ってるような配布の仕方だよ。dllはアプリケーションの
フォルダに入ってる。
ps.XMLエディタとして、かなり使い勝手がいいエディタですよ。
0440まとれす ◆mato/KTI
NGNGすげー落ちだなおい
>>424
Trimしろ。それから、バイト数を設定しているつもりのようだが、文字数が設定されている
という罠
>>427
前に書いたぞ。参考にすれ
>>432
ものと環境による
>>436
無理だ
>>437
それは間違いだ。どちらにせよ、レジストリにパスを探しにいく。OCXを同じフォルダに置いて
おくと動作するんで、間違えやすいところだが、未登録のOCXは実行時に登録される、という
性質を利用しているだけだ。Side-By-Sideを使わない限り無理だと覚えておけ
0441デフォルトの名無しさん
NGNG0442デフォルトの名無しさん
NGNG"kaitou4649ne"から、"4649"だけを抜き出すような。
文字数分だけループ回して一文字ずつ数字かアルファベットかチェックして
数字だったら抜き出す～みたいに書かないとだめですか？
0443デフォルトの名無しさん
NGNG0444デフォルトの名無しさん
NGNG0445デフォルトの名無しさん
NGNGまぁ。俺はそういうやり方したよ。val使わずにな。うむ。お互いがんばろー
0446U-名無しさん
NGNGval関数でもいいのならそれでやればいいけど。
0447デフォルトの名無しさん
NGNG0448デフォルトの名無しさん
NGNGヒットしたのは数件だけ。
2002/04/19公開のサンプルコードが１個あったけど、
実行時バインディングに変えたら、漢字をそのまま取得(笑)。
Excel連携って初めてだから、どこかミスってるんだと思うけど。
0449デフォルトの名無しさん
NGNGExcel入っていないと動かんやんけ。
0450デフォルトの名無しさん
NGNG0451400
NGNGありがとうございました！
0452448
NGNG不安定なのは困るけど、どっちもどっちかな。
0453まとれす ◆mato/KTI
NGNG俺もVal関数でいいかと思ったんだが、試してみたら駄目だった。ヘルプを読んでみると、
数字以外の文字列が見つかった時点で、検索を止めてしまうらしい。というわけで、
今回の >>442 の質問では使えないようだな
>>448
ちょっと目の付け所が違ったな。IME系のAPIだ。ImmGetCompositionString()で検索
してみろ
>>452
ん？APIを使うのが嫌だ、ってことか？IME98あたりなら、タイプライブラリが公開されて
るんだが・・・
0454448
NGNG一発で検索できました。
APIがいやとかじゃなくて、サブクラス化がこわかったのです。
素人なもんで。
でも、確定後取得でよかったので、サブクラスは必要なかったです。
0455デフォルトの名無しさん
NGNGPrinter.ScaleMode をTwipsにするとか、ミリメートルにするとか？
それとも、Printer.ScaleWidth, .ScaleHeightを指定するとか？
さらに、余白の問題もあるんですけどね。
0456デフォルトの名無しさん
NGNG0457デフォルトの名無しさん
NGNGPrivate Sub cmdOK_Click()
rtbChat.Text = rtbChat.Text & txtSend.Text
End Sub
みたいなしょりをしてます。これで、入力があったときに
最新行に行かせたいのですけど、
rtbChat.SelStart = Len(rtbChat)
or
rtbChat.SelStart = Len(rtbChat.Text)
ではうまくいきません。どうしてですか？
0458デフォルトの名無しさん
NGNG頭使えよ。
数字が出てくるまでループで回して、そこでValで終了。
ま、どっちみち不完全だがな。
Val関数でもエラー発生するパターンがあるからな。
0459デフォルトの名無しさん
NGNGやってみたけどうまくいったよ？
まさかMultiLineがTrueになってないとか、そういうオチじゃないよね。
つか、それだと画面がチラつくから、
SelStartを末尾に移動してから、SelTextで追加文字列を表示させたほうがいいよ。
ただ、そもそもの問題として、RichTextBoxはNT系OSで表示が
ヘタれたりするから使わない方がいいと思われ。
0460デフォルトの名無しさん
NGNGForm1.Icon = LoadPicture("AppIcon.ico")
ですけど、ここにBMPのデータやPictureClipの画像を
入れたいときにはどうしたいいのでしょうか。
BMP -> ICO の変換関数があるのでしょうか？
0461460
NGNG0462デフォルトの名無しさん
NGNGPicture Clip コントロールを多数使いたいのですけど、
フォームデザイン時に何個も突っ込むのはいまいちです。
プログラム実行しに動的にオブジェクトを作ることかできますか。
0463デフォルトの名無しさん
NGNG0464デフォルトの名無しさん
NGNG0465デフォルトの名無しさん
NGNG別々のフォーム（同時に表示される事はない）にて、同一の名前で同じ動作をさせたい
コントロールがあります。
今は、それぞれのフォームのインスタンスを作る時に同じ名前にして、標準モジュールに
処理ルーチンを書き、それぞれのフォームのイベントを受け取った時点でそこに飛ばす
ようにしています。
コードで書くと、
Set Form = New FormA 'FormA という名前でデザインしてるとして
＝＝＝FormAのコード 'FormBにも同じものを記述する
Private Sub command_click(Index as Integer)
CommandClick(Index)
End Sub
＝＝＝標準モジュールのコード
Public Sub CommandClick(Index as Integer)
'ここにいろいろな処理を書く
'コントロールはForm.～～で参照する。
End Sub
このような感じなのですが、もっと良い方法がある気がしてなりません。
（あまりスマートではないので）
あと、呼び出す時に使われるコントロールがはっきりしてる場合は、コントロール自体を
オブジェクトとして渡しておいた方が良いものなのでしょうか？
以上、長文で申し訳ありませんがよろしくお願いします。
0466デフォルトの名無しさん
NGNG･･･いかん、初心に戻ってやり直そう
0467デフォルトの名無しさん
NGNG標準モジュールじゃなくて、
クラスモジュールじゃだめ？
特定のコントロールに関するクラスモジュールを作成
↓
フォームのインスタンスを作るときそれぞれのフォームでそのクラスを
同時にインスタンス。
↓
動作させるときClassName.CommandClick
漏れもVB始めて1年ぐらいだからよく分かってないかもしれんが。
そういう処理が増えてきた時に標準モジュールに書いてたら
コードが肥大化したときに訳分からなくなるぞ。
http://homepage1.nifty.com/CavalierLab/lab/vb/clsmdl/
この辺拾ってきたんで読んでみ。
0468デフォルトの名無しさん
NGNG今の環境だと狭くてやりづらいです。。。
0469まとれす ◆mato/KTI
NGNGリッチテキストでは、Sel系のプロパティに問題があったような気がするぞ
>>458
おお。確かにそのとおりだな
>>460
BMPでもそのまま入ったと思うぞ
>>462
VB6なら、Controls.Add でコントロール配列を使わずに動的に生成する
こともできる
>>465
コンストラクタが引数を受け取れれば、Me を渡しちまう、って方法がある。
自分用のInitメソッドを必ず呼び出すような形にするのがベターかな。
ということで、>>467 と同じだが、クラスにしろ
>>468
ない。ピンアイコンをオフにしておけば、使わないときは隠れるぞ。いちいち
スライドしてきてうざいけどな
0470_
NGNGAPIを使うと思って検索しているんですが上手いのが見つからないので
質問させていただきます。
0471465
NGNG回答ありがとうございました。
実はフォームが７種類あって、共通のイベントが２０くらいあるんですよね。
それでフォームのコード部に呼び出しばかり並ぶのがどうも・・・。
という訳で質問してみたんですけど、クラスモジュールに書き換えても
同じような感じになっちゃいますね。
サブクラス化という手法もあるようですが、使用した事がないのと、時間の
制約がある、ということで避けてしまいました。
とりあえず、可読性の向上という意味でクラスモジュールに書き換えようと
思います。
0472デフォルトの名無しさん
NGNGユーザーコントロールに組むってのは駄目？
あんまし使ってる所みたことないけど、便利かもって思う。
0473デフォルトの名無しさん
NGNGこれでソースを取得することはできるのでしょうか？
Inetと組み合わせてやればできるのでしょうが
これだけでできるのならそっちの方を選びたいのです。
具体的にやりたいのは
WebBrowserコントロールで開いているページのソースをTextに表示
これがやりたいんですけど・・・。よろしくお願いします。
0474Delフサギコ ◆zE1iiRdQ
NGNG∧,,∧
ミσﾟДﾟﾐσ
Private Const NumericTable As String = "0123456789"
Function ExtractNumeric(ByVal S As String) As String
Dim i As Integer
For i = 1 To Len(S)
If 1 <= InStr(NumericTable, Mid$(S, i, 1)) Then
ExtractNumeric = ExtractNumeric & Mid$(S, i, 1)
End If
Next i
End Function
0475デフォルトの名無しさん
NGNGおいらはWinInet使う方でやったがめんどかった。
それでできるなら知りたいっす。
0476デフォルトの名無しさん
NGNGint strtoval(char *str, char *valstr)
{
for( ; *str != '\0' ; ) {
if((*str >= '0') && (*str <= '9'))
*(valstr++) = *(str++);
else
str++;
}
*valstr = '\0';
return 0;
}
Private Const NumericTable As String = "0123456789"
InStr(NumericTable, Mid$(S, i, 1))
NumericTable を探索開始位置にするとどうなるのでしょうか。
0478467
NGNGそれだと標準モジュールぐちゃぐちゃだろ。
イベントにはそれぞれ意味があって、モジュール単位で分けられるだろ。
それに名前をつけてクラス化したほうが可読性がいいし、
将来の改造が楽になると思うが。
>それでフォームのコード部に呼び出しばかり並ぶのがどうも・・・。
普通そういうもんじゃない？漏れの書いてるコードはそんなだぞ。
だってそうしないとフォームイベントのコードが画面に収まりきらんぞ。
0479デフォルトの名無しさん
NGNGInStr使ったこと無いだろ。開始位置は省略できる。
それより、IsNumeric(Mid(S,i,1))を使ったほうがいいかも。
0480デフォルトの名無しさん
NGNGIsNumericの方が高速だろうね。
でも、それだと数字だけだけど、
>>474の方法だとNumericTabelを書き換える事で、
ひらがなだけを抜き出すとか、あ行の文字だけを抜き出すとか、
アルファベットだけを抜き出すとか使えそう。
それとも、そんな用途ならもっと上手い方法あるかな。
0481デフォルトの名無しさん
NGNG全角数値もIsNumericでTrueになるので注意ね。
0482デフォルトの名無しさん
NGNG他に"+"とか"-"もIsNumeric = Trueだったけ。
数字だけ抜き出したい時に使いたくなるけど、
そういう罠があるんだよなぁ。
やっぱり>>474か。
0483デフォルトの名無しさん
NGNGコントロールのイベントで同じ処理をさせたいの？
だったらクラスモジュールで解決するとおもうけど。
クラス側(cPicProc)
private withevents mPic as PictureBox
public sub Initialize(pic as PictureBox)
set mPic=pic
end sub
private sub mPic_Click()
Msgbox "Pic Click"
end sub
フォーム側
private mPicProc as cPicProc
sub Form_Load()
set mPicProc=New cPicProc
mPicProc.Initialize Picture1
end sub
（フォーム側でPicture1のClickイベントのコードはいらない）
こんな感じで共通処理できるんでない？
はずしてる？
0484即レス
NGNGSetWindowPos
>>473
一応WebBrowser.Document.Body.innerHTMLで取れる。
ただBody以下の内容しか入っていない上、ソースそのままではない。
あと、WebBrowser.Document.All.Item.....も使える。
（MSも日本語版のまともなブラウザコントロールぐらい
標準装備しておけよ、と思う今日この頃。）
>>442
フサギコの使っとき。
0485デフォルトの名無しさん
NGNGlongの方がたくさんメモリ食いそうな印象ですが、その辺り具体的に
教えて下さい。i = 0 To 7なんていうループに使うのもlongが良いのでしょうか。
0486デフォルトの名無しさん
NGNGだって今のCPU32ビットだもん。32ビットのlongの方がそらね。
0487485
NGNG解答ありがとうです。
どこで聞いてもその解答なんです。僕も「32Bitだから」って知識しかないので
出来れば具体的におながいしたいのですが…。
0489即レス
NGNGLongを使うメリット
・処理速度はLongの方がIntegerより平均10%ぐらい速い。（大体）
・128MB以上のメモリが載っているPCが普通なのでメモリのことを
気にする必要はない。（100万個確保しても2MBしか差はない）
・代入可能な数値が大きい。
てな感じ。
16bitの時代は32bitの計算に時間がかかったが
今は速度的にはあんまり変わらん。
「32bitだから」ってのはIA32にあわせた使い方だから、
って意味だろう。
0490デフォルトの名無しさん
NGNGとかいう独り言。無視してくれ・・。
0491デフォルトの名無しさん
NGNGTreeだろうがリストだろうがスタックだろうが同じようにアクセスできてしまう仕組み。
STLのイテレータを想像すればわかりやすい。
0492デフォルトの名無しさん
NGNGオーバーヘッドがあるとか聞いたよ。
ホントかどうかは知らないけど、実際にLongの方が速いから
Long使ってる。
悩むのは配列かな。Hoge(i) ってやるとき、iはLongがいいのか
Integerがいいのか…。
配列の添え字ってたしかIntegerだよね。型変換が起きちゃう。
>>490
Dim Frm As Form
For Each Frm In Forms
If Frm.Caption = "hoge" then .....
Next
のように使ったりするよ。
コレクションの全要素参照に便利。
0493デフォルトの名無しさん
NGNG16ビットから32ビットへの変換かますから。
0494デフォルトの名無しさん
NGNGSDKだけでやれば問題解決。俺はSDKで遊んでるよ。
補完機能、パラメータヒント、F1でヘルプ呼び出し、
一括コメント化/非コメント化等の機能は欲しいけどさ。
0495デフォルトの名無しさん
NGNG一般的な評価ってどんなもんですか？
0496デフォルトの名無しさん
NGNGおでの鯖と一緒 鬱だな
0498デフォルトの名無しさん
NGNGメンテかな
ひろゆきも ここ持ってんのか 一緒かよ
鬱だな
0499デフォルトの名無しさん
NGNG不要なカッコ、とれよ。評価順序わかってないだろ？
0500まとれす ◆mato/KTI
NGNGFindWindowでウィンドウハンドルを取得して、MoveWindowだな
>>471
まぁ、VB6だと限界もあるしな。VB.NETでは、フォームが継承できるんで、かなり楽に
なるな
>>485
速いとはいっても、それほど差があるわけじゃない。あまり考えられないが、プログラム
的にわかりづらくなるぐらいなら、Intergerを使うほうがいいぞ
>>491
_NewEnumとかが関わってくるんだが、まぁ、気にしなくてもいいか
>>494
SharpDevelopを使う、ってのもひとつの手だな。うざったいウィンドウはないし。ただ、
VB.NETにきちんと対応していないという罠
>>495
統一するためにいろいろやってるし、しょうがないだろう。VBから使いやすくしたラッパOCX
もあるし、それを使うのもいいぞ
>>499
俺は、コードをよりわかりやすくするために、括弧をつけるほうが好きだな。評価順で悩む
こともないし
0501470
NGNGありがとうございます！
お陰で外部ウィンドウはちゃんと動かしたりできました。
それで、位置を「取得」するのもそれでできるのかと調べていたのですが
どうもうまくいっていないみたいです。
外部ウィンドウのウィンドウハンドルがわかっていれば、
位置を取得することなどは簡単に行えると思うのですけど・・・。
GetWindow～～って奴でしょうかね？
0503デフォルトの名無しさん
NGNG送信、受信したバイト数を得るにはどういう方法がありますか？
0504まとれす ◆mato/KTI
NGNG何を使ってメールを送受信してるかによる。WinSockコントロールなら、受信バイト数
が取得できるし、送信バイト数は自分で管理できる。
POPやSMTPをラップしてるようなコントロールだと、コントロールが提供していなけれ
ば難しいな
0505デフォルトの名無しさん
NGNG際前面に表示させたい（CTRL+TAB等で切り替えられない)のですが、
可能でしょうか？
もしできないのであれば、
タイマーコントロールで、定期的に最前面表示するというのでも可です。
よろしくお願いします。
0506デフォルトの名無しさん
NGNGSTAYONTOPとか知らない人？
0507デフォルトの名無しさん
NGNGPrivate Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal uFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Sub Form_Load()
SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
End Sub
>>506
StayOnTop ??? オレも知らんぞ
0508_
NGNGLVM_GETITEMTEXTメッセージを送るとエクスプローラがコケるんですが、何が悪いのでしょうか？
ソースはおよそ以下の通り。
LVITEM.mask = LVIF_TEXT
LVITEM.iItem = 1&
LVITEM.iSubItem = 0&
LVITEM.cchTextMax = 255&
LVITEM.pszText = String(.cchTextMax + 1&, vbNullChar)
Call SendMessage(ExplorerhWnd, LVM_GETITEMTEXT, 1&, LVITEM) '←ここでエクスローラがコケる
どなたかご存じの方、教えて頂きたく宜しくお願い致します。
0509即レス
NGNGプロセスを超えたメモリへのアクセスはアクセス違反になるからだよ。
そのコードはエクスプローラーに自分のプロセス内のメモリへ書きこませる、
って言う命令なのでプロセスを超えたメモリへのアクセスで落ちる。
そういうことをしたい場合はVirtualAllocやら何やらで共有メモリを
使わないといけない。
http://pc.2ch.net/tech/kako/1009/10091/1009174392.html
このスレの最後にサンプルあるんで使ってみ。バグあるけど。（すまん)
0510465
NGNGユーザーコントロールも作成した事がなかったので、似たような事を（私がしたい事と）
しているサンプルを探して見てみました。
ものすごくソースが大量かつAPI呼びまくりだったので、「ここまでしなくてはならないの
か」と思ってしまいました。
とりあえず今回は見送る事にして次回以降の課題としたいと思います。
確かに作っておけば便利そうですね。
>>478
一応種類ごとにモジュールも分けて使ってるので、探したりするのはそれほど大変で
はないのですが、やはりプロシージャの数は結構なものになってしまっています。
後半部分の書き込みを読ませて頂いてだいぶ気が楽になりました。
>>483
実はそういう事ができないのかな？と思い質問してました。
（イベント処理自体をどこかに代行させるような形態）
前回まとれすさんが書いてくださった事もこういう事だったのか、と今気が付きました。
恥ずかしながらこういうものがあるとは全然知らず、先ほど早速試してみたのですが、
下記の２件がどうもうまくいきませんでした。
１：コントロール配列の場合は渡せないのでしょうか？
２：フォーム自体を渡した場合、それに属するコントロールのイベントは受け取れない
のでしょうか？
私のやり方がまずいだけかもしれません。
ただ２についてはまとれすさんが500で言って下さってる事が非常に気になります。
（ちなみに私はＶＢ５を使っています。書くのが遅くてすいませんでした。）
１についてはフォームによってはコントロールが１００以上あったりするのでなんとかな
らないものだろうか、と思ってしまいます。
いずれにしても、どの助言も非常に勉強になります。
何度もありがとうございます。
0512508
NGNGむぐっ、今気が付いた。
これってWin98では無理ですか？(汗)
VirtualAllocEXってNT専用だった気が・・・。
それと、VirtualAlloc使っても戻り値が0なのですが、GetLastErrorも0が返ってきます。
これはどういう状態でしょうか？
確かVirtualAllocの戻り値はアドレスだと思ったので、0はエラーだと思うのですが、この認識が間違いですか？
0513即レス
NGNGそうだよ。
VirtualAllocExは9x系には意味のある実装はないのだ。
（戻り値は常に0。）
9x系ならFileMappingかな。逆にNT系ではこういう用途で
FileMappingが使えない。
0515まとれす ◆mato/KTI
NGNG「切り替えられない」ってあたりは難しいが、最前面表示だけなら、>>507 の方法でいいな
>>506
Delphiか？VB.NETでは、TopMostプロパティだ
>>508
即レスがよさげなレスをしてくれてるが、あれはポインタとかメッセージとかの仕組みを理解
していないと使いづらい。というわけで、Shellオブジェクトからたどる方法をお勧めする
>>510
VB5でもVB6でも、この辺は変わらないはずだ。コントロール配列を渡したことはないが、
「フォーム自体を渡した場合・・・」ってのは無理だな
>>513
9ｘ系なら確かにメモリマップドファイルだな。しかし、オーナードローものには効かないという
罠。というわけで、まだ試していないが、MSAAをお勧めしておく
>>514
丹念に探せばサンプルが見つかるはずだ。がんがれ
0516ななし
NGNGヘルプはついているんでしょうか？
いくら安くても、ドキュメントがなければ使いこなせないので、買いたくないのですが。
0517デフォルトの名無しさん
NGNGヘルプナシの言語が売れるとは到底・・・。
確か入門書まで付いてきた気が。。。
0519デフォルトの名無しさん
NGNG後、覚えるならC#のほうがいいと思われ。
言語のレベルは同一だ。
せっかく新しい世界が開けたのにわざわざマイノリティに甘んじることもないでしょう。
0520デフォルトの名無しさん
NGNG無料のSDKでもヘルプはついてる。
SDKのはさすがに全部じゃないとは思うが、
言語仕様やライブラリのリファレンスなどはついているので十分。
0521ななし@516です。
NGNG(異常なまでな価格の低さに、販売政策上、高価なパッケージが売れなくなると困るから、
ドキュメントを抜いてるんじゃないかと、疑問を抱いてしまいました。(^^;)
0522デフォルトの名無しさん
NGNG0523観鈴
NGNGVBでAccessを扱っているのですが
変数をSQLの中に使いたいのです。
ただそれだけならいいのですが
検索もかねたいのです。
SQLでいえばLIKEのように。
その書き方がどうしてもわかりません。
ご存知の方、ご教授ください。
0525デフォルトの名無しさん
NGNG行う方法だとちょっと男らしすぎるのでもう少しスマートな方法はない
でしょうか？
0526観鈴
NGNGご返答どうもです。
ちなみに私はこういう書き方をしています。
StrSql = StrSql & "社員名称 = ' " & syainMei & " ' "
上の[syainMei]についてlikeを使いたいのです。
524さんの言われる書き方で出来るのでしょうか。
0527デフォルトの名無しさん
NGNGあると思うか？
テキストもバイナリの部分集合だと言うことを考えれば改行コードの数数える以外に方法はない。
クラスなどを使っても裏では結局そうやってる。
0528デフォルトの名無しさん
NGNGえっと。
LIKEのような動きにしたいのなら
StrSql = StrSql & "社員名称 LIKE '*" & syainMei & "*' "
のようにしないとだめですね。
ワイルドカードはわかりますよね？
0529観鈴
NGNGすごいうれしいですー･･･。
ありがとうございますです。
0530デフォルトの名無しさん
NGNG> StrSql = StrSql & "社員名称 LIKE '*" & syainMei & "*' "
AccessでこういうSQLを書くとsyainMeiを工夫するだけで
command.com呼び出せるんだぜ。
0531デフォルトの名無しさん
NGNG0532age
NGNGSendMessageの定数をしらべたいんだが
WM_～～～～とかいう定数に、代入しておかなくちゃいけないだろ
その代入するやつはどこでどうしらべてどうすればいいんだ？
全くわからん。俺の文も全くわからんけどよろしこ。
0533デフォルトの名無しさん
NGNG0534デフォルトの名無しさん
NGNGごめん。
理解の限界超えた。
0535デフォルトの名無しさん
NGNGCSV形式で保存するにはどうしたらいいんでしょうか･･･。
0536デフォルトの名無しさん
NGNGまずは定数とは何なのかを勉強してください。
自分のあほさ加減に気付くでしょう。
0537デフォルトの名無しさん
NGNGお好きなところにカンマ挿入して下さい。
って言うかLabelに出力されたデータ？？
0538デフォルトの名無しさん
NGNG君は若い頃からステキなことばかり言ってたが相変わらずだなあ
0539535
NGNGはい。
LabelにAccessから取ってきたデータを
CSV形式で印刷するのが今の目的です。
しかし、適当なところにカンマを入れる･･･と
いうのであっているのでしょうか
0540デフォルトの名無しさん
NGNGまずはCSVがなんなのかを勉強することからはじめたらどうだ？
そうだな最初はCSVが何の略なのかからだな。わかったらレスしたまえよ。
0541535
NGNG0542デフォルトの名無しさん
NGNGはいはい、で。アクセスからデータは何単位で取ってくるのかね？
0543デフォルトの名無しさん
NGNG0544
NGNG1)ACCESSから読み込んだデータをCSVで保存したい...2)ACCESSでテーブルのデータをCSVで保存したい...
3)LABELにCSV形式で印刷したい...
あなたの質問が３番なら意味不明だぞ。
CSVって何の略かわかってるの？
仮にそうだとして何の意味があるのか
0545デフォルトの名無しさん
NGNGすでにそれに沿った指導が始まっているのにそんな質問するのは
たまたま知っていた事だったので偉そうにしたかったからですか？
0546デフォルトの名無しさん
NGNG0547535
NGNG３だとしたら意味不明ですね。
私は１希望です。
しかしその間に処理が入るのです。
ラベルに出力してからCommandクリックされたら
CSV形式で印刷します。
書き方悪くてごめんなさい ﾍﾟｺﾘ(o_ _)ｏ))
0548デフォルトの名無しさん
NGNG＞CSV形式で印刷します。
表示と印刷は明確に区別してくれ。ちょっとこんがらがってきた。
0550デフォルトの名無しさん
NGNG0551デフォルトの名無しさん
NGNGAPIビューワで調べれ。
載っていないやつは、VC++のヘッダーファイルで。
0552535
NGNG1.VBにてAccessからデータ取得
2.取得したデータをラベルに表示
3.印刷ボタンを押されたら表示したデータをCSVにて印刷。
以上です･･･。
すみません、混乱させちゃいました（汗）
0553まとれす ◆mato/KTI
NGNGCとかで作った外部アプリを使う。速いっちゃ速いな
>>530
そのセキュリティホールはふさがれたはずだが・・・ ま、パスワード入力をスルーされる
可能性があるし、パラメータにしたほうがいいな
>>532
Cのヘッダファイルを見ろ
>>547
変数に入れてWrite#だが、俺的にはPrint#の方がお勧めだな
0554デフォルトの名無しさん
NGNG0555デフォルトの名無しさん
NGNG「表示したデータ」はString変数とかに格納してるんでしょ？
それを印刷するだけだと思うが。CSVとは何の関係もない
質問じゃねーかYO!!質問は印刷でしょ？
印刷って....紙ですよね!?...
0556デフォルトの名無しさん
NGNGCSVとは関係ないんですか?
0557デフォルトの名無しさん
NGNGプリンタの指定とかはどうすればいいのでしょうか？
0558
NGNGふーん
0559デフォルトの名無しさん
NGNG0561デフォルトの名無しさん
NGNG0562まとれす ◆mato/KTI
NGNGありがとー
>>556
あんまり関係ない。印刷なら、Printerオブジェクトを使ってもいいし、専用のツールを使ってもいい。
Excelでもいいしな
>>557
まずは、Printerオブジェクトについて調べてみろ。その後、印刷に何を使うか決めるんだ
>>559
ｽﾏｿ
>>561
ひでーな。ま、Windows XPなら関係ねーが
0563532
NGNGまぁこれで一人の厨房がひとつ大人になったのでご勘弁（ｗ
Cのヘッダファイル っすか。
ぐぐるしかねーか。ヽ(;´Д`)ノ ｲｯﾃｷﾏｽ
0564デフォルトの名無しさん
NGNG紛らわしい去り方はﾔﾒﾚ。556と勘違いしたよ。
0565デフォルトの名無しさん
NGNG紛らわしかーねーだろ。
名前532にしてるし。
0566503
NGNGサンキュー。ＷＩＮＳＯＣＫ使う予定だからどうやら送信受信バイト数得れそうです。
0568563
NGNGあの書き込みから20秒後ぐらいにそれに気づきました。
が、VC++6Proあったのでセーフ。
ていうかそれわからんかったからSpy++とかいうやつで調べたんだけど。
別に変わりないよな・・・？あれでも
メッセージの表示→詳細って見ればそのイベントの奴が&0foみたいに見れた。
0569535
NGNG0570535
NGNGレスありがとうございます。
印刷は言われるとおり、Printerオブジェクトで
やれるとわかりましたが
それとは別にCSV形式で出力するための
PGを書かなければいけないと思うのです。
違ったらごめんなさい
0571デフォルトの名無しさん
NGNGいま、VB4.0からVB6.0(or .NET)へのコンバートを考えています。
そこで、絶対にやってはいけないこと、明らかに気をつけたほうがよいこと、
末端の利用者へ配布するのは6.0のランタイムだけでよいか、
その場合4.0のランタイムは捨てたほうがよいか、等々。
おしえていただけませんか？
0572535
NGNGなんだかとても難しく考えていたみたいでした…。
0573デフォルトの名無しさん
NGNGひろゆきってたまーに驚く程幼稚なセリフ真顔で吐くんだけど、いったいどういう
青春を送ってきたのだろう？
普通に成長を遂げた人間であれば赤面してしまうような恥ずかしいセリフ
82 ：参加するカモさん ：01/12/13 15:02
なんとなく言ってることわかる。
俺もひろゆきと何回か話したことあるけど、大昔のドラマでも見てるような気になった
95 ：参加するカモさん ：01/12/22 16:35
飲み会になると、必ず「遅刻」の話を得意気に語りだすけど、ひろゆきって遅刻することかっこいいと
思っているのかな？
回りの人間は苦笑するしかないけど、この人やっぱり幼稚だと思う
0574デフォルトの名無しさん
NGNGVB6.0はサポートの打ち切りが決定しているので .NETにしましょう。
ランタイムは.NET Frame WorkでOKです。
問題はコンバートですが、長くなるのでレスを分けます。
0575デフォルトの名無しさん
NGNGﾄﾞﾄﾈﾄへは、コンバートというより新規開発みたいなイメージになるんじゃないかな。
ZDNNなんかでも、ヘタにコンバートするよか作り直す方が早いってあったよ。
0576ななし
NGNG>CSV
バージョン管理ツールのことでしょ？(違
0578初心者質問ですいません
NGNGピクチャーボックスにAPIを使い（CreateFont）フォントを描画したのですが、
.PrintFormで印刷かけると、フォントがギザギザに印刷されてしまいます。
画面ではきれいに見えているのですが・・・
こういう場合、どうすれば良いのでしょうか
均等割付・長体などを書体として使っているので、
ピクチャーボックスに描画するしか方法がないのです
VB6.0/Windows200Pro
0580デフォルトの名無しさん
NGNGどうしたらいいんですか？
0581578
NGNGPrinter.hDCって初めて聞くので、ぐーぐるで調べてみたのですが、
理解できませんでした・・・ 初心者ですいません
フォームにいくつもピクチャーボックスを貼っているので、
フォームをそのまま印刷したいのですが、
Printer.hDCを使う場合は、どうすればよいのでしょうか？
m（＿＿）m 何度もすいません
0582デフォルトの名無しさん
NGNG私はコードで書きました。
選択行数が１行以上だったら、選択範囲を１行にするように
マウスアップとキーダウン（アップ？）関係のイベントに書きました
うろ覚えですいません
0583貧乏プログラマ
NGNGコレ使いたいんですけど、個人で買うにはちと高過ぎて・・・。
VB6 おまけの MS-FlexGrid だと役立たないし・・・。
いらなくなった人がいたら、安く譲ってくれませんかね～？
スレ違いだったかな？すんません。
0584580
NGNGキーダウン？イベントとかでやってみます。
ありがとうございました。
0585即レス
NGNG普通Printerオブジェクトを使う場合は
PrintやらLineやらPaintPictureやらで
描画してNextPageやEndDocで印刷するでしょ？
BitBltやStrechBltのhDCをPrinter.hDCにすれば
プリンタに描画できる、ってこと。あとは上と同じで
NextPageやEndDocで印刷。
で、質問の答えだけどPrintFormを使うなら
ギザギザを修正する方法は無いよ。
っつーわけで、あきらめるか自前でプリンタに描画すれ。
>>583
ヤフオクとか・・・であるかな？・・・無いか。
つかそれって譲渡できたっけ？
0586即レス
NGNG>Printer.hDCって初めて聞くので、ぐーぐるで調べてみたのですが、
こういうのはMSDNで調べたほうがいいぞ。
MSDNは読みにくいが初歩的なことは詳しく書いてあるので
分かりやすい。ﾈｯﾄは断片的なことが多いからね。
0587デフォルトの名無しさん
NGNG0589即レス
NGNGこんなのﾊｹｰﾝ！
http://www.wise.co.jp/software/download/orderform/files/doc/PhotoManager%E6%B3%A8%E6%96%87%E7%94%A8%E7%B4%99.doc
第3条 禁止事項
お客様が、以下の行為を行うことを禁止いたします。
◎1．本製品及び本製品の複製の、譲渡、販売、転貸。
2．本ソフトウェアのプログラムコードの改変あるいはリバースエンジニアリング。
3．本契約に反する本製品の複製及び使用。
( ´д｀)
素直に買ったら？
0590即レス
NGNGhttp://www.grapecity.com/japan/support/powertools_license.htm
の、VS-FlexGrid Pro 7.0J
内容は一緒。
0592貧乏プログラマ
NGNGやっぱり素直に買わないと駄目なのかなー。
でも今買うのもね・・・。7月に.Net用のが出るみたいだし。
でも.Net用には、きっとActiveXのは含まれてないだろうから、
う～ん悩む。
>>591
6.0J は配布するのに関連DLLを含める必要があるんですよね？
7.0J のLight版を使いたいなと思ってるもので。
0593＠
NGNG質問していた厨ですが、今度は画面外の色を取得したいのですが。
どういうことかというと、たとえばウィンドウが
画面から出ていても、出ている部分の色を取得したいと
いうことです。これはできるのでしょうか・・・
0594名無し募集中。。。
NGNGPrivate Declare Function GetDC Lib "USER32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib "USER32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal nXPos As Long, ByVal nYPos As Long) As Long
Private Sub Command1_Click()
Dim lngDC As Long
lngDC = GetDC(0)
MsgBox Hex(GetPixel(lngDC, 100, 100))
ReleaseDC 0, lngDC
End Sub
0595デフォルトの名無しさん
NGNG使ったことないんで知らんが Light 版ってのは
「メモリを最小限に抑える」だけなんじゃないの
http://www.grapecity.com/japan/support/database/P1_88.htm#新機能 (全製品)
0597_
NGNGMS-FlexGridと使い勝手は大差ないし十分代用出来るし。
むしろアプリが重くなって開発ＰＣが不安定になるから個人的にはお勧めしないです。
BOC製品のコントロール張り付けただけで画面表示が遅くなる罠。
0598デフォルトの名無しさん
NGNGでもBOCのSPREADは名作コントロールと思う
多機能な分だけバグも多いけどね
0599即レス
NGNGちょっと文章が分かりにくいけど
自分以外のアプリのデスクトップ外、
ということなら無理。
0600貧乏プログラマ
NGNGLight版ってそうなのかな？今度試用版をDLして、ヘルプをチェックしてみます。
>>597 >>598
VS-FlexGridは、V2.0とV3.0を持ってて昔使ってたんです。（その頃は今ほど高くなかった）
それで中々良いコントロールだと思ったんだけど・・・。
サブセットのMS-FlexGridは、機能的にはたぶんV2.0相当じゃないですか？
残念ながら使いたい機能（セルのグラフ表示とか）がないんですよー。
SPREADは試用版を試した事ありますが、自分的にはVS-Flexの方を
気に入りました。
とういう訳で、VS-FlexGrid Pro 7.0Jを使わなくなった方がいましたら、
よろしくお願いします _(._.)_
0601デフォルトの名無しさん
NGNGちらつくのですが、簡単な回避方法はありますか？
0602デフォルトの名無しさん
NGNGそんなにチラつくか？
ものすごい勢いで変更しまくったらそりゃちらつくだろうけど。
非表示にしてから値入れて、また表示させなおせば
マシになる、、、かも。
0603デフォルトの名無しさん
NGNG＞非表示にしてから
ちらつきの元
0604デフォルトの名無しさん
NGNG0605デフォルトの名無しさん
NGNGうぃ。ものすごい勢いで変更しまくりますのです。
0606デフォルトの名無しさん
NGNG＞いうことです。これはできるのでしょうか・・・
ＷＩＮＤＯＷのことだよね？
なんにしてもウインドウハン㌦が取得できれば何とかなるよ。
0607デフォルトの名無しさん
NGNG0608デフォルトの名無しさん
NGNGTimerと組み合わせて、表示を端折る。
GetTickCountかなにかで時間を計り、10msとか経過していない場合は
表示しないでおいて、Timer=Enabledにしてあとで表示、とかなんとか。
0609デフォルトの名無しさん
NGNG自分も作ってみたかったので（･∀･）ﾂｸｰﾃﾐﾏｼﾀ!
Option Explicit
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Dim lnghWnd As Long, lnghDC As Long
Dim rctPoint As POINTAPI, lngColor As Long
Call GetCursorPos(rctPoint)
lnghWnd = WindowFromPoint(rctPoint.x, rctPoint.y)
Call ScreenToClient(lnghWnd, rctPoint)
lnghDC = GetDC(lnghWnd)
lngColor = GetPixel(lnghDC, rctPoint.x, rctPoint.y)
Me.Caption = "R:" & (&HFF And lngColor) & "G:" & ((&HFF00& And lngColor) \ 256) & _
"B:" & ((&HFF0000 And lngColor) \ 65536)
Call ReleaseDC(lnghWnd, lnghDC)
End Sub
0611デフォルトの名無しさん
NGNGVC側
int hoge(int,int,char*)
なんですが、VB側でどう宣言したらいいのでしょう？
0612即レス
NGNGpublic declare function hoge lib "hoge.dll" (byval arg1 as long,byval arg2 as long,byval argstr as string) as long
0614名無しさん通常の３倍
NGNGVB6/hGDY : #bｻkxdJen
なんかＨだろ？（藁
0615デフォルトの名無しさん
NGNG(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
と宣言しておいて、第四引数に
Public Address As String
の Address を与えるとVBごと落ちます。SP6です。
Public Address As String * 64
だと平気です。こういうものでしょうか？
0616まとれす ◆mato/KTI
NGNGそれは、初期化してないからだ。固定長文字列は、宣言時に初期化されるが、可変長
文字列は、明示的に初期化してやらんといかん。
ということで、API呼び出しの前に、Address = Space(256)とかしてみろ
0617615
NGNGまとれすさんのスタンスは超クールです。
これからもがんばってください。
とさておき、Address = Space(256) とかすると
結局固定長と同じっぽいので、固定長で Trim で空白処理することにします。
ありがとうございました｡
0618615
NGNGTrim(Address) をしても空白が削られません。全然削られません。
APIを通すと変数の管理方法が変わってしまうからでしょうか？
0619デフォルトの名無しさん
NGNGTrimは空白文字しか削らない。&h00は空白文字とは見なされないみたい。
だから、Replace(Address,vbNullChar,"")とするか、ゴミが怖いなら
n = Instr(Address,vbNullChar)
If n = 0 Then n = len(Address)+1
strHoge = Left$(Address,n-1)
こんな感じで地道にやるしかない。
0620618
NGNGみんなだうしてるんだろう。
とりあえず、Replace(Address,vbNullChar,""):Address=Trim(Address)
で切り抜けます。
0621デフォルトの名無しさん
NGNG丸い選択されたしるしはひょうじできますか？
0622即レス
NGNGGetMenu,GetSubMenuでメニューハンドル取得して
SetMenuItemBitmapで変更。
サンプルはこちら。
http://homepage1.nifty.com/MADIA/vb/API/SetMenuItemBitmaps.htm
0624デフォルトの名無しさん
NGNGFunction NullCut(lpstr As String) As String
lpstr = lpstr & vbNullChar
NullCut = Left$(lpstr, InStr(lpstr, vbNullChar) - 1)
End Function
0625618
NGNG0626デフォルトの名無しさん
NGNG質問させていただきます。
当方VisualStudio6.0使ってます。
標準モジュールにてきちんと定義済みの
グローバル列挙型変数があるんですが、
何回かデバッグ実行しているうちに
「この変数は定義されていません」っていうエラーがでます。
(ちなみにOption Explicit使ってます。)
VBを一旦落として再度起動するとそのエラーは出なくなるのですが、
デバッグ実行してるとそのうち出ます…
…誰か同じ悩み持ってる人＆解決策あったらおながいします！
0627デフォルトの名無しさん
NGNG使用言語書かない時点でPC初心者板にいるアフォと大して変わらん。
0628デフォルトの名無しさん
NGNG> 標準モジュール
> (ちなみにOption Explicit使ってます。)
> VBを一旦落として再度起動するとそのエラーは出なくなるのですが、
お前がアフォと突っ込まれたいのか ?
0629626
NGNGすみません、VBスレだから書かなくていいかと思って…
使用言語はVBです。
0630即レス
NGNGAPI系など、メモリに関する処理をしてるならそこをチェック。
アドインを使ってるならそっちをチェック。
何も使ってないなら・・・聞いたこと無いな。
>このスレがいちばん活気付いているので
そおかあ？
0631即レス
NGNGどうしても無理なら再ｲﾝｽｺすれ。
それでも無理ならMSに報告してもいいと思うぞ。
0632デフォルトの名無しさん
NGNGとりあえず、サービスパックはちゃんと当ててる ?
0633デフォルトの名無しさん
NGNGどんな手があるでしょうか。
MSDN見ると
Dim a() as String
とかってやって、必要な数が分かったところで
ReDim a(必要な数) as String
ってやれって書いてありますけど、必要な数ってのが分からないのです。
動的にどんどん増えていくもので。
最初から
Dim a(ものすごい数) as String
ってやるしかないでしょうか？
0634即レス
NGNGdim lng() as long
redim lng(0)
for i=0 to 10
redim preserve lng(i)
lng(i)=i
next i
とかな。
0635デフォルトの名無しさん
NGNGDim a() As String ってやって、
Redim a(0) とかして初期化して、
Redim Preserve a(必要な数) とすればok。
ただし、Redim Preserveを１個ずつ10000個までとかやると
スタック食い尽くして落ちることあるからやらないように。
0636デフォルトの名無しさん
NGNG必要に応じてそのつど増やしていけばいい。
Cnt = Cnt + 1
Redim Preserve a(Cnt) As String
+100でもいい。
0637デフォルトの名無しさん
NGNG> 動的にどんどん増えていくもので。
増えた時点で、ReDim すればいいだけ。値が壊れたら困る場合は、
Preserve キーワードが必要。
0638デフォルトの名無しさん
NGNG0639デフォルトの名無しさん
NGNG未だかつて見たことのない勢いでｹｺｰﾝしてるぞｗ
なんだおまえらｗ
0640デフォルトの名無しさん
NGNGんなこといちいち突っ込むなって。
0641デフォルトの名無しさん
NGNG> なんだおまえらｗ
お前こそなんだよ。誤爆か ?
0644まとれす ◆mato/KTI
NGNGReDimを使うやり方が紹介されているが、このメモリ確保には、かなりのコスト
がかかる。というわけで、ある程度まとめてやったほうがいいな
>>638
列挙型は、長整数。で、そのうちのどれかを使う。たとえば、↓みたいな感じだ。
Enum WeekDay
Sunday
Monday
・
・
End Enum
ユーザー定義型はひとつの「型」の中に複数の変数をまとめて持つことができる。
この変数のことを、「メンバ」という。
Type Human
Age As Integer
Name As String
End Type
というような感じだな
0645デフォルトの名無しさん
NGNGDelphiならTListととか使えるけど。
0646デフォルトの名無しさん
NGNGそっち使え。
0647デフォルトの名無しさん
NGNG> ReDimを使うやり方が紹介されているが、このメモリ確保には、
> かなりのコストがかかる。というわけで、ある程度まとめて
> やったほうがいいな
何ですぐこういうこと言う奴いるんだろうな...。どれくらいコストが
かかるから測定してから言ったらどうよ。
0648デフォルトの名無しさん
NGNGEnum aa
abc
def
ghi
End Enum
aa.abc = 76
これで、コンパイルエラーエラー: 定数には値を代入できません。 が出ました。
もしかしたら、列挙型って言うのは、定数の列挙ってことですか？
0649デフォルトの名無しさん
NGNGお前基礎からやり直し。少なくとも >>642 の
> 全然違うぞ。enumとtypeでMSDN引いてみれ。
を実行してから出直してこいや。
0650集団結婚組
NGNGそのもしかする。
Enumは開発時に入力候補を出せるのが便利っていうだけ、 だと思う。
0651626
NGNGアドインは使ってませんが、
APIはかなり使ってるので、調べてみます！
最悪は再インストールかMSサポートセンターへ連絡かぁ…(鬱
>そおかあ？
この板のVB系のスレを検索したら…です。
質問に丁寧にレスしてくれるのも（・∀・）ｲｲ！
>632 SP5まで、出たら即あててました…
回答ありがとうございました。来週からまたがんがります。
あと、似たような現象ですが、
コーディング中にユーザ定義型変数のパラメータヒントが
出てこなくなる時がありますね。定義へのジャンプも不能に…
まぁこの辺の機能はなくてもいいのでアレですが
0652デフォルトの名無しさん
NGNGん？
お前基礎からやり直し。って…。
定数値の列挙でないの？
0653デフォルトの名無しさん
NGNG測定はしてないが、実感はしてるよ。
ReDimすると新しいメモリ領域が確保される。
ReDim Preserveすると、新しいメモリ領域を確保したうえに、メモリコピー
が行われてる。
だから、
Do While Not EOF(#1)
Line Input #1,strHoge
i = Ubound(astrHoge) + 1
ReDim Preserve astrHoge(i)
astrHoge(i) = strHoge
Loop
のようなコードは非常に効率が悪い。
なので、たとえば
i = -1
Do While Not EOF(#1)
Line Input #1,strHoge
i = i + 1
If i > Ubound(astrHoge) Then
ReDim Preserve astrHoge(i * 2 + 1)
End If
astrHoge(i) = strHoge
Loop
ReDim Preserve astrHoge(i)
こんなふうにする必要があったりする。
0654即レス
NGNGせっかくなのでやってみた。
For文で10万回Redim実行。
Celeron800Mhz、メモリ384MB、WinXP
0-10万までインクリメント。
102ms
100万から追加。
5653ms
0だけで確保。
53ms
（参考）ループだけ。
3ms
--考察--
Redimのオーバーヘッドは確保しているメモリが
少ない時はほぼ無視できる程度である。
しかし大量のメモリを確保している時に追加する場合は
まとめてやった方がよい。
という結果になりますた。
0655まとれす ◆mato/KTI
NGNGクラスライブラリって意味なら、ない
>>646
別に、C#のライブラリというわけじゃない。共通のものだ
>>647
で、お前は横から口を出すだけか？ 文句があるなら、お前が出せ。
こんなのは、状況しだいで変わることだ。
>>647
そういうことだ
>>650
.NETになると、Enumの名称が取得できたりするんで、少しだけできることが
広がるぞ
>>651
そんなことになった記憶がないな。少なくとも、再起動すれば直るぞ
0656デフォルトの名無しさん
NGNG列挙型定数の使い道
VBの列挙型とはLong型の定数をグループに定義したものだ
Enum Chu
VB = 1
JScript = 5
VBScript = 9
Delphi =99
End Enum
と定義しておくと
Dim Language As Chu
とやれば、VBのコードエディタはこのChuのメンバーの中の定数を列挙してくれる
この中から選べと言う事だ、
ただし、実際はLong型であるから
実際はLanguageはLong型であることは変わらない
Dim Language As Longでも同じである
ただ、列挙型を定義しておけば、取りうる値を示す事ができる、まあ目安だ
あくまで文字どうり列挙なので強制はない
つまりLanguage=-1 と列挙されていないLong型数値を入れることも当然できる
外部にPublicでメンバーを公開した時に(例えばプロパティ)使うと便利だ
開発者向け
0658デフォルトの名無しさん
NGNGありがとうございました。
なんか使えそうな構文ですね。これ。
0659デフォルトの名無しさん
NGNGおっと忘れた
続き
列挙型が便利なのは
組み合わせフラグに使える
実際、VBでもDirectX関係はバリバリにある
0660デフォルトの名無しさん
NGNGあぁ！Msgbox の第二引数に列挙型が使われてますね！
どうやって候補を自動的に表示してるんだろう？と思ってましたよ。
0661デフォルトの名無しさん
NGNGよかったね（笑
ActiveXとかクラスを自分で作って公開してやるようになれば
使うようになるかもねー ジャネー
0662デフォルトの名無しさん
NGNGなんでだれもCollectionやDictionaryをださんのだ？
0663647
NGNGそう、まずは測定することからだよね。10万ぐらいから加速度的に遅く
なる。そう言うことも知らずに...
> こんなのは、状況しだいで変わることだ。
と言っている >>655 は、VB 厨だね。
0664デフォルトの名無しさん
NGNGそれ、ときどきあるぞ。
ConstだったかEnumだったかの変数定義が見つかんなくなるみたいだ。
定義場所を切り取り、元に戻すなんかやってもなおるはず。
ときどき、むかつくが俺のとこではたいして発生していないので適当に気にしてない。
0666糞レス ◆kuso.GD6
NGNGもめてるのか？
0667まとれす ◆mato/KTI
NGNGいいんだが、遅いしな・・・
>>663
状況しだいで変わるぞ。大きな構造体の配列をReDimしていってみろ。10万のオーダーに
なるまでに遅くて使い物にならなくなる。
そういう前提や、ReDim前に配列の要素数がわかるのか、といったことも含めて、「状況しだい」
なんだよ
人を罵るのはいいが、お前の言う「VB厨」より知識のないお前は、いったい何なんだ？
>>665
ありがとう。「VB厨」ってレッテルはよく見かけるが、言ってるやつがVBをきちんと理解している
とは思えんな
0668662
NGNGまぁ確かに遅いには遅いんだが、意外と遅くなかったりもする。
万のオーダーを超えたあたりからReDimの場合と速度が逆転することもあるし、
使い勝手が良いから下手にReDimでごちゃごちゃするより楽だけどな。
>>645
DelphiのTListとかの代わりがCollectionやDictionaryだ。
0669デフォルトの名無しさん
NGNGVBがクソといわれる所以はここにある
0670デフォルトの名無しさん
NGNGお前バカか？ いやバカだ。
状況しだいで変わるのはどの言語でも同じだろうが。
0671デフォルトの名無しさん
NGNGVB厨がこの意味を取り違えてるに１００ペリカ
0672デフォルトの名無しさん
NGNGどこがどう違うのかちゃんと説明してみろや。
0673デフォルトの名無しさん
NGNG0675即レス
NGNGどうやって作るんだっけ？
0676糞レス ◆VB6.V49.
NGNGそれじゃ
フサギコに付け込まれるぞ
0677デフォルトの名無しさん
NGNGEnabled=false が一番確実。
0681デフォルトの名無しさん
NGNG100個必要になったら、
ReDim a(100) as string とやる。
そんな感じでやる。
単にReDimだけでは変数の中身が元に戻ってしまう(""になる)ので
そうしたくない場合は ReDim Preserve a(100) as string とやる。
0682デフォルトの名無しさん
NGNG透明にしたいところは&HFF00FFにしてあります。
で、このビットマップをフォームで「平らなところ」に張りたいのですけど、
適当なコントロールが見つかりません。
Picture と Image はマスクプロパティがありません。
Command Button にはありますが、でっぱてます。
いったいどうすりゃいいのでしょうか。
0683デフォルトの名無しさん
NGNG> ReDim前に配列の要素数がわかるのか
わからんかったらどうやって ReDim すんの ?
まあ、必死なのはわかったから、ちょっと落ち着いたらどうよ。ププ。
0684デフォルトの名無しさん
NGNG> わからんかったらどうやって ReDim すんの ?
配列をセットする前に配列の総数が分からない
というのが今回の前提だったと思うけどなぁ。
それがわかっていれば
> > ReDim前に配列の要素数がわかるのか
という発言がReDimを行うときに入れる要素数がわからない
という意味じゃないと分かるんじゃ？（というかあんた分かってるでしょ？）
嫌味臭い発言はやめようよ。
0685デフォルトの名無しさん
NGNGビットマップじゃなくてGIFとかTIFFとかにするってのはどうなの？
0686デフォルトの名無しさん
NGNG漏れが書いた>>653のサンプル見てくれYo!
最終的な要素数はわからないだろ？
それとも何が書いてあるか理解できないかい？
ま、粘着はｺﾚを最後に放置することにする。
>>685
LoadImageで透過GIFを読み込むと透過するよね、たしか。
GIFを使うのはライセンス問題を含めてちょっと嫌な感じなのだけど。
それ以外の方法としては、白黒マスク画像を用意して、bitbltして重ねるとか。
MaskColorみたいな簡単な方法は無かった気がする。
0687デフォルトの名無しさん
NGNG例えば、テキストエディタ。
書かれた内容の分だけしかメモリを使いたくないというのが、技術者魂。
まぁ、VBだと勝手にメモリの無駄使いをしてくれちゃうけど、
なるべく節約してる気分になろうという事で・・・
0688デフォルトの名無しさん
NGNG0689＞688
NGNG２．１のモジュールを実装するクラスファイルを作成(implements a.cls)
おわり
0690デフォルトの名無しさん
NGNGそれって Visual Basic 6 でも可能ですか？
0691おやぢ
NGNGとかいっても煽られるんだろな。
mdbをAccess2000で変換し、connection string をjet.oledb.3.51から4.0にかえて、activex
とか変えて、プログラムに結合しなおしたが処理が3.51に比べて
10倍以上かかるようになってしまった。そんなに4.0って遅いの。
ちなみに自分はAcess95をAccess2000にｱｯﾌﾟして使ってます。
ソースは以下のようですがとくに問題無いとおもうんだけど。
だれか教えてください。
Private Sub subTransCostDwn()
Dim SP(12)
filenum = FreeFile
Open gListpath & "\rxalltrncost.csv" For Input As #filenum
SQL = "delete * from TransCost "
ADO_Connection.Execute SQL, , adCmdText
Do Until EOF(filenum) = True
Input #filenum, d0, d1, d2, _
, SP(1), SP(2), SP(3), SP(4), SP(5), SP(6), SP(7), SP(8), SP(9), SP(10), SP(11), SP(12)
SQL = "select * from TransCost where dealyear = " & Format(wAcntYear)
SQL = SQL & " and transcd = '" & d2 & "' and lensnm = '" & d4 & "'"
Set rs = New ADODB.Recordset
rs.Open SQL, ADO_Connection, adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
rs.AddNew
rs!dealyear = d1
rs!transCd = d2
End If
For i = 1 To 12
j = i + 3
If j > 12 Then
j = j - 12
End If
rs.Fields("shpqty" & Format(j)).Value = SP(i) + rs.Fields("shpqty" & Format(j)).Value
Next
rs.Update
rs.Close
Loop
Close #filenum
End Sub
0692デフォルトの名無しさん
NGNGjet.oledb.4.0って3.51に比べておそいの。
http://pc.2ch.net/test/read.cgi/tech/1021696894/l50
氏ね。
0693デフォルトの名無しさん
NGNGこのSTORMっていうツールはどうやって使えばいいの？
0694689
NGNGなめてるのか？おまえVBで、って質問してるじゃねーか。
なんでおれがVBで出来ないことをお前に答えるんだよ。
２度と質問すんじゃねえ。ｷﾁｶﾞｲが！
Q.バイクにのりたいんですけど？
A. 免許とればいい
Q.中学生なんですけど？
と似たようなもん。
0695デフォルトの名無しさん
NGNG今回の事例。
ＶＢで～→こうすればいいよ→VBでもですか？
アホ質問者の冗長が問題。
例え。
バイク→免許→中学生
後から答えを制限する事例を持ち出しているのが問題。
結局>>694はアフォ。
0696デフォルトの名無しさん
NGNG結局>>688はアフォ。
0697デフォルトの名無しさん
NGNGだが、695はｱﾌｫっぽい。
0698!=688,695
NGNG0699688
NGNG氏ね
0700デフォルトの名無しさん
NGNG0701デフォルトの名無しさん
NGNGVB６で出来るよ。MSDNでimplementで検索してみ。
サンプルも確かあったはず。
>>698
わざわざ「!=688,695」と書くこともなかろーに（ｗ
0702デフォルトの名無しさん
NGNGという解釈はダメ？
0703701
NGNG0704デフォルトの名無しさん
NGNGそれがVB厨と言うものです。
0705デフォルトの名無しさん
NGNG意味のない煽りやめろ。
0706デフォルトの名無しさん
NGNGお前らだってよくやってるじゃん。
なお、俺はJava厨だ。
0707デフォルトの名無しさん
NGNG0708即レス
NGNGImageコントロール等もあるけどコントロールを
透過させるなら>686が一番かな。
ただ、透過しているとはいうものの、背景の
コントロールは見えない。単に透明部分を1色で
塗りつぶしてるだけなので。
どうしても完全に透過させたいならリージョン使っとき。
>>688
>689がすべてを物語ってる。
>>691
SP当てた？バリアントを使う理由は？
変換前と後で環境は変わってない？
全部違うなら知らん。
0711デフォルトの名無しさん
NGNG0713
NGNG0714デフォルトの名無しさん
NGNGとりあえず、
C#やってる奴はVB.netもやれ。
VB.netやってる奴はC#もやれ。
どっちかしかできない奴は、おとなしくしとけ。
どっちもできない奴は、どっちかやれ。
0715デフォルトの名無しさん
NGNGそれって、
「C#でポリモーフィズムしたっていいことは無いだろ。」
とも言い換えられるね。
0716デフォルトの名無しさん
NGNG滅びるのわかったる言語覚えるのも・・・。
0718デフォルトの名無しさん
NGNGポリモーフィズムするのに実装継承するのが必須なのかい？
0719デフォルトの名無しさん
NGNG0720デフォルトの名無しさん
NGNG0721まとれす ◆mato/KTI
NGNG必須というわけではないが、C#、VB.NETとVBの間で論じられているのなら、「インターフェイス
継承しかできない」点を無視するわけにはいかんと思うぞ
>>719
マルチメディアコントロール、DirectX、mciSendString APIのどれかだな
0722デフォルトの名無しさん
NGNG質問者です。
激亀レスですが、ありがとうございます。
質問後倒れてしまいました。
やっぱり危険なにおいがします。
でもやらないといけないんだろうなぁ。
0723デフォルトの名無しさん
NGNGポリモーフィズムを前提としたライブラリーがつくれないだろうが。
(実装継承させるようなライブラリーね。意味わかるかな、これで）
だから、ポリモーフィズムをするのには実装継承は不要。
ポリモーフィズムを利用するには、実装継承が必要。
0724デフォルトの名無しさん
NGNGなんでポリモーフィズムを利用するのに実装継承が必要なんだよ。
おまえJavaのライブラリに汚染されてないか？
0725デフォルトの名無しさん
NGNG0726デフォルトの名無しさん
NGNGポリモーフィズムが出来るんだからポリモーフィズムを前提としたライブラリ作れるだろうが。
0727デフォルトの名無しさん
NGNGそれ、フレームワークって言ったりしない？
0728デフォルトの名無しさん
NGNGJavaのライブラリーってシンプルなOOのライブラリーだぞ。
あ、ブビ厨はOO知らないんだっけ？
0729デフォルトの名無しさん
NGNG同意。
MFCより見通しの良いフレームワーク（AWTとかね）だな。
独特の癖はあるが。
0730デフォルトの名無しさん
NGNG729には同意。728は言ってることは正しいが人の話を聞かないアホ
0731デフォルトの名無しさん
NGNG0732デフォルトの名無しさん
NGNGそのメソッドを繰り返すコードはどう書けばいいですか？
0733デフォルトの名無しさん
NGNGっていう問題を教えてください
0734デフォルトの名無しさん
NGNG氏ね。
>>732
while(func() != 成功コード);
あ、VBか・・・。
0736732
NGNG0737デフォルトの名無しさん
NGNGそんなことせんでwhileで回しなされ。
0739デフォルトの名無しさん
NGNGいっそVB捨てる。
余命１年もないだろう。
0742デフォルトの名無しさん
NGNG#1とかでアクセスするより遙かに良い。
0744740
NGNG素早い回答ありがとうございます。
良い、というのはどういう観点からでしょうか。
速度？ ソースの見易さ？ 記述の一貫性？
現場のソースは従来の open print# put dir$ を使っているのですが。
0745即レス
NGNGFSOの良さ
・見やすい
・使いやすい
・機能が豊富
Dir、Openなどの良さ
・速い（少しだけ）
・WSHが無くても動く
ま、大まかなところ。
欠点は逆にしてくれ。
0747デフォルトの名無しさん
NGNG691ですが、解決しました。Access95で作ったdbをAcess2000で変換すると
処理速度が落ちるのを実験で確認しました。なぜかはわからぬが。
失礼しました。
0748デフォルトの名無しさん
NGNGとりあえず最適化したらどうです？
0749デフォルトの名無しさん
NGNG目くそ鼻くそ
どんぐりの背比べ
0750デフォルトの名無しさん
NGNGInStrBを使って15文字程度を検索すると（必ず一つだけ引っかかるとする）
どれぐらいの時間がかかりますか？
かなり時間がかかるんでしょうか？
それとも一瞬で検索できるものなんでしょうか？
似た体験した方とか答えられる方、教えてください。
0751デフォルトの名無しさん
NGNGファイルの読み込み速度に依存すると思われ。（やったことはないが）
0752デフォルトの名無しさん
NGNG自分で試せ。
0754デフォルトの名無しさん
NGNGサイズが大きくなるにつれ（？）遅くなっていくんですが、
これは対処可能ですか？
strMoji = strMoji & strTsuikaMoji
という感じです。
0756デフォルトの名無しさん
NGNGうーん、最初に
Open "temp.dat" For Output As #1
てな感じにファイルを開いて置いて、文を追加した時に
Print 1, strTsuikaMoji;
とやり、参照したい時はクローズして再び開いて読み込むってやったら速くなりましが。
なんかこれだと恐ろしく無駄な事してるような気がします。
0757即レス
NGNGまとめて出来ないんだったら最初に必要分確保して
コピー、って方法もある。
>756でやってるのはコピー先がドライブのやり方。
扱うサイズが数十MBを超えるんなら考え方は間違ってない。
メモリでやるんならCopyMemoryとかStrPtrとか使う。
0759デフォルトの名無しさん
NGNGFreeFile使った方がよさそうです。
0760デフォルトの名無しさん
NGNGどういう処理をしているのかが気になるな。
0761デフォルトの名無しさん
NGNGmoto(0)="あ"
moto(1)="い"
moto(2)="う"
tuika(0)="え"
tuika(1)="お"
というふうになってたとき、
moto(3)とmoto(4)にtuika(0)とtuika(1)の値を追加したいんですが、
どのように書けばいいのでしょうか。
結果、
moto(0)="あ"
moto(1)="い"
moto(2)="う"
moto(3)="え"
moto(4)="お"
となると幸せです。
ループ回して一文字ずつ入れていくしかないですか？
VB6です。
0762デフォルトの名無しさん
NGNGじゃだめなん？？？
0763デフォルトの名無しさん
NGNGむむっ！
0764デフォルトの名無しさん
NGNGいまいち何をしたいのか伝わりませんが。
今現在の質問内容ではループをまわすなりして代入してください
としか言いようがないです。
0765即レス
NGNG配列1に配列2を追加する、ならこんな関数作ってみた。
Function AddArray(Str1() As String, Str2() As String, Optional SeparateChrCode As Byte = 0) As String()
Dim Separate As String
Separate = Chr(SeparateChrCode)
AddArray = Split(Join(Str1, Separate) & Separate & Join(Str2, Separate), Separate)
End Function
途中に追加(=変更)ならForで回すしかないな。
0766761
NGNG例として2個しかない場合を示しただけで、
実際にはものすごい数処理したりする事になるかもしれんのです。
>>763
Stringなのはただスレ上で表現しやすいようにそうしただけで、
実際違うのです。
>>764-765
では素直にループ回して頑張ることにします。
0768デフォルトの名無しさん
NGNG>>765さんの関数は使えないの？膨大な数なのなら多分>>765を
使えるような形にもっていけるような・・・・・。
それとも膨大な要素数の配列1をあらかじめ宣言しておいて
（もちろん要素数は分かってるんですよね？）配列2を代入しなくては
ならないの？
0769761
NGNGなんか最初出したのは頭の悪すぎる例だったみたいですね。
実際扱うのはByte配列です。
追加されるほうのByte配列はあらかじめ必要なぶんだけReDimしてあります。
例えば追加される方に100バイトまでしかデータが入ってなかったら、
101バイトから追加するほうのバイト配列の値をそっくり移したいのです。
0770デフォルトの名無しさん
NGNGうーん（謎
とりあえず>>765さんの関数では駄目な理由を教えてもらえます？
0771まとれす ◆mato/KTI
NGNG>>765 のやり方だと、新しい配列を作っちゃうからだろ？
>>761
どうしても、ってことなら、>>766 にあるように、API を使うって手がないこともないが・・・
地道に入れていくほうが、プログラム的に確実だな
この辺、VB.NETだと便利なメソッドが使えるんだが
0772即レス
NGNGこんなのになった。
Function AddByteArray(Byte1() As Byte, ByVal Byte1AddIndex As Long, Byte2() As Byte) As Long
Dim Byte2Size As Long
'Byte1AddIndexはByte1に追加する位置ね。戻り値=コピーしたバイト数
Byte2Size = UBound(Byte2) + 1
If UBound(Byte1) < Byte1AddIndex + Byte2Size Then Exit Function
CopyMemory VarPtr(Byte1(Byte1AddIndex)), VarPtr(Byte2(0)), Byte2Size
AddByteArray = Byte2Size
End Function
俺もVBの標準関数で出来るんならそっち使うけど。
>>770
Byte型だからってのもあるみたいね。
0773デフォルトの名無しさん
NGNG> >>765 のやり方だと、新しい配列を作っちゃうからだろ？
そんなのちょろっといじればすぐに解決するじゃん。
それが理由？？？？？
0774デフォルトの名無しさん
NGNGByte配列ならCopyMemory使えるから楽だよー。
手元に資料が無いからコード出せないけど、すごく簡単だ。
0775761
NGNG上手いこと動きました。
でもCopyMemory版を>>772さんが用意してくれたので、
ちょっと試してみようかと思います。
そっちのほうがはやそうだし。
0777デフォルトの名無しさん
NGNGってのを質問していた者ですが、
現在どのWindowにフォーカスがあるのか、というのを
調べることはできるのでしょうか。
よろしければご教授おねがいします。
0778777
NGNGどのWindowがアクティブになっているか、ってことです。
0779デフォルトの名無しさん
NGNGフォーカスを与えるとアクティブになる。
アクティブなウインドウにはフォーカスがある。
0780デフォルトの名無しさん
NGNGAPIのGetForegroundWindowを見れ。
0781デフォルトの名無しさん
NGNGFunction AddArray(Str1() As String, Str2() As String, Optional SeparateChrCode As Byte = 0) As Long
Dim Separate As String
On Error GoTo errT
Separate = Chr(SeparateChrCode)
Str1 = Split(Join(Str1, Separate) & Separate & Join(Str2, Separate), Separate)
AddArray = UBound(Str2) + 1
Exit Function
errT:
End Function
こうかな？Str1は動的配列である必要があるけど。
>>777
GetForegroundWindowか、GetActiveWindow
>>775
がんばれ。
なおこのコードを実行した際に生ずる
いかなる責任も（略
0782即レス
NGNG0783777
NGNGどうもでした。
0784デフォルトの名無しさん
NGNGpascalの、
if x in ['0'..'9','A'..'F','a'..'f'] then
のように、変数xが16進文字であるかどうか調べたいのです。
また、変数xが、0～9の数字であるかどうか調べたいのです。
0785デフォルトの名無しさん
NGNG< >で文字コード比較すれば？
0786デフォルトの名無しさん
NGNGあー、なるほど。
結構if文の条件式が長くなりますね。
パスカルのようにすっきり出来たらいいんですがね。（＾＾；
レスどうもです。
0787デフォルトの名無しさん
NGNGCase "0" to "9", "A" to "F", "a" to "f"
0788デフォルトの名無しさん
NGNGWin98+Access97がインストールされている環境にて
VB3＋DAO2.0で
Dim g_dbMst as Database
にてコンパイルエラー（Out Of Memory）が発生します。
細かい情報は今会社ではないので覚えていないのですが
上記の環境のみでこのコンパイルエラーが発生する原因を
ご存知の方いらっしゃいませんか？
ちなみにDAO2.0がインストールされる前はコンパイルがとおりました。
0789デフォルトの名無しさん
NGNG変な所指した。
0790デフォルトの名無しさん
NGNGLike演算子を使うとか。
1文字ずつ切り出してInStr関数で"0123456789ABCDEFabcdef"の中を検索するとか。
あるいは、"&H"を頭に付けてから、CLng関数とか噛まして、On Errorでトラップするとか。
0791デフォルトの名無しさん
NGNG相手が電話に出たことを確認後自動で処理を行うようにしたいのですが、
相手が電話をとったこと（オンフック）を判定する方法がわからず困っています。
一応、MSCommでダイヤルを行ってポケベルを送信し、（オンフック関係ない）
電話を終了させるようなコードはできてるんですが･･･
よろしくおねがいします。
0792_
NGNG他アプリの子ウィンドウのポップアップメニューの項目数を取って、目当ての項目をクリックさせるにはどうしたらいいのでしょうか？
GetMenuでハンドルを取って、GetMenuItemCountでカウント取ろうとしましたけどダメでした。(結果-1が返る)
ハンドルが取れてないんだから当たり前ですけど・・・。
どなたかご存じの方、ご教授よろしくお願い致します。
0793デフォルトの名無しさん
NGNGこの前、電話取ったら、自動的に音声が流れるDMのような電話があったよ
うさんくさいし、犯罪の片棒を担ぐことになる可能性もあるので、
レスできないよ、自分一人でがんばれ。
0794791
NGNGあー、動き的にはちょうどそんな感じです。
そのアプリだと犯罪の片棒ってかんじですね。
自分がつくろうとしてるのは、別アプリで機器の状態監視をして、その監視状態を
いろんな媒体で送信するっつーもんだったんですよ
メールとか、ポケベルとか、FAXとか他の媒体はできてるけど、どうにも電話だけが･･･
まぁ、もうすこし試行錯誤してみます。ありがとうございました。
0795デフォルトの名無しさん
NGNG繰り返しのアニメーションを作るプログラムを教えてください
0796デフォルトの名無しさん
NGNGアニメーションの形式による。
0797デフォルトの名無しさん
NGNG0798デフォルトの名無しさん
NGNGAVI貼れ。最強。
0799デフォルトの名無しさん
NGNG0800デフォルトの名無しさん
NGNG0801デフォルトの名無しさん
NGNG0802デフォルトの名無しさん
NGNG0803デフォルトの名無しさん
NGNGぐはっ、ﾏｼﾞですか
こりゃ買うべきなのかな・・近くの店に１つだけあったし
0804デフォルトの名無しさん
NGNGhttp://www.microsoft.com/japan/msdn/vs_previous/vstudio/vs6discon.htm
に出荷停止とありまが。
けど焦って選択を間違え・・・・。
0805デフォルトの名無しさん
NGNG左の履歴領域と右のＷＥＢ領域の間のラインを左右にドラッグすると
履歴領域の大きさを変更できますよね。
これと同じように領域変更させたいんですがどういう方法でやったらいいんでしょうか？
0806デフォルトの名無しさん
NGNGＩＥ上？
ＶＢのForm上?
Formで話す
PictureBoxがあるとする
その端っこにマウスが来たら カーソルをチェンジして、サイズ変更モードにする
（自分で変数でもスイッチにするという意味)
マウスが押されたまま、離されたところでサイズ決定
イベントの基本的マスターだな
ちなみにPictureBoxはAlignmenntプロパティだっけかな、左合わせとかにすれば
ピﾀﾘ IEの履歴とか、お気に入りフレームのような感じになるんだよね
基本すぎで 使ってないので忘れた（笑
0807デフォルトの名無しさん
NGNG0808デフォルトの名無しさん
NGNGVB6ならアプリケーションウィザードで
エクスプローラー風のスケル豚コードが作成できるよ
0809デフォルトの名無しさん
NGNGツーか単なるframeタグのことﾀﾞﾀｰﾘして
0810デフォルトの名無しさん
NGNG0811デフォルトの名無しさん
NGNG0812682
NGNG超悩んだんですけど、
ImageList(2).ListImages("NLN").Draw picState.hDC, , , imlTransparent
にしました。っていうか、こんな方法みんなどうやって知るんでしょうか？
0813デフォルトの名無しさん
NGNG画像を読み込んでるみたいなんですけど、VBでもできますか？
0814山太郎
NGNGスプリッタの事?だったら、これなんかどう?
ttp://hp.vector.co.jp/authors/VA014162/hitch/ActiveX2/activex2.htm
0815g
NGNG①除算の余りを計算できる
②べき乗を計算できる
③連続計算ができる
④数値を入力する時に誤った入力をすると警告を出して、入力できないようにする。
①～④までの機能をつけたいのですが、まったくコードがわかりません。
教えてください。
0816もきち ◆1bSaucJA
NGNGネットなどに掲載されていたプログラムからパーツだけ引っこ抜いて一部つかったり
自分で組んだものと合わせて作っています。
VBとうい枠で作っている以上は機構が似たモノをつくっている以上プログラムの中身も
おのずと似てくると思うのですが、会社の上司は他人のプログラムの盗用じゃないか？
といってきます。（プログラムの事はなにもわかってない上司なのですが…）
確かに一部たいへん効率が良いと思い取り入れたモノもありますが、私自身では盗用では
ないと思っています。
他人のプログラムを一部変えただけで自分が作ったといって公開するのは盗用だとは
思いますが、（極端な例を除いては）今回は盗用にあたらないと思っています。
ちなみに一部良いと思って使ったプログラムの部分は全体の３～４％前後です。
プログラムとはどれくらいの部分が重複していれば盗用などになるのでしょうか？
0817デフォルトの名無しさん
NGNG丸投げは(･A･)ｲｸﾅｲ
やるだけやってみて疑問点のみ聞け。
0818即レス
NGNG基本的にお手軽な方法はない。
俺も教えて欲しいぐらい。
>>795
アニメーションの原理なら
アニメーション数分画像を用意して１つずつ転送、の繰り返し。
>>801
好きにすれ
>>804
ほんとだね。ただVB6.0自体のサポートはまだ続いてるし
EnterPriseはまだ売ってるみたいだからなあ。
>>812
参考書を読む数と経験ではないかな。
>>813
一応オーナードローで出来るけど。
>>815
1.MOD
2.^
3.4は817と同意
>>816
難しい問題だな。
商用アプリなら見た目が似てるだけでも
訴えられる可能性もあるし。
関数だけなら丸ごと使っても問題には
ならんだろうし。
0819_
NGNGそれを売りに出すから心配だと言うなら元の作者に断り入れれば済むと思われ。
異常なまでに著作権とかに五月蠅い作者で無い限り断り無しでも普通は問題無い。
内部で使うだけなら心配無用でしょ。
0820デフォルトの名無しさん
NGNGてか1と2は基礎中の基礎だろ。
0822デフォルトの名無しさん
NGNGユーザーにはまったく操作させずデータ表示用にのみ使ってるフォームがあるんです。
フォーカスが来たらメインのフォームに移すように処理をしてるんで、
実質マトモに動いてはいるんですが、一瞬フォーカスが移るんで
ちょっぴり格好悪いです。
なんとかしたいです。
0823即レス
NGNG>>675-678見れ。
Win2000以上なら拡張スタイルのWS_EX_NOACTIVATEが
使えるようだが。
#ちなみにPhotoShopも似たようなことしてるが
#あれはタイトルバー消して移動と描画を自前でやってるようだ。
を指定するのですけど、これって普通に考えたら特に必要無いと
思うのですが。（VBのときは付けてなかった）
逆につけておかないといけない場合というのがあるのでしょうか？
もちろん構造体のメンバのオフセットが思惑通りになっていると仮定して
ですけど。
>NETでは構造体の並びが変更される可能性があるかららしいが
マジですか。じゃあ必須じゃないですか、っていうか必須だったら
なんでわざわざアセンブリのオプションにするんだろう．．．
0828
NGNGＶＢ側からPhotoshopの起動はできますが、GetObjectで"実行時エラー
４２９" "ActiveXコンポーネントはオブジェクトを作成できません"
となり、インスタンスが作成できません。
フォトショップを起動した状態で、
Dim wobj As Object
Set wobj = GetObject(, "PhotoshopTypeLibrary.PhotoshopApplication")
フォトショップのバージョンは5.02か5.5です。
Ｗｅｂ上ではＥＸＣＥＬやＷＯＲＤの例はありますが、Photoshopはありません
でした。
どなたかできるかたお願いします。
0829デフォルトの名無しさん
NGNGツールウィンドウにするっていうのは？
0830デフォルトの名無しさん
NGNG参照設定は確認した？
0831828
NGNGありがとうございます。
参照設定は、"Adobe Photoshop 5.0 Type Library"にチェックしてます。
0832デフォルトの名無しさん
NGNGLine Input で全部読んで Print で追加を含め書くって方法しか知らん
他にもっと合理的な処理があれば教えてくれ
0833デフォルトの名無しさん
NGNG宿題を1から全部教えてもらうわけね
0834デフォルトの名無しさん
NGNG書いてたんですが、なんかそれまで動いてたコードが急に動かなくなって
再起動したらまた動くようになったんだけど、なんで？
ちなみに学校のLinuxでは普通に動いてました。
0835デフォルトの名無しさん
NGNG誤爆しました。 すみません。無視してください。
0836デフォルトの名無しさん
NGNG・REM
・END
・INPUT
・LET
この五つのの意味を教えてください。
できればそこのURLを貼っていただくとありがたいです
0837デフォルトの名無しさん
NGNGスレ違い。
ここはVisual Basic専用スレッド。
ひとつのｻｲﾄ内のhtmlファイルを全てリスト表示させる
ようなものを作っています。
一応型はできていて、小さいｻｲﾄなら簡単に全部を取得できるのですが
ページ数が膨大となると、処理が遅くてやってられません。
どうにかして高速化したいのですがどうしたらいいでしょうか？
InetコントロールでOpenURLしてソースを取ってURLを辿る仕組みなのですが。
よろしければお願いします。
0839デフォルトの名無しさん
NGNG0840デフォルトの名無しさん
NGNG光ファイバー引けよ
0841デフォルトの名無しさん
NGNGオーバークロックしてみて下さい
0842デフォルトの名無しさん
NGNGよーし、VB初心者の俺がレスしちゃうぞー
15年ぐらい前のMSXの知識から（当時小学生）
・REM ’と一緒
・PRINT 文字を表示する
・END プログラムを終了
・INPUT 文字を入力待ち
・LET なんだっけ？
おめーらｗ
質問スレなんだから技術的に答えてやれ。ネタも面白くていいけど。
>>838
まずはOpenURLでなく、Executeでやれ。
前にもこの系統のスレで出ていた気がするが、
OpenURLは同期、Executeは非同期で処理できる。
そこらへんは検索すればいろいろサンプル出てくるだろう。
0844デフォルトの名無しさん
NGNGLET は代入文の最初につけるものです。
条件分岐文と分けるためでしょうかね？
すれ違いにつき、sage。
0845842
NGNGなるほど、わかったような、わからないような
Dimみたいなもんかな？
0846デフォルトの名無しさん
NGNG0847デフォルトの名無しさん
NGNG時間でプロセスを制御したいんですが
（９時に動かし、次に９時５分にという風に
どう書いたらいいですか？
よろしくおながいします
0848デフォルトの名無しさん
NGNGでなきゃそういうサービスとして作る。
0849デフォルトの名無しさん
NGNGGetTickCount を使う。
的外れならごめん。
0851デフォルトの名無しさん
NGNGフォームにCrystal ActiveX Control (OCX)を貼り付けて、
印刷・プレビューができるアプリを作りました。
データソースはCrystalReports付属のCRXMLV36を使っています。
アプリはきちんと動くのですが、
CrystalReportsをインストールしているマシンでしか動作しません。
Runtime.hlpを読んだらいくつかのdllが再頒布可能なので
それを使ってインストーラを作りたいのですが、その方法が分かりません。
ocxはregsvr32.exeで登録して、普通のdllはWINNT\system32にコピーすれば
良いのだろうと思いますが、データソース周りがさっぱりです。(;´Д`)
どなたか分かる方、いませんか？
0852デフォルトの名無しさん
NGNG0853デフォルトの名無しさん
NGNGクラスモジュールの関数がPrivateの場合
クラス内のPrivateユーザ定義型、もしくは標準モジュールのPublicユーザ定義が使える
クラスモジュールの関数がFriendの場合
クラス内のPrivateユーザ定義型、もしくは標準モジュールのPublicユーザ定義が使える
クラスモジュールの関数がPublicの場合
クラスモジュールをActiveXにして、クラスモジュールのPublicユーザ定義が使える
0854即レス
NGNGクラスはあっても公開されてないケースもある。
adobeに問い合わせて見れ。
>>832
追加分（変更部分）だけ読み込んで
追加位置から書きこみ。
大して変わらんけど。
>>837
Basicスレってのは無いからねえ。
スレ立てるまでもない・・あたりか。
>>838
ネックになってる部分がよく分からん。
どこが遅いかチェックすれ。
>>847
Timerはいかんの？
>>851
Runtime.hlpに書いてない？
書いてないならメーカーに聞いた方が早い。
0856805
NGNGなんかうまく説明できなかったみたいですいません。
ピッタリ横並びした二つのコントロール（テキストボックスとリストビューとか）を
境目ドラッグでサイズ変更させたかったんです。
一度その方法でやってみます。
>808
そうだったんですか？
知りませんでした。
作成してスケルトンコードみてみます。
>814
今ＤＬして見てみましたがまさにコレのこと言いたかったんです。
大変参考になりました。
助かります。
レス下さった方々ありがとうございます。
0858デフォルトの名無しさん
NGNGと、お礼を言ってみるテスト
0859デフォルトの名無しさん
NGNG俺も探したヨ！
ttp://www.int21.co.jp/pcdn/vb/noriolib/vbmag/9812/vb6/
↑の真ん中よりちょと上の所にサンプルコードがあるヨ
0861デフォルトの名無しさん
NGNGありがとうございます。
0862828
NGNGありがとやんす。adobeに問い合わせみます。でも
Dim wobj As Object
Set wobj = New PhotoshopTypeLibrary.PhotoshopApplication
でフォトショップの起動は出来るんです。クラスは公開されていると
言えない？
どこか回答してくれるようなスレとかも教えてください。行き詰まって
ます。
0863即レス
NGNGPhotoShopのヘルプ見た？
一部抜粋
Photoshop では、Windows の OLE オートメーションや Macintosh の
AppleScript(TM) を使った外部オートメーションの一部がサポートされます。
何が公開されてて何が出来ないかはAdobeの文書を読むしかない。
AdobeのサイトにSDKかなんかがあるらしいが。（英語）
>どこか回答してくれるようなスレ
知らん
0864828
NGNGそれは見ました。で、出来ると思ったんです。
ありがとやんした。
0865838
NGNGとりあえず>>843 のExecuteでやれっていうので
少しはわかってきました。
OpenURLで巨大なページを開かせていると、
その間は他の処理ができなくなってしまっていました。
これをどうやって高速化できるかな？と質問したのですが
やっぱ日本語下手なんでよくわからんかったんでしょう。すまんです。
ただ、今のところExecuteでやっても、情報の取得漏れが出る・・・
まぁ適当に試行錯誤してやってみようかな。
ありがとうございましたっ
0866観鈴
NGNG早速ですが教えてください。
スクロールバーでラベルをスクロールしたいのです。
どうか教えてください。切実です。
0867デフォルトの名無しさん
NGNGいってることがよくわからん
0868デフォルトの名無しさん
NGNGAccessのデータベースに接続して、ある列情報を取得してﾘｽﾄﾎﾞｯｸｽに格納、
そこから一つずつﾃﾞｰﾀを選択して別に用意したﾃｷｽﾄﾎﾞｯｸｽに入れて編集というのを
考えてやってみたのですが、VBのﾘｽﾄﾎﾞｯｸｽって1列しか格納できないっぽくて断念中です。
ﾘｽﾄﾎﾞｯｸｽには、選択するべき項目（例えば「氏名」列）と非表示で一意のコードなんかを
格納して、コードを元にデータを取り出したいのですが、VBではどういう風に行うもんなのでしょうか。
おながいします。
0869観鈴
NGNGlabel7.left = Hscroll1.value
などを使用してラベルをスクロールさせたいのですが
どうもうまくいかないのです。
0870デフォルトの名無しさん
NGNGDim fso, Mytextfile
Set fso = CreateObject("Scripting.FileSystemObject")
Set Mytextfile = fso.CreateTextFile("c:\age.txt", True)
Mytextfile.WriteLine("あいうえお")
Mytextfile.WriteLine("あいうえお")
MyFile.Close
0871すー
NGNGおしえてけれー
0872デフォルトの名無しさん
NGNGタイマーじゃダメなんすか。
0873すー
NGNGタイマーでもいいんだけど、マウスを上下に動かすソース
自体わからないんです。。。（泣）
だれかしってるひとおしえてーー
0874観鈴
NGNG0875デフォルトの名無しさん
NGNG0876デフォルトの名無しさん
NGNGLabel1とHscroll1を置いて
Private Sub HScroll1_Change()
Label1.Left = HScroll1.Value
End Sub
これで動きますが･･･
それと、”どうもうまくいかない”というのでは解りません。
実際やってみてどうなったのか具体的に書いたほうがいいかと。
0877デフォルトの名無しさん
NGNGy As Long)
0878デフォルトの名無しさん
NGNGSetCursorPos でできる。
0879デフォルトの名無しさん
NGNG動的にLoadして増えていくコントロール配列の部品があるんですが、
フォームのリサイズ時に一緒にリサイズさせたいです。
そうすると、Form_Resize時に
For i=0 to コントロールの数
コントロール名.Width = Frm_Main.ScaleWidth
Next i
みたいに書くしかないですか？
なんか一行でスマートにかっこよく見やすいステキコードの書き方ってないですか？
0880すー
NGNG頑張って作ってみます！
0881デフォルトの名無しさん
NGNG1ドットくらい右に移動するかもよｗ
0882881
NGNG0883観鈴
NGNGお返事どうもです。
そのPGで確かに動きます。動きますが･･･。
ラベルのすべてを表示していないのにバーはMAXを迎えてしまいます。
うまくすべて表示するにはどういったことが必要でしょうか。
0884879
NGNG記述ミス。
For i=0 to コントロールの数
コントロール名.Width = Frm_Main.ScaleWidth
Next i
↓
For i=0 to コントロールの数
コントロール名(i).Width = Frm_Main.ScaleWidth
Next i
0885876
NGNGHScrollのMAXの値を大きくすればいいのでは？
あとは、FromのScaleModeを変えてみるとか。
どういうことを実現したいのかちとわからないが
画面左端からLabelをスクロールさせて全部表示させるだけなら
Form1.ScaleMode = 3
HScroll1.Max = Label1.Width
Label1.Left = - Label1.Width
としておいて
Private Sub HScroll1_Change()
Label1.Left = -Label1.Width + HScroll1.Value
End Sub
とりあえずこんな感じでいいと思うけど。
0886デフォルトの名無しさん
NGNGAccessスレ逝った方が良いのでしょうか。
0888
NGNGListViewにしてみそ
0889観鈴
NGNG折角PGまで書いてくださったのにすいません。
思うようにいきません。
普通にスクロールしたいだけなのですが･･･。
データが非常に横長いのでどうしても横にバーがいるのです。
リストボックスですと縦しかバーは出ないものですから･･･。
885さんのおっしゃるPGでは一度動かすと何も見えなくなって
しまう位に移動してしまいました …c(ﾟ^ ﾟ ;)ｳｰﾝ
0890デフォルトの名無しさん
NGNG「ABCDEF」という内容があったとすると（文字列だけどバイナリとして考えて）
ファイルを開いて３文字目、４文字目を消して「ABEF」という風に
くっつける事は出来ますか？
コレを巨大なファイルでやりたいんですけど。。。
0891デフォルトの名無しさん
NGNG> リストボックスですと縦しかバーは出ないものですから･･･。
>>888
0892デフォルトの名無しさん
NGNGフォームより長いラベルがあって、それを全部見えるようにスクロールさせる、ということでしょうかね。
Dim lblLeft As Long
Form1.ScaleMode = 3
HScroll1.Max = Label1.Width + Label1.Left - Form1.ScaleWidth
lblLeft = Label1.Left
Private Sub HScroll1_Change()
Label1.Left = lblLeft - HScroll1.Value
End Sub
こんな感じでどうでしょうか？
0893即レス
NGNGEUC保存はVB標準関数では無理。
nkf32.dllあたりつかって見れ。
>>879
それで十分ステキコード。
つか、そんなもん無い。
>>889
LB_SETHORIZONTALEXTENTを使うのも良い。
>>890
素早くやるのは無理。地道にFor使っとき。
どうしても、っつーならMoveMemoryかな。
CopyMemoryではなく。
0895デフォルトの名無しさん
NGNGEUC保存
改行の置換とかでできないかね～
0896デフォルトの名無しさん
NGNG0897観鈴
NGNGこうで出来ましたです。
HScroll1.Max = lbl7.Width '最大値
HScroll1.Min = lbl7.Left '最小値
HScroll1.LargeChange = HScroll1.Max / 7 '矢印クリック移動量
HScroll1.SmallChange = HScroll1.Max / 5 'バークリック移動量
lbl7.Left = HScroll1.Min - HScroll1.Value
>>892さん
どうもありがとうです。コードは凄く参考にさせていただきました。
それでは今夜も頑張ったのでそろそろ寝ちゃいます。
明日もがんばってくるです。
ありがとうございました ﾍﾟｺﾘ(o_ _)ｏ))
0898デフォルトの名無しさん
NGNG普通だが。
Private Sub HScroll1_Change()
Label1.Left = HScroll1.Value * 2
End Sub
0899デフォルトの名無しさん
NGNGセクハラだよ きっぱり
0900デフォルトの名無しさん
NGNGどうしたもんだか…やれやれ
厨はこのスレで留めておかないとな
あきられてきたかな？
厨を引きつける企画はないかな んで、そこまで考えないかんねん
0901デフォルトの名無しさん
NGNG0902デフォルトの名無しさん
NGNG独自に作成したフォントをVBからWindowsに登録（削除）したいのですが、
どうすれば良いのでしょうか？
プログラムは Windows2000Pro で動作させます
0903笑む獅子
NGNG問題はそれで何をやるのか？
その為の楽はＯＫ
ＶＢが楽だと言うのならＯＫ。ただそれだけ
0905902
NGNG早速試してみます。
フォントの削除は、
コピーしたファイルを削除するということで大丈夫ですか？
0908905
NGNG何かおかしい事してます？
コピーじゃだめですか？
0909デフォルトの名無しさん
NGNGそのアフォじゃないがFontフォルダに登録しなくてもAPI2つで使えるようになるっしょ。
GetScalableFont（だったっけ？）、GetFontData（だったっけ？）、SelectObjectとか調べてみ。
0910即レス
NGNGコピー元を削除、ね。
>>909
それは動的に作成したフォントの割り当てだから。
「Windowsに登録」っつってんだからﾁｮﾄ違うような。
>>903
そうだね。
0912905
NGNG試してみました。
コピーでフォントが登録できました。
ですけど、ファイルを削除する時に、エラーがでる時があります。
エクスプローラーから削除すると、「ファイルが使用中」という警告が
でました・・
この状態でも、コントロールパネル－フォントから削除してみると
消すことができました
0914デフォルトの名無しさん
NGNG▼ VB初心者質問スレ Part 10 ▼
http://pc.2ch.net/test/read.cgi/tech/1022127528/
0915デフォルトの名無しさん
NGNGキャプションをアイコンの隣に表示するようにしてるんですが、
すべてのボタンの幅が、その時一番大きなボタンにあわされてしまいます。
labelコントロールのオートストレッチみたいにそれぞれのボタンを、
それぞれのアイコン幅+キャプション幅に自動調整して表示する方法はないでしょうか？
0916即レス
NGNGやや間違った答えをしてしまった。
ちょっと調べてたんだが、
・フォントのインストールはレジストリもいじる必要がある。
（HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT(9x系はWindows)\CurrentVersion\Fonts）
・レジストリにはフォント名一覧のほかにFontLinkなどのキーで
フォントの名前だけを変更できる。（ショートカットみたいなもの）
・フォントをコードから削除してもフォントフォルダを開いている場合は
更新してもフォルダの内容は変更されない。
（もう一度開きなおす必要がある）
・一度使用したプロセスが生きている限りフォントは削除できない。
（エクスプローラーでも一緒。）
最後のは体験で言ってるだけだけど。
http://homepage2.nifty.com/winfaq/fontstrouble.html
http://www.dais.is.tohoku.ac.jp/~kabe/win/msgothic/g-both.html
これ参考になるかな？
>>913
それはたぶんVBで削除した後、レジストリを削除していないか
フォントフォルダが更新されていない状態。
その場合、エクスプローラーで削除するとエラーが出た後
レジストリをエクスプローラーが修正して開きなおす。
だから削除されたように見えるはず。
どちらにしても使用中のフォントは削除できない。
再起動時に削除するようにしとき。
0918905
NGNG詳しく調べてもらって、ありがとうございます。
ファイルをコピーしただけでも登録されているみたいですので、
しばらくテストして、問題なければ、この方法でやってみます。
ちょっと、レジストリとか詳しくないので・・・
削除できない場合があるので、そのやり方を工夫してみます。
もし削除できなければ、「OSを再起動してからすぐに再実行してください」とか
メッセージを出そうと考えています。
色々とありがとうございました、なんとか解決できそうです。
0919デフォルトの名無しさん
NGNG09211
NGNGこんなスレ後半になって１が出現するのも珍しい
0923デフォルトの名無しさん
NGNGACCESSみたいに、プロパティーで設定だけでできないのでしょうか？
出来ない場合、API呼び出しで制御するしかないのでしょうか？
0924デフォルトの名無しさん
NGNGDDEはよくわからないし使わないですが、その場合も入れたほうがいいんですか？
0925デフォルトの名無しさん
NGNGIMEModeを使わずにですか？
0926＠：＠
NGNG環境：WinXP VB6
今トラフィックモニタを作っているのですが
送信ﾊﾞｲﾄ数、受信ﾊﾞｲﾄ数などを取得したいのです。
APIか、Win付属のDLLか何かでできそうだと思うのですが
検索しても有力な情報がかからず困ってます。
WinXPのタスクマネージャにあるネットワーク負荷のグラフみたいなのが
作れれば十分なのですが・・・。
よろしくお願いします。
0927Ｏ＿Ｏ...
NGNGコマンドボタンの色を変えたいのですが、
command1.style=1
にしているのに、"取得できない"というエラーが出て、
プログラムが実行されません。
解決方法解る人いませんか？
教えてください・・・。お願いします。
Win2000 ＶＢ（たぶん）６です。
0928デフォルトの名無しさん
NGNG今VB持ってる？
ならコマンドボタンをクリックしてF1キーを押す。で、プロパティを見る。
command1.style=1でのエラーは
値の取得のみ可能なプロパティに値を設定することはできません。
だ。
値の取得はいいが、設定することはできん。実行時。
で、色変えは、
ForeColorじゃないか？BackColorもな。
0929デフォルトの名無しさん
NGNGhttp://www.microsoft.com/japan/developer/library/default.asp?URL=/japan/developer/library/jpwinpf/_win32_PdhBrowseCounters.htm
ここらへんにパフォーマンスモニタに関するAPIがあるみたいだが、
これを使うのはどう？
0930がる～ら
NGNG0931デフォルトの名無しさん
NGNG実際バカじゃんｗ
0933デフォルトの名無しさん
NGNGTrayMeter作者に聞いたら?
0934933
NGNGオイラも勉強してみよっと。
0935926
NGNGこちらもソースみつけたんで読んでみてるんですけど
わからんYO！C++？知るかｳﾞｫｹって感じ・・・。
核心部分がどうなってるのかってのだけ誰か説明してくれぇ～
API使うのWin付属DLLでやるの それともなんかもう難しいことやってんの？
そこさえもわからん・・・
0936デフォルトの名無しさん
NGNGソースに載ってる。
0937933
NGNGこれかな
0938デフォルトの名無しさん
NGNG書いてあるページを教えて下さい。VB
0939Ｏ＿Ｏ...
NGNGとりあえず見てみる事にします。
ありがとうございました。(^o^)
ForeColore 入れるの忘れてた...。^_^;
0940デフォルトの名無しさん
NGNGもうやめなよVB6。絶対.netのほうが面白いって。
0942あ
NGNG今VB6でタスクトレイに常駐するようなソフトを作っているんですけど
タスクトレイのアイコンにカーソルを合わせると出てくる文字列を設定できますよね
それを、アイコン追加時だけでなく状況に応じて変更したいのですが
いちいちアイコン消去→アイコン追加（新しい文字列）
ってやらないとだめなのでしょうか。そうするとタスクトレイが乱れる（？）のですが・・・
それと、アイコンをちゃんと消すように作ってあるのに、アイコンが消えないことがあります。
ちゃんと終了されているのにアイコンだけのこっていて、変だな、と
カーソルをもっていくと、消えてしまいます。何が悪いんでしょうか。
長文すみませんがよろしくおねがいします。
0943デフォルトの名無しさん
NGNG＞何が悪いんでしょうか。
消せてないんでしょ
添削してほしけりゃコード貼れ
0944942
NGNGそうですか。丸投げはいけないかと思い遠慮していたのですが、
コード貼っていいようなら貼っちゃいます
Dim NotifyIcon As NOTIFYICONDATA
'タスクトレイのアイコンを削除
With NotifyIcon
.cbSize = LenB(NotifyIcon)
.hwnd = Me.hwnd
.uID = 10
End With
Call Shell_NotifyIcon(NIM_DELETE, NotifyIcon)
'-------------------------------------------------
'サブクラス化の終了
Call SetWindowLong(Me.hwnd, GWL_WNDPROC, lpOldWndProc)
0945942
NGNGType NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
こうなってます。
どこが悪いんだろぅ。943のNIM_MODIFYというのが入ってないなぁ
それをどっかに入れないとだめなんでしょうか？
0946942
NGNGNIM_MODIFY＝アイコンの状態を変更
こういうことでしたか。すみません。
でもアイコンが消えずに残るのはどうしようもないのかなぁ
0947デフォルトの名無しさん
NGNG･･･定数設定どうなってんだべ?
0948デフォルトの名無しさん
NGNG0949デフォルトの名無しさん
NGNGアイコンを消す直前にフォーカスを当てればオッケー。
これ、ＦＡＱだわよ。
0950デフォルトの名無しさん
NGNGちゃんとNIM_DELETEしてすべてのリソース解放してるか？
0951デフォルトの名無しさん
NGNG？？
それVBアプリのファッキュー？
0952942
NGNG定数はきちんと設定されてるようです
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
>>949
消す直前にフォーカス・・・？
まずどこにフォーカスを当てればいいのかわからないという、、、
>>950
944のでちゃんと解放しきれてないんのでしょうか・・・
だったら困るなぁ・・・まじ
というかNIM_MODIFYとサブクラス化の兼ね合いがうまくわからん
サブクラス化解除してからNIM_MODIFY？
サブクラスとかほっといてNIM_MODIFY？
NIM_MODIFYでやってからサブクラス解除して開始しなおす？
もうわからん。ごっちゃになった。氏ぬマジ鬱
0953デフォルトの名無しさん
NGNG当然、ＶＢに限らない。
Winの仕様。
0954デフォルトの名無しさん
NGNGそんなんやらんでも消えたはずだが
Windowsのバージョンは？全部そうなの？
0955デフォルトの名無しさん
NGNG自分で調べろよ。
あとでマウスカーソルをアイコンの上に持っていった時に消えるだろ？
でないとしても、どっちみちこの処理は必要だし。
0956デフォルトの名無しさん
NGNGアイコン用に別フォームでも作ったら？
0957デフォルトの名無しさん
NGNGサブクラス化はメッセージ拾ってるだけだろ？
起動時と終了時にやっとけばいいじゃん
NIM_MODIFYとは関係ない
0958デフォルトの名無しさん
NGNG98SEや2Kぐらいまでは、そう。MEとXPは知らないが…。
実際、アイコンが残るフリーソフトはけっこう多い(VB製,VC製､Delphi製,etc)。
それと、常駐する以上、いろんな条件で試してみないと確認できないこともある。
0959デフォルトの名無しさん
NGNG▼ VB初心者質問スレ Part 10 ▼
http://pc.2ch.net/test/read.cgi/tech/1022127528/
こっちに逝こうよー
0960942
NGNGそうですね。これ言うと教えて君の印が押されそうですが
一応Googleにて検索しまくってんですけど・・・。
http://homepage1.nifty.com/CavalierLab/lab/vb/clsmdl/staico.html#Shell_NotifyIcon
とか思いっきりその話題のページがあるんだが
サブクラス化と一緒にして使ってるところが無くて・・・。
>>957 の言う通りだと思い、最初はそうやってたんですが
何故かうまく変わってないんですよねぇ・・・どうしてだろ
じゃぁ別のところに問題があるのかもしれないですね。
0961デフォルトの名無しさん
NGNGふと思ったけど、NIM_CLOSEどこでやってるんだろ？
OnCloseイベントでやったらちゃんと消えたみたいだけど。
以下C++Builderのソースだが（VBでなくてスマソ）、
// OnCloseイベント
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
（略）
Shell_NotifyIcon(NIM_DELETE,&pNotifyIconData);
}
// タスクトレイアイコン右クリックメニュー「閉じる」
void __fastcall TForm1::E1Click(TObject *Sender)
{
Close();
}
0962961
NGNG0963デフォルトの名無しさん
NGNG＞何故かうまく変わってないんですよねぇ・・・
なにが
0965デフォルトの名無しさん
NGNGサブクラス化と関係ないし・・・
Shell_NotifyIconの使い方がやばいんでしょ
0966942
NGNGDim NotifyIcon As NOTIFYICONDATA
With NotifyIcon
.cbSize = LenB(NotifyIcon) '構造体のサイズ
.szTip = List1.List(ListNum) & vbNullChar 'マウスポインタがアイコン上にとどまったときに表示される文字列
End With
Call Shell_NotifyIcon(NIM_MODIFY, NotifyIcon)
>>965
こうやっているんですが・・・。
これで間違ってるならはっきりいって俺がヴァカでしたってことで。
0967デフォルトの名無しさん
NGNG状態を変更はいいが何を変更したい？
0969デフォルトの名無しさん
NGNGそういうの聞くのが教えて君だよな
szTipだけ指定して変わるわけない
0970942
NGNGガ━━Σ（ﾟдﾟlll)━━ン
言われてみれば・・・。
NotifyIconはここで宣言したものだ・・・
じゃぁ他のも指定しないと変わるわけないや。
マジすまん。単なる勘違いのミスでした！
お手数かけて申し訳ない・・・
0971デフォルトの名無しさん
NGNG98で試したがちゃんと消えるし
よくわからん
0972デフォルトの名無しさん
NGNGコマンドボタソなどの絵を貼れるコントロールに拡張子icoのファイルを貼る時、
16×16で貼れないのでしょうか。
32×32ではデカくて…。
0973デフォルトの名無しさん
NGNG＞コマンドボタソなどの
ネタと判断。おやすみ～。
0975デフォルトの名無しさん
NGNG自作自演ですか。
0976勝負パンツ
NGNGそんな馬鹿な。良スレで煽ろうとしてっからさー。
0977勝負パンツ
NGNGDelphi厨は氏ね。
Delphi厨は氏ね。
Delphi厨は氏ね。
Delphi厨は氏ね。
Delphi厨は氏ね。
Delphi厨は氏ね。
Delphi厨は氏ね。
Delphi厨は氏ね。
Delphi厨は氏ね。
Delphi厨は氏ね。
0978勝負パンツ ◆fOmLffjg
NGNGそういうの飽きた。
寝る。
0981デフォルトの名無しさん
NGNGNIM_ADD って Form_Load() でやってる？
んで、NIM_DELETE したあとに Form1.～～ ってやってない？
0983デフォルトの名無しさん
NGNGEnd 使ったらサブクラス化してるから致命傷になると思う。
0984972
NGNGお返事ありがとうございます。
出来ればヒントだけでもおながいします…。
0985即レス
NGNGヒントって言われても。
16x16のアイコンつくってPictureに
設定するだけなんだけど。
>>983
んじゃUnloadかな。どっちにしろコード見直してみないとな。
0986972
NGNGああ、ええと、通常の32×32のアイコンを縮小表示した時のサイズで貼りたいのですが…。
0987即レス
NGNGつまり32x32のサイズしかないアイコンを
動的に縮小させたサイズで貼りたい、ってこと？
それならImageListかな。
ImageListのサイズを16x16にしておいてアイコン読みこむ。
その後ExtractIconの戻り値をCommand.Pictureに設定。
#アイコン編集ソフトで16x16のアイコン作ったほうが
#楽だと思うが。
0988デフォルトの名無しさん
NGNG>#楽だと思うが。
それにきれいだ。
0989972
NGNGアイコン編集してみるっす。
0990958
NGNG消える場合と残る場合があるが、適切な処理をすれば必ず消えるようになる。
そう言ってるのに対して、「自分の場合は消えた」なんて何の意味がある？
0991デフォルトの名無しさん
NGNG09921000
NGNG0993デフォルトの名無しさん
NGNG▼ VB初心者質問スレ Part 10 ▼
http://pc.2ch.net/test/read.cgi/tech/1022127528/
09941000
NGNG0995デフォルトの名無しさん
NGNG文句を言う前に、少しは検索しろ！
09961000
NGNG0997デフォルトの名無しさん
NGNGしてられっか！
09981000
NGNG09991000
NGNG1000デフォルトの名無しさん
NGNGhttp://pc.2ch.net/test/read.cgi/tech/1017074629/l50
1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。