(*´д`*)ｱﾊｧ… VB初心者質問スレ Part20
レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん
NGNGPart12 http://pc3.2ch.net/test/read.cgi/tech/1026642565/
Part13 http://pc3.2ch.net/test/read.cgi/tech/1029241786/
Part14 http://pc3.2ch.net/test/read.cgi/tech/1030947162/
Part15 http://pc3.2ch.net/test/read.cgi/tech/1032706491/
Part16 http://pc3.2ch.net/test/read.cgi/tech/1034302532/
Part17 http://pc3.2ch.net/test/read.cgi/tech/1036154952/
Part18 http://pc3.2ch.net/test/read.cgi/tech/1038103769/
Part19 http://pc3.2ch.net/test/read.cgi/tech/1039859691/
VB.net関連スレ
【老若】VB.net質問ｽﾚ【男女】
http://pc3.2ch.net/test/read.cgi/tech/1025848458/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでOK。
４．インストーラーなどの質問もOK。
五．下ネタもたまにならOK。
00021
NGNG0003デフォルトの名無しさん
NGNGは、乙、と。
いつも荒れるので、しばらくsageで逝こう。
0004デフォルトの名無しさん
NGNG乙！
0005かおりん祭り◇VqKAORinK6
NGNG（ ＾▽＾） ＜ 新スレおめでとうございま－す♪
= ⊂ ） ＼＿＿＿＿＿＿＿
= (__/"(__) トテテテ...
0006デフォルトの名無しさん
NGNG0007前スレ957
NGNGあの後、
Set abc = cnn.Execute("select * from 必須項目 where 学生ID = " & rec1![学生ID])
abc.Delete
の２行に減らすところまで進めました。
ご親切に教えていただいてありがとうございました。
「現在のRecordsetは更新をサポートしていません。プロバイダか、選択したロックタイプの限界の可能性があります。」
とエラーが出てしまうのですが、
前スレにてロックタイプによるとありましたが、多分それのことなのでしょう。
これ以上ご迷惑は掛けられないので、自分で地道にやることにします。
最後に。
963にてDoloopを使用したソースを載せたのは、とりあえずはじめの状況を載せた方が良いのではと
考えたからです。
別に怒らせようとか思って載せたわけではありません。
ただ、そのことでレスをいただいた方々、本当にすみませんでした。
0008デフォルトの名無しさん
NGNG質問するときにこそ長文を書こうね
0009デフォルトの名無しさん
NGNGﾛｯｸを指定しないとdeleteできない
読み取り専用で開いちゃうんだアフォー。
0010デフォルトの名無しさん
NGNG> 前スレでかなりＤＱＮをかました957です。
リンクぐらいつけろ。
前の展開を知っている人ばかりじゃないんだから。
http://pc3.2ch.net/test/read.cgi/tech/1039859691/957
> Set abc = cnn.Execute("select * from 必須項目 where 学生ID = " & rec1![学生ID])
rec1がどんなレコードセットなのか、読み手が理解するに必要な情報が明示すべし。
読み手はエスパーばかりじゃないんだから。
> ただ、そのことでレスをいただいた方々、本当にすみませんでした。
という割には、アドバイスが全然活かされてないね。
ほんとに読んでる？
0011デフォルトの名無しさん
NGNGってあるんだし、別に煽らんでもええんちゃう？
ほっといてやりな。
0012（・∀・）再ｱｯﾌﾟ
NGNGNT4＋VB4＋MDB（DAOでｱｸｾｽ）
で、ある一台のﾏｼﾝでだけ動作しない。
DB検索しに逝って、項目参照する個所で
「このｺﾚｸｼｮﾝには項目がありません」
と来る。
NGなのは日本語の英字大文字の項目
EX) "ＡＢＣ－ＮＯ"
こんな経験ある人（・∀・）ｲﾅｲ!?
0013デフォルトの名無しさん
NGNG-が使っちゃいけない文字なんだろ
違う。
動いてるｼｽﾃﾑなんだってば。
0015デフォルトの名無しさん
NGNGなによ？って・・・
＞DB検索しに逝って、項目参照する個所で
ｶﾗﾑといえば分かるのか？
0017デフォルトの名無しさん
NGNGテーブルにフィールドが無いと来る訳か？
んで、そのNGワードはフィールド名？テーブル名？
Access97しか使っていないが、テーブル名にハイフン使うとコーディングでエラー
出るぞ。フィールドが無いとかいうエラーでは無いが。
テーブル名、フィールド名にハイフンは使わない方が良い。
あとお前も氏ねよ。
ちゃんと嫁っての。馬鹿か？
0020デフォルトの名無しさん
NGNGそれならフィールドの数を数えるプログラムを実行してみろ。
0個だったら項目がないってことだろ？
0021デフォルトの名無しさん
NGNGVBSを使って以下のような処理は可能でしょうか？
・あるディレクトリ（固定）にあるテキストファイルに1文を加えて保存する。
という処理です。
具体的にはVBSファイルをダブルクリックするだけで、
とある場所のaaa.txtというファイルの最後に、スクリプト上に記述したテキストを
追加したいという感じです。追加したい分は改行を含む数行です。
テキストの編集の自動化は可能でしょうか・・・？
ご存知の方がいらっしゃいましたらご教授いただけたら幸いです。
宜しくお願いいたします。
0023デフォルトの名無しさん
NGNGメールシステムで、別サイトにあるサーバにアカウントを作成するツールを作成しました。作成したａｓｐツールはIIS5.0で正常に動作する
ことを確認しましたが、お客に開放する際諸般の事情によりWin９８ＳＥの環境で動作する必要が出てきました。
その為、Ｗｉｎ９８の環境でPersonalWebServerをインストールし、オブジェクトを利用する際ＸＭＬを利用しているので
（”set xmlhttp = server.CreateObject("msxml2.ServerXMLHTTP")”）
・ＸＭＬParser3.0
・ＩＥ６．０
をインストールしてツールをWEBブラウザから実行しても、何度も「４２４：オブジェクトが有りません」と表示されてしまいます。
ＮＴ４Serverでは動作したんですが・・・"msxml2.ServerXMLHTTP"は、PWSでは動作しないのでしょうか？ご教授下さい。
てゆーか、
心当たり無いならもういいから。
ハイハイ、どうもありがと。
0025デフォルトの名無しさん
NGNG0026デフォルトの名無しさん
NGNGWSHというのをマイクロソフトからダウンロードしてくる。
msgbox "氏ね！"
↑この一行をテキスト文書に貼って、拡張子をvbsにして実行してみ。
0028デフォルトの名無しさん
NGNG悪いからなんとかしてくれ
という一文となんらかわらん、キミの質問文は。
0029デフォルトの名無しさん
NGNGもういい。
荒れるから無視。
0030デフォルトの名無しさん
NGNGオレはASPではXMLまで利用してないからわからん。知ってる人が現れるまでまつか、Webプログラム板のIIS、ASPスレを見る。
なにが？
ちゃんと分かるようにいえよ
0032デフォルトの名無しさん
NGNG脳症くんに一言。MSのASPやASP.NETのニュースグループで質問せず
何故、２ｃｈなんかで質問するのかと小一時間......
0033デフォルトの名無しさん
NGNG藻前ら、ﾓﾃｨﾂｹ
／＼⌒ヽﾍﾟﾀﾝ
／ ／⌒)ﾉ ﾍﾟﾀﾝ
∧＿∧ ＼ （( ∧＿∧
（； ´Д｀））' ））（・∀・ ；）
/ ⌒ノ （ ⌒ヽ⊂⌒ヽ
.（O ﾉ )￣￣￣(）__ ）
）_）＿） （;;;;;;;;;;;;;;;;;;;）（＿（
0034デフォルトの名無しさん
NGNGもうかんべんしてくれ。オレが無知だった。解答わからん。
0035デフォルトの名無しさん
NGNG>>32
プログラム系のカキコは初心者でスマヌ。即時性を求めるので、2chを利用したのです。
別の板に逝ってきます。レスどうもです。
0036デフォルトの名無しさん
NGNG選択行の左端の項目を取得するのに、
msFlexGrid1.TextMatrix(msFlexGrid1.Row, 0)
で取得しているのですが、
Shiftキー押して複数選択した時の処理の仕方が分かりません。
Rowで取得できるのは一番上の行だけの様なのですが、その他、
複数選択分の取得しかたを教えてください。
0037デフォルトの名無しさん
NGNG0038デフォルトの名無しさん
NGNG0039デフォルトの名無しさん
NGNGConst sPath = "とある場所\aaa.txt"
sAppendText = "こんなの" & vbNewLine & "追加するんだろ" & vbNewLine& "YO"
WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile(sPath,8).Write sAppendText
0040デフォルトの名無しさん
NGNGexeファイルをコマンドボタンにドロップした時に、
そのexeファイルに含まれているアイコンの抽出方法がわかりません。
コマンドボタンに登録したもののアイコンを表示したいのですが・・・
絶対パスの取得と起動までは出来ました。（簡単なものですが）
本などを見るとピクチャーに表示させているのは見かけるのですが
コマンドボタンへの表示がどうしても見つかりません。
VBじゃ無理なのでしょうか？
どなたか教えていただけないでしょうか。
0041デフォルトの名無しさん
NGNG0042デフォルトの名無しさん
NGNG>そのexeファイルに含まれているアイコンの抽出方法がわかりません。
なら、ExtractIconとかDrawIconとかでできるんじゃないの？
0043デフォルトの名無しさん
NGNGすが、これって普通ですか？もしかしてVB６もインストしてるから
なんでしょうか？VBAでADOをつかったデータベースは作成可能
ですか？
0044デフォルトの名無しさん
NGNGどんな教育を受けて来たのか（特に幼児期～学童期のしつけ）小一時間（略
お前、岩手県人だろ？
まったく東北人（≠日本人）は人格欠陥者集団だな・・・。
0045デフォルトの名無しさん
NGNG項目名をカギカッコで囲んだりしてみるとか・・・
あと、Fieldsをループでまわして、各FieldのNameプロパティを
デバッグ窓なんかに吐かせてみてちゃんと項目名が出るか確認。
そのエラーが出るあたりの実コードも晒すと吉かも。
004621
NGNGおおお！！有難うございます！問題なくできました！
凄いッス！（って、皆様からみたら当たり前なのでしょうか、、）
そのスクリプトから独学して応用してみます！本当に有難うございました！
004721
NGNG>>39さんのスクリプトの発展で、2回以上実行して追加テキストの重複を避けるために
たとえば、1行目の「こんなの」って文字が既にあったら、実行せずに終了する～、
というような分岐は可能でしょうか・・。テキストの全文をサーチする処理が面倒でしたら、
1行目の分で判断ではなく、最後の行が「YO」だったら、、とかの条件でもかまいません。
何度も質問して申し訳ありません、ウザかったら無視してください。
ご存知でしたらご教授願えたらと思います。
0048デフォルトの名無しさん
NGNGhttp://www.microsoft.com/japan/developer/library/vbcon98/vbconmanipulatingfiles.htm
↑ファイルいじくりまわすんならここ読んで来い。
0049デフォルトの名無しさん
NGNGｺﾏﾝﾄﾞﾎﾞﾀﾝって hDC あったよね
hDC があれば ﾋﾟｸﾁｬｰBoxだろうがｺﾏﾝﾄﾞﾎﾞﾀﾝだろうが
DrawIconで描画できると思うけど．．．
0050マギーｼﾝｼﾞ
NGNGピクチャボックス上にラベルを貼りつけ、そのピクチャボックスをRefreshするとラベルがちらついてしまい困ってます。
無限ループ中で、ピクチャボックスに画像をBitbltで貼り付け、Refreshするという処理を繰り返しています。もちろんピクチャボックスのAutoRedrawはTrueです。
どなたかいい方法を知っている方、教えてくださーい。
0051デフォルトの名無しさん
NGNG直接ピクチャボックスにTextOutAPIなりPrintメソッドなりで文字を描画すりゃいい。
0052デフォルトの名無しさん
NGNGPrint メソッドならいいけど、TextOut だと結局ちらつくだろ。
0053デフォルトの名無しさん
NGNG書き換える必要があり、Printメソッドでは文字が前に書いた文字と重なってしまい
使えません。
なんか良い方法ないのでしょうか。
0054
NGNGループの前でラベルのVisibleをFalseにして、ループの後でラベルのVisibleをTrueではダメ？
0055IP記録実験
NGNGhttp://qb.2ch.net/test/read.cgi/accuse/1042013605/
1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。
27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？
38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。
73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。
0056デフォルトの名無しさん
NGNGここでよかったのかな。
他にいいスレが見当たらなかったので
書き込ませてもらいます。
話すと長くなるので完結に言うと、
サブフォームへフォーカスをうつそうとしてできませんでした。
仮にTESTFMという名前とします。
Form_TESTFM.SetFocus ×
Me.TESTFM.SetFocus ○
TESTFM.SetFocus ○
一番上のが動かない理由がさっぱりわかりません。
これはなぜなのでしょうか。
そもそも
Form_TESTFM.SetFocus と
TESTFM.SetFocus
はどう違うのでしょうか？
くだらないことかもしれませんがどうしても納得いかないので
教えてもらえませんか？
よろしくお願いします。
0057デフォルトの名無しさん
NGNG0058デフォルトの名無しさん
NGNG>>ある一台のﾏｼﾝでだけ動作しない。
正常に動作しているﾏｼﾝとの違いは全くないの？
0059デフォルトの名無しさん
NGNG一秒おきにログを消してたら恐ろしく負荷が上がります、、
0060デフォルトの名無しさん
NGNGHDじゃなくてよかったね。
0061デフォルトの名無しさん
NGNGたらこで学習能力の無い莫大なかずの社会人に迷惑をかけている引き篭もり管理人がそんない好きなのか・・・
0062IP記録実験
NGNGhttp://qb.2ch.net/test/read.cgi/accuse/1042013605/
1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。
27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？
38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。
73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。
0063デフォルトの名無しさん
NGNG0064デフォルトの名無しさん
NGNGNAME=デフォルトの名無しさん
ADDRESS=sage
と書いてあり、これを1行ずつ読み込み"="以降の文字列をあらかじめ宣言してある
グローバルな変数NAME, ADDRESSにそれぞれ格納しようとしています。
変数も2個程度なら、"="以前の文字列が"NAME"と一致したら、"ADDRESS"と一致したら、
と比較するのが簡単ですが、数十個になると条件判断も長くなり、非効率的です。
そこで動的にStringから変数を作成したいのですが、そのような関数やメソッドはVBにありますか？
0065デフォルトの名無しさん
NGNGC++ なら std::map でいけるけど・・・。
しかし、「変数を作成」 なんて不可能だと思わないか？
どうやってそれにアクセスするんだ？
0066デフォルトの名無しさん
NGNGやりなおせ。
006764
NGNG取得した順に、こちらも決めておいた順に変数に値を格納していく、というのが現実的ですかね？
java.util.Properties#load()みたいなメソッドがあればよかったのですが…
要は前回終了時の状態などを保持しておくConfigファイルの読み込みがしたかったのです。
0068デフォルトの名無しさん
NGNG使いなさいよ、素直に。
0070デフォルトの名無しさん
NGNG0071デフォルトの名無しさん
NGNG>Form_TESTFM.SetFocus と
>TESTFM.SetFocus
>はどう違うのでしょうか？
名前が違う。Form_は名前の一部になる。
だからForm_TESTFMという名前のフォームが無ければエラーになる。
0072山太郎
NGNG文字列をインデクスとした配列みたいな使い方をしたいって事だよね？
素直にCollectionオブジェクト使うほうが吉でないかい?
Dim cl as Collection
Set cl = New Collection
With cl
.Add("名無し", "NAME")
.Add("sage", "ADDRESS")
End With
MsgBox cl.Item("NAME")
みたいな。
0073デフォルトの名無しさん
NGNG変更後のForm1をﾓｰﾀﾞﾙにするにはど～すりゃいいの？
下がってきてるんでageておきます
0074デフォルトの名無しさん
NGNGご苦労様です
0075マギーｼﾝｼﾞ
NGNG>>52
なるほど！ printでやってみます。どーもでした。
>>54
>ループの前でラベルのVisibleをFalseにして、ループの後でラベルのVisibleをTrueではダメ？
これでやってもちらついてしまいました。
0076デフォルトの名無しさん
NGNG0077デフォルトの名無しさん
NGNG２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数： 138720人 発行日：2003/1/9
年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。
そんなわけで、年末に予告したIP記録ですが実験を開始しています。
「２ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。
んじゃ！
────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
0078デフォルトの名無しさん
NGNG画面の更新を一時停止するAPIがある。
0079デフォルトの名無しさん
NGNGForm1の最小化ボタンが押されたときに表示している子ウィンドウも全て
最小化してまた逆にForm1が復元されたときもまた全て復元ということが
やりたいのですがどうすればいいでしゅか
おながいします
0080デフォルトの名無しさん
NGNG（予約されていない番号帯）
0081デフォルトの名無しさん
NGNG0082デフォルトの名無しさん
NGNGResizeイベントをひっつかまえたら？
0083デフォルトの名無しさん
NGNGListItemやSubItemsをColumuHeadersの横幅も含め、表示されているとおりに、印刷したい場合はどうしたらいいのでしょうか？
0084デフォルトの名無しさん
NGNGランタイム入れなくても動くだけなら動くよ。
文字化けして使い物にはならんだろうけどｗ
素直にランタイム入れろ。
0085デフォルトの名無しさん
NGNGで元データを指定したいのですが、最大16個の数値しか指定できないので
困っています。つまり、もう少し大きな配列を元データとして渡したいのです。
これって拡張できないのでしょうか？拡張できないなら一度セルに吐
き出して、といったかんじでグラフを作成することになってしまいま
す。これは避けたいのです。
このようにしてX軸Y軸のデータを指定しています。Xは16個以上でも指定
できるのですが・・・・・名案がありましたらお願いします。
Set co = ActiveSheet.ChartObjects.Add(10, 10, 300, 200)
With co
.Chart.PlotBy = xlRows
.Chart.SeriesCollection().NewSeries.XValues = X
.Chart.SeriesCollection().NewSeries.Values = Y
.Chart.ChartType = xlLineMarkers
.Chart.SeriesCollection(1).Delete
End With
0086デフォルトの名無しさん
NGNGForm1＋Command1、Form2を用意して、Form1に書くべし。
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Form_Resize()
Select Case Me.WindowState
Case vbNormal
Form2.WindowState = vbNormal
Case vbMinimized
Form2.WindowState = vbMinimized
End Select
End Sub
0088デフォルトの名無しさん
NGNG0090デフォルトの名無しさん
NGNG＞本件１ないし３のスレッドにおいて原告らの名誉を毀損する
＞本件各名誉毀損発言が書き込まれたことを知っていたのであり，
＞これにより原告らの名誉権が侵害されていることを認識し，
＞又は，認識し得たのであるから
この最初の通知書っていうのが内容証明かと思ったんですが、、、
0091デフォルトの名無しさん
NGNG＞本件１ないし３のスレッドにおいて原告らの名誉を毀損する
＞本件各名誉毀損発言が書き込まれたことを知っていたのであり，
＞これにより原告らの名誉権が侵害されていることを認識し，
＞又は，認識し得たのであるから
この最初の通知書っていうのが内容証明かと思ったんですが、、、
0092デフォルトの名無しさん
NGNG某○○ ＝東京kitty
0093デフォルトの名無しさん
NGNG0094デフォルトの名無しさん
NGNG誰が書き込んだ内容だろうと、その内容の全責任はひろよきにあるんだ。
ただ裁判官も弁護士もネット観念が全く無いのをいいことに 、もっともらしく
「私は場所だけを提供しています」って押し通そうとしている痛いひろゆき。
訴える側も、掲示板の管理責任を追求することまでしか知識が追いつかず
ひろゆきを名誉毀損などで訴えることをする奴が皆無なのが拍車をかける。
一度、裁判で、書き込みに対して、
削除を求める等では無くひろゆきを名誉毀損で訴え
ＳＦＣの村井さんあたりが原告証人で出廷するといい。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
0095デフォルトの名無しさん
NGNG100万円以下 ２６３万９０００人 15.7％
100万円超 200万円以下 ３６３万８０００人 21.2％
200万円超 300万円以下 ４１２万２０００人 25.7％
300万円超 400万円以下 ３２２万３０００人 19.4％
400万円超 500万円以下 １４７万４０００人 8.5％
500万円超 600万円以下 ７２万１０００人 4.1％
600万円超 700万円以下 ３３万２０００人 2.2％
700万円超 800万円以下 １９万５０００人 1.2％
800万円超 900万円以下 １１万６０００人 0.7％
900万円超1, 000万円以下 ７万１０００人 0.4％
1,000万円超 1,500万円以下 １０万６０００人 0.6％
1,500万円超 2,000万円以下 １万８０００人 0.1％
2,000万円超 ９０００人 0.1％
0096デフォルトの名無しさん
NGNG今回はIPだけだが、だんだん制限が増えていきそうだから、
密告ねたとかが無くなっていきそう・・・
0097デフォルトの名無しさん
NGNGWinXPには英語版のVB6ﾗﾝﾀｲﾑが標準で導入されています
たまにﾒｰｶｰによって日本語版が導入されている時もありますが
コモンｺﾝﾄﾛｰﾙまでは導入されていません
素直にVBﾗﾝﾀｲﾑをインストールしましょう
0098デフォルトの名無しさん
NGNG一応ageとくべ
0099デフォルトの名無しさん
NGNG0100デフォルトの名無しさん
NGNGはげどー。それかせめて、WindowsUpdateに乗っけて欲しい。
0101デフォルトの名無しさん
NGNG0102vbObjectError
NGNG呼んだ？
0103デフォルトの名無しさん
NGNGキャップ漏れだったりして
0104デフォルトの名無しさん
NGNG現在､OracleからADOでテーブル上の明細データを引っ張ってきて､
EXCELに出力するというプログラムを作成しています｡
EXCELに明細を出力する際に､シートの先頭行の書式設定を
レコード分コピーするというロジックを知りたいのですが､
どなたかご存知無いでしょうか｡
0105デフォルトの名無しさん
NGNG.NET 死滅により、VB.NET の次期バージョンは、
VB 200X だ。VB6 の真の後継バージョンだ。
0106デフォルトの名無しさん
NGNGマクロの記録で調べなはれ。
>105
略してVBXだね（ぉ
0107デフォルトの名無しさん
NGNG> EXCELに明細を出力する際に､シートの先頭行の書式設定を
> レコード分コピーする
本気で言ってるのなら、かなり非常識。
まともな神経の持ち主なら、列単位で書式設定する。
0108デフォルトの名無しさん
NGNGテキストボックスに半角文字（ｱｲｳｴｵ等）の
入力規制をかけたいのですが、やり方がさっぱりわかりません。
全角文字なら、
テキストボックス→プロパティ→定型入力に
CCCCC;; ←全角５文字分のみ入力可
のように設定すれば判別してくれます。
プログラム側は、
テキスト = TRim$(文字)
で、ああ＿＿＿ のような問題も解決できます。
0109デフォルトの名無しさん
NGNGそんな非常識かなあ。
速度もそんな変わんないだろうからそれも楽チンでいいんじゃない？
列数間違えてバグる事も無いし。
つーかなんで先頭行だけ設定されてるの？？？
最初からレコード分設定すりゃいいじゃん。
0110デフォルトの名無しさん
NGNGRS232Cをつかって外部からデータを取り込むように
VBで制御したいんです。
そこで、外部から文字列＋CRを受け取った時に受信文字列を表示するように
したいのですがMSCommのイベントをどう使ったらよいのかわかりません。
一文字づつCRと比較する？？？
わかる方がいましたらよろしくお願いします。
0111デフォルトの名無しさん
NGNGｷﾀ━━━━━(ﾟ∀ﾟ)━━━━━!!!!
0112デフォルトの名無しさん
NGNG0113デフォルトの名無しさん
NGNG何のテストやねん。
0114デフォルトの名無しさん
NGNGこの辺はどう？
http://speana-1.hp.infoseek.co.jp/vb/vb_menu.htm
0115104
NGNGそのなかに書き込むという仕様なんです。
最初の行だけ書かれているというのも仕様で、
数種類あるテンプレートファイルを共通関数で処理することになっているのです。
なので、個々で書式を書き込むことも、
また件数が不明なので最初から行数分用意することも出来ないのです。
0116デフォルトの名無しさん
NGNG0117デフォルトの名無しさん
NGNG0118デフォルトの名無しさん
NGNG0119デフォルトの名無しさん
NGNG２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数： 139038人 発行日：2003/1/10
なにやら、連日メルマガだしてるひろゆきです。
そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。
重くなって落ちたりしてもご愛嬌ってことで。。。
んじゃ！
────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
0120デフォルトの名無しさん
NGNG0121デフォルトの名無しさん
NGNG知人から強烈に薦められたんですけど。
0122デフォルトの名無しさん
NGNG著作は多くベテランだが良いとはおもわん。初心者にはオススメできない。
0123デフォルトの名無しさん
NGNG0124デフォルトの名無しさん
NGNGサンクス。ネットで買おうかと思っていたところなので助かります。
ちゃんと本屋さんに行って見てこようっと。
0125デフォルトの名無しさん
NGNG最近ProgramingWindowsのVB版が出たみたいですが読んだほうがいいでしょうか？
0126デフォルトの名無しさん
NGNG特定のSubItemsの文字色を変えることってできますか？
0127デフォルトの名無しさん
NGNG012881 XP既存VBランタイム
NGNG英語版かぁ。日本語が化けるとはそのことだったのか。
コントロールも別配布の必要があるとなると、HelloWord表示させる程度のソフトしかうまく動かないか。
結局、実行ファイルのほかにラインタイムを配るのは必要なのかぁ。
実行ファイルだけならzipで配布して、ユーザはそれを解凍して実行するだけだけど、
ランタイムはsetup.exeとか作ってランタイムもシステムにインストールされるようにしなくちゃだから面倒で、
XPではこの手間がいらないのかと思ってたけどざんねん。
0129デフォルトの名無しさん
NGNG｜ 〔（ﾟ∀ﾟ）〕|
(⌒⌒⌒⌒⌒⌒⌒)
｜⌒⌒⌒ ＜⌒ヽ o ｡ だから、ｸｿｽﾚ立てんな。って言ったのに・・・
｜ ＜_ ヽ｡
｜ o とノ ﾉつ
｜ ｡ | ～つ
0130デフォルトの名無しさん
NGNG0131デフォルトの名無しさん
NGNGVB６．０で使っているプログラムははVBAでもそのまま使えるのでしょうか
それともかなり変えなければいけないのですか？
0132デフォルトの名無しさん
NGNG0133デフォルトの名無しさん
NGNG【ニュース速報】
【予告】小学生の登校を狙って・・・
あれだけ散々話題になったにも関わらず
1/8は犯罪予告スレが乱立してます。
人生捨てた人が多いのでしょうか？ (;´Д`)
冗談でもこういうスレ立てはやめておきましょうね。
何もないことを祈ります。
つーか、ひろゆきが警告降臨してからもここのスレの１は予告書き込みしてるんですが (;´Д`)
冗談なのか本気なのかわからないのが怖いところです。
この記事投稿時点で現在進行形の速報です。
関連スレ：Part2
【ニュース速報】【予告】小学生の登校を狙って・・・
http://dempa.2ch.net/dat/2003/01/news-1042037071.html
以下はニュース速報板のものとは別の予告スレです
スレタイは過激なので伏せておきます。
【自己紹介】（略）
http://dempa.2ch.net/dat/2003/01/intro-1041997615.html
【ラウンジ】（略）
http://dempa.2ch.net/dat/2003/01/entrance-1042000392.html
何度も言いますが、こういうことはやめましょう。
捕まっても知らんよ。警察のご厄介になってるヤシ多いんだし(;´Д`)
（報告記者: 番組の途中ですが名無しです2号φ ★, 01/09 00:08）
0134デフォルトの名無しさん
NGNGでも荒れるよ。（ｗ
0135デフォルトの名無しさん
NGNG言語的には同じものだから、基本的にはそのままでOK。
VB6とVBAに共通しない機能を使っているならNG。
質問が漠然としすぎてこれくらいしか言えないよ。
0137デフォルトの名無しさん
NGNGHScrollBar,VScrollBarを使ってスクロールさせたいのですが、
Private Sub Form_Load()
VScroll1.Max = Image1.Top
VScroll1.Min = Image1.Height
VScroll1.SmallChange = 5
VScroll1.LargeChange = 10
HScroll1.Max = Image1.Width
HScroll1.Min = Image1.Left
HScroll1.SmallChange = 5
HScroll1.LargeChange = 10
End Sub
Private Sub HScroll1_Change()
Image1.Left = Image1.Left - 1
End Sub
Private Sub VScroll1_Change()
Image1.Move 0, VScroll1.Value
End Sub
これだと、左に移動させたいのですが画像が右に動いてしまいます。
だったら逆に・・・という理屈はわかるのですが。
どうにも、やり方がわかりません。教えてください。
0138137
NGNG0139デフォルトの名無しさん
NGNGC言語の書籍なら多数の出版実績がある。
しかし、以前に2ちゃんねるで叩かれているのを見たような気がする。（ｗ
また、藤原博文氏のサイトでも、辛い評価が付いていた記憶がある。
俺はCはわからんので、残念ながら良いとも悪いとも評価できないが。
VB本に関しては、Option Explicit 宣言がないコード例や、型定義が
ない(暗黙のVariant)変数が多数見られ、昔のBASICと勘違いしている
のではないかと思われるフシがある。（ｗ
結論としては、あまりお薦めできない。（ｗ
0140デフォルトの名無しさん
NGNG> そんな非常識かなあ。
> 速度もそんな変わんないだろうからそれも楽チンでいいんじゃない？
あのさあ、1回で済む処理と最大65536回繰り返すかもしれない処理と
「そんな変わんない」訳？
幼稚園からやり直した方がいいよ。
0141デフォルトの名無しさん
NGNG0142デフォルトの名無しさん
NGNG自分でよく分からなくなってしまう為、ほぼ毎行にコメント書いて少しずつ覚えてます。
で、近頃はいろんなWEBサイトを見て、どうやったらループが早く処理されるかとか学んで、
ちょこちょこ修正しているのですが、やっぱし、こんなにコメント書いていては
処理も遅くなってしまっているのでしょうか。
実行するパソコンの性能が低いと、やっぱりﾏｽﾞｰですかね？
0143デフォルトの名無しさん
NGNGコメント文は
exeにする際、スキップされるので問題ない。
0144デフォルトの名無しさん
NGNGコメントが10万行あるコードとコメントのまったくないコードを用意して
実行速度を確かめてみりゃいいじゃん。
0145デフォルトの名無しさん
NGNGコメントが性能に影響するのは、インタープリタ実行系の場合だけ。
常識的に言って、どんなにコメントが多くても、コード:コメント比は1:1程度に
しかならないだろうから、無視できないほどの影響が出るとはとても思えない。
コンパイラの場合、実行速度には影響は出ないが、コンパイルの速度には影響が
出る可能性がある。しかし、それも無視できる範囲内のことだと思われ。
コメントの行数がコードの行数の10倍もあるような場合は話は別。（ｗ
0146デフォルトの名無しさん
NGNGOfficeのVBAなら10万行のコメントは致命的な影響が出るね（ｗ
VBでもソースが巨大化し過ぎて、コンパイルできるかどうか・・・？
0147デフォルトの名無しさん
NGNGOfficeのVBAでコンパイルをしても一緒なのかちょっと気になる。
0148デフォルトの名無しさん
NGNG0149デフォルトの名無しさん
NGNG0150142
NGNGどうもありがとうございました。
0151デフォルトの名無しさん
NGNG0152デフォルトの名無しさん
NGNG見ないけど何が起こってんの？
IP記録の話ならおなかいっぱ…
0153109
NGNGやっぱりテンプレートファイルか・・・
俺的には管理しなきゃならないファイルが増えるのが気持ち悪いから
コードで書式設定する（遅いけど）んだけれども仕様なら仕方ないね。
でもさ、それなら最初から全行書式設定しときゃいいじゃん？
先頭行セルをクリックするか列ヘッダをクリックするかの違いだけなわけだし。
それくらい提案してみてはいかが？
>>140
>あのさあ、1回で済む処理と最大65536回繰り返すかもしれない処理と
>「そんな変わんない」訳？
>>104は行数分ループするなんて一言も言ってないよ。
なんで最大65536回繰り返す必要があるのさ。
列単位でコピーしようが行数指定してコピーしようが一回で済むじゃん。
>幼稚園からやり直した方がいいよ。
きみは生まれてこなかった方が良かったかもね。
0154デフォルトの名無しさん
NGNG0155デフォルトの名無しさん
NGNGでも、大きいのと、高そうなのが・・・ちょっと・・・
でも・・・
カミサンだまし作戦開始・・・
0156デフォルトの名無しさん
NGNGなにやら、連日メルマガだしてるひろゆきです。
そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが
面倒なので、全部のサーバに入れてみました。
重くなって落ちたりしてもご愛嬌ってことで。。。
実にさらっとひろゆきらしいでつ。。。
0157デフォルトの名無しさん
NGNG0158デフォルトの名無しさん
NGNG0159デフォルトの名無しさん
NGNGできますよ。ListSubItemにも、フォントのColorを設定するプロパティがあります。
0160ケン
NGNGあるのであれば、教えてください。
たとえば、取り込んだ画像の、上から２０ポイント左から２０ポイント
の位置にある、ドットの色が黒であれば、1を返してくるような
プロパティーがあれば、教えてほしいのですが･･･
ＶＢＡでできるのであれば、なおいいのですが･･･
0161デフォルトの名無しさん
NGNGお願いします
0162デフォルトの名無しさん
NGNG0163デフォルトの名無しさん
NGNGDLLにする
0164デフォルトの名無しさん
NGNG最近こういう人から聞いたことを鵜呑みにするだけで
自分で確かめようとしないぼくちゃんたち増えたね。
0165デフォルトの名無しさん
NGNG0166デフォルトの名無しさん
NGNG係争前の通告として現行法では 内容証明つき郵便が認知されている。
お前らに丁寧に教えてやるけど
どーせならば 現行法で裁けない理由を羅列して潰した方が得だぞ。
（それでも現行法で裁かれるんだけどな）
0167デフォルトの名無しさん
NGNG0168デフォルトの名無しさん
NGNGVBの機能でやるならならPointメソッド、
APIならGetPixelでし。
0169デフォルトの名無しさん
NGNGどっかに一覧ない？
0170デフォルトの名無しさん
NGNGVBA関数は（副作用があるものを除いて）大半が使える。
それ以外（集計関数など、ANSI SQLで規定されているもの）のどれが使えるかは、
解説書等で確認した方がよいかもしれない。
0171デフォルトの名無しさん
NGNGありげとごじゃます。
副作用とは、例えばどんなの？
0172デフォルトの名無しさん
NGNGMSDNのDAOヘルプが一番でし
ttp://www.microsoft.com/japan/developer/library/default.asp?URL=/japan/developer/library/dao360/daidxwhatsnewindao.htm。
0173デフォルトの名無しさん
NGNG>>172のURLはDAOのライブラリに定義されたメソッドの説明。
0174デフォルトの名無しさん
NGNGコモンダイアログコントロールで表示させるウィンドウって、
ウィンドウ表示位置の制御は出来ないのでしょうか？
0175デフォルトの名無しさん
NGNGフック（サブクラス化）を使えば可能。
技術評論社から出ている『Visual Basic 300の技』（第1集）にコード例が掲載されている。
職業プログラマなら、あまりに凝った作りは生産性の面でお薦めしない。
サブクラス化処理全体をコンポーネント（ActiveX）化すれば、再利用可能ではあるが・・・。
0176デフォルトの名無しさん
NGNGうん、そう。
MAXとかSUMとかSUBSTRとかGROUP BYとか、
そんなのが尻たい
0177デフォルトの名無しさん
NGNGぉぉメッセージの横取りって奴をついにやらねばならなくなったか。
・・・・
単に見栄えの問題なんですがね。色の設定をやるのですが、その色の
変更を行う位置でウィンドウが表示されないと、やっぱりなんか変という気
がしまして。
0178デフォルトの名無しさん
NGNG%windir%\help\JETSQL35.HLP
こんなん？
017956
NGNG>71さん
すみません、正直さっぱりわかりません。
>Form_TESTFMという名前のフォームが無ければエラーになる
それはわかるのですが、
存在する場合、コード上で
Form_TESTFM
と
TESTFM
はどう違うのでしょうか？
0180デフォルトの名無しさん
NGNGVBダメじゃん
0181デフォルトの名無しさん
NGNGForm_TESTFMとTESTFMは別のものである。
田中さんと中さんは別人である。
0182デフォルトの名無しさん
NGNGイメージコントロールで表示させたいのですが受け取る
変数は何にすればいいですか？
0183デフォルトの名無しさん
NGNG0184182
NGNGme.image.picture = JpegImage
me.image.picture = LoadPicture(JpegImage)
どれも実行時エラーが出るようです
0185デフォルトの名無しさん
NGNGファイルに保存した上で表示とかしてみるかも。
0186182
NGNGなるほど～。ファイルに保存してみます。
今は文字コマンドの関係からString型で受信しているのですが
画像の際はVariantで受信すればよさそうですね
byte配列に落とす方法とファイルに保存する方法がわかりません＞＜
バイト配列はbyte[file_size]でしょうか？
0187182
NGNGソケット受信の型はvbStringしかできないみたいですね
0188デフォルトの名無しさん
NGNGソケットコントロールって Winsock でしょうか？
もしそうなら、厚かましいお願いなんですが、Inet はやった事あるんですが、
Winsock でやった事無いもんで…。
0189デフォルトの名無しさん
NGNGもしそうなら、厚かましいお願いなんですが、ソース見せて貰えないでしょうか…。
です。
0190104
NGNG提案はしたんですが、受け入れられなかったのです。。。
色々探し回っているのですが、中々見つからなくて。
どなたかほんと、お願いします。
019156
NGNG別のものですか。。
すみません、まだ納得できません。
別のものというのはわかりました。
>56の
１）Form_TESTFM.SetFocus ×
2)Me.TESTFM.SetFocus ○
3)TESTFM.SetFocus ○
という結果から振る舞いが違うので別のものというのはわかります。
ではなぜ 1 がだめで2～3が可能なのでしょうか？
1が駄目なのはなぜですか？
0192デフォルトの名無しさん
NGNGまだ終わってなかったのか・・・
>>106の言う通りマクロの記録で調べなよ。
答えそのものより調べ方を覚えた方が後々のためになる。
>>191
>1が駄目なのはなぜですか？
Form_TESTFMがプロジェクトに存在しないからじゃないの。
0193デフォルトの名無しさん
NGNGForm_TESTFMって名前のフォームをプロジェクトに追加してからやってみ。
意味が分かるから。
0194192
NGNGForm_TESTFMはあるわけね。よく読んでなかった。ごめん。
じゃあForm_TESTFMをロードしてないからじゃない？
てかさ、何ていうエラーが出るのかぐらい書こうよ。
「動かない」「駄目」って、小学生じゃないんだから。。。
0195デフォルトの名無しさん
NGNG多重定義等の概念をサンプルプログラムをつかって、わかりやすく説明し
ている入門書ってありますか？
どの入門書もユーザーフォームの説明がおおくて、ＶＢ．ＮＥＴの基礎知識
を詳しく述べているものが見つかりません。
フォームの操作やイベント発生時の処理等、基本的なことはエクセルＶＢＡで
知っていますが、ＶＢ６は扱ったことがありません。
その程度の場合にふさわしい本があればいいなと思っています。
0196山崎渉
NGNG0197デフォルトの名無しさん
NGNG【老若】VB.net質問ｽﾚ【男女】
http://pc3.2ch.net/test/read.cgi/tech/1025848458/
019856
NGNGエラーは
「フォーカスを移す事はできません」
だそうです。
この際フォーカスをうつすのは
TESTFM.SetFocus
でいけたので自己解決なのですが、
それはさておき、知りたいのが
TESTFM
と
Form_TESTFM
の違いなんです。
0199デフォルトの名無しさん
NGNG0200デフォルトの名無しさん
NGNGTESTFMというのが君の作ったサブフォームの名前だということはわかるが、
Form_TESTFMっていうのは何の名前なんだ？
説明もなしに「どう違うんですか」って聞かれても分かるわけがない。
0201デフォルトの名無しさん
NGNG一行を抜き出してやりたいのですが、上手いやり方ありますか？
普通に抜き出したい行数目までLine Inputしてやる方法を試したのですが
激しく遅いんです。実用的じゃない遅さです。
もっと軽やかに一行を抜き出す方法はありませんか？
0202デフォルトの名無しさん
NGNGついでに書き忘れたので
環境はVB6SP5Proです
020356
NGNG説明不足でした。
アクセスのデータベースビュー（だったかな？）
から作成したのがTESTFMです。
まずこれはご理解いただけてると思います。
そのTESTFMを選択状態にして、
Ctrl+Gを押したらVBEditorが開きますよね？
その右上の(環境によって違うのかな）
プロジェクトビューのなかの
Microsoft Access クラスオブジェクトの中に
勝手にいつのまにかできてるのが
Form_TESTFMです。
説明不足の点あればご指摘お願いします。
どう説明したらいいのかよくわからないので。
よろしくお願いします。
0204デフォルトの名無しさん
NGNGwindowsが自動updateで更新するようなかんじで、
1クリックでバージョンアップする機能を追加したいのですが、
どなたか方法をご存知でしたらご教授ください。
0205デフォルトの名無しさん
NGNGまずは最新版の入ったファイルをお前がUPする。
それをInetコントロールか何かでローカルにダウンロード。
さらにバックグラウンドで解凍。
出てきたExeを直ぐ上書きしたい所だが、そのExeは今実行中で
上書き出来ない状態なので、VerUPする時専用の別Exeに後の処理を任せて
今起動しているExeは終了。でVerUP専用のExeがメインアプリExeを最新版に上書き。
上書きの終了を確認したら最新版になったExeを実行。
解凍した後のゴミとか要らないものを消して
VerUP専用Exeは役目を終えたので終了。
0206204
NGNGヒントありがとうございます。
早速やってみます。
0207デフォルトの名無しさん
NGNG具体的にどれくらい遅いのかね？
0208デフォルトの名無しさん
NGNGひとつ処理するあたり0.5秒ほどですかね・・・。
いくつも処理するのでかなりきついです。
0209104
NGNGとりあえず、EXCELのマクロの使いかたから調べました。
（恥ずかしながら、使い方知りませんでした。。。。）
なんとかたどり着けました。
お騒がせしました。
0210デフォルトの名無しさん
NGNGつまり、任意の指定行を指定してぱっとその行だけ読み込む、
みたいなことがしたいわけだ。
そんな方法があったら私も教えて欲しい。
各行がきっちり一定のバイトサイズになってるんだったらSeekで出来るけど。
裏技的なのはあるかもしれないが、お奨めできない。
0211デフォルトの名無しさん
NGNG何がしたいのかわからないですが素直にDB使うのは駄目なの？
0212デフォルトの名無しさん
NGNG最初に配列に全行読み込んでおいて、その配列から行抜き出しすれば？
毎回先頭行から読み込んでくよりはかなり速いでしょ。
データベース化は出来ないの？
0213デフォルトの名無しさん
NGNG途方もなく遅いと思うが。
0214213
NGNG更新が複数回あるわけね。
0215デフォルトの名無しさん
NGNGつか、Access インストールする時にオプション扱いで csv 用のODBCドライバがあったような無かったような。
あと、ファイル読むときって get でズガンと読むか、
line で読むなら読んでる端から文字列捨てて行った方が早かった記憶。
0216デフォルトの名無しさん
NGNG0217デフォルトの名無しさん
NGNG0219デフォルトの名無しさん
NGNGバイナリで開いて改行コード数えた後抜き出せば一発だと思われ
0220デフォルトの名無しさん
NGNGん、彼は毎回条件を変えてSelect * From ?.csv Where なんちゃらとやりたいのでは？
0221デフォルトの名無しさん
NGNG文面からは、抜き出したい行は確定していると思ってた。
誤解sage
0222201
NGNGDB関連の知識が無くて・・・。
やっぱりこの方法なら高速に処理できるのかぁ。
＞配列に全行を読み込み
メモリ、食いますよね。
確かに今試してみたら
最初の読み込みが終わればメチャ高速でした。
結局、「これが定石」とかいうのは無いってことですね。
しょうがないので、配列に読んでおくやり方で手を打っときます。
どうもありがとうございましたー。
0223仕様書無し
NGNG追加するプログラムを作っていますが、
ユーザーが独自に作成したViewのみ表示させたいのです。
Viewの場合
システムで最初から存在している物か(sys～）ユーザーが独自に作成したものか
否かということを判断できるでしょうか？
テーブルならSYSTEM TABLEかTABLEなのかをTypeプロパティで判断できますが
Typeプロパティで見てもViewの場合は全てVIEWのようです
どなたかご存知の方がいましたら、よろしくおねがいします。
0224デフォルトの名無しさん
NGNG俺はそのとき暇だったんで、必要になった時点で必要なとこまでメモリに読み取るものを作った。
そもそもCSV形式自体速いアクセスは望めない。
速いアクセスを望むなら単純なCSVにするのではなくインデックス情報等をつける必要がある。
0225デフォルトの名無しさん
NGNG透過させる方法はないでしょうか？
デスクトップマスコットみたいなのを作りたいと思っております。
分かる方がいらっしゃいましたら、ご教授願います。
0226デフォルトの名無しさん
NGNGWin2k/XPのみになるけど、SetLayeredWindowAttributesとか。
0227デフォルトの名無しさん
NGNG何回何回やっても演習の問題の21・22ができません。
↓
http://www-ousuu.amp.i.kyoto-u.ac.jp/muk/gp/
IDはVB
パスワードはosaka-sandai
です。本当にお願いします(*-ω-)
0228デフォルトの名無しさん
NGNG0229
NGNGなる
0230デフォルトの名無しさん
NGNG問題をコピペしろよ
0231デフォルトの名無しさん
NGNG教官に
「何回何回やっても演習の問題の21・22ができません。 」
って言えよ
0232デフォルトの名無しさん
NGNG脳に障害があるとしか思えない。
0233デフォルトの名無しさん
NGNGそのAPIは「フォームだけ」透過させることっていうのはできるんでしょうか・・・？
もし、上にピクチャーを載せたりすると、それまで半透明になりませんか？
0234233
NGNGぐぐったら出てきました。
指定色を透過させればいいんですよね。
0235デフォルトの名無しさん
NGNGそのソフト自体は逆デバッグなどして自由に再配布してよいなどと書いてあるため
開いて、その中身の演算の内容を見たいのですが、VBやC++などで見ることが可能なのでしょうか？
すいません。全く知識がないもので。 よければお願いいたします。
一応どのソフトなのかのりんくだけ用意しておきます。
へんな質問すいません
ttp://www.urban.meijo-u.ac.jp/zyoshika/zemi/gue/ch2/97/nagao/henkan1.html
0236デフォルトの名無しさん
NGNG0237デフォルトの名無しさん
NGNG> その中身の演算の内容を見たいのですが
書いてあるだろ。
>>236
本来の文書は逆コンパイルですね。
0238235
NGNGすいません。 よく意味も知らず、そこのページにあることばを
使ってしまいました。
プログラムの内容自体をよく見てみたかったので。 すいません。
0239デフォルトの名無しさん
NGNG普通そういう場合は、
感謝と尊敬の言葉から始まり、
自分のやろうとしていることが世界平和、または誰かの人命を助けるためであり、
貴殿のソースを見せていただければそれの実現が早くなり、世界中の人が幸せになれる、
ということを普通使わんような丁寧な言葉で作者にメールを出します。
或いは、
いかにも定型文書での挨拶で始まり、貴殿の公開されているソフトウェアが
当社保有の特許を侵害している可能性があり、現在は訴訟を起こす考えは無いが
社内からの漏洩調査のため全ソースファイルを提供して頂きたい、
ということを出来るだけ難しいビジネス単語で書き、
最後に「協力を得られる限りは訴訟を起こす考えはない」ことを繰り返し
「返答が無い場合内容証明文書を送付する」などと書いたメールを作者に出します。
0240デフォルトの名無しさん
NGNGＶＢでユーザー登録したら、ＩＥのツールバーとかに使ってる画像をダウンロードできると聞いたんだけど。
それはどこでするのでしょうか？？
0241デフォルトの名無しさん
NGNGユーザー登録とは違うんでないのかな。
0242デフォルトの名無しさん
NGNG（ ´∀｀）/＜先生！こんなのがありました！
＿ / / / ＼＿＿＿＿＿＿＿＿＿＿＿
＼⊂ノ￣￣￣￣＼
||＼ ＼
||＼||￣￣￣￣￣||
|| ||￣￣￣￣￣||
http://saitama.gasuki.com/mona/
0243デフォルトの名無しさん
NGNG>何回何回やっても演習の問題の21・22ができません。
つまり、あれだ転部、転科、中退のチャンスだよという
神様のお告げってわけだな。
0244デフォルトの名無しさん
NGNG「困ったときのお役立ちサイト」
何の役に立つんだ？
変なもん貼るな！うじ虫めが！
0245デフォルトの名無しさん
NGNGttp://www.microsoft.com/japan/
0246デフォルトの名無しさん
NGNG>>240
0248デフォルトの名無しさん
NGNG201ではないがちょっと教えていただけませんか？
つまり、文字列変数に一発で読み込んで(代入)、
Splitで切るってことですよね。
ということは、例えば数十メガのファイルだとすると
一発で読み込むっていっても、おそらくある程度時間がかかる筈で
その間は一切の操作（プログラム内ね）は不能になる？ってこと？
0249デフォルトの名無しさん
NGNGシングルスレッドであるVB6.0ではそう。
VB.NETだとだいじょうぶ。
0250デフォルトの名無しさん
NGNG0252デフォルトの名無しさん
NGNG>>248
ってことだと思います
0253デフォルトの名無しさん
NGNGファイルリストボックスを再帰呼び出しを使ってやっていますが、
５０万ものファイルのリストを作るとなるとやはり速度が非常にかかりました。（３０分ぐらい）
これを高速化したいのですがどのような方法がいいのでしょうか。
MSDNの「最適化」項目を見てコードの書き直しなどをしましたが、あとは
ファイルリストボックスを使わない方法で高速になりそうだなとおもいました。
いま想定しているのは以下の４つです
WindowsAPI
FSO
他の言語で書かれたライブラリ（コンポーネントOrDLL）
あるいは他者が書かれたVBの標準モジュール
一般的にどれがいいのでしょうか。
0254デフォルトの名無しさん
NGNG追記です。要するにしたいのはファイルの検索ですね
0255デフォルトの名無しさん
NGNGSendMessage でボタンクリックイベントを発生させたいんですが、どうすればいいでしょう。
状況：他アプリのテキストに値設定するところまでは問題ない。そこで「OK]ボタンを押したいんだが、
APIビュワア＋MSDN見てもメッセージ番号が解らない（かなり以前成功した気がするのに）
for i = 0 to 255
sendmessage hwnd,i,0,0
next i
なんぞという怖いこともやってPC落したりしてますがダメ。
止むを得ずSendKeysを利用していますがレスポンスと安定性が最悪です。
0257デフォルトの名無しさん
NGNGたとえば、外部からエクスプローラの「ファイル」＞「新規作成」＞「フォルダ」を選ぶようなもの。
対象のコマンドボタンのハンドル取得はできてるけど、なんのメッセージ送ってもクリックが発生しない。
つまりは↓のものを有効にするXYZの値が知りたいのですだ。
Private sub CommandButton1_Click()
sendmessage CommandButton2.hWnd, X,Y,Z
end sub
Private sub CommandButton2_Click()
msgbox "ｷﾀ-(ﾟ∀ﾟ)-!"
end sub
0258デフォルトの名無しさん
NGNG俺も前に、指定ドライブ以下（サブフォルダ有）の指定拡張子（複数指定可）のファイルを含むのフォルダのフルパスを
コンボボックスに格納するって処理をファイルリストボックス使ってやってました。
で、やっぱり速度で悩んでここで質問しました。
回答はDir関数使え。って拡張子複数指定できないじゃん！まあ拡張子の種類分ループさせればいいわけだけど。。。
結局そのままファイルリスト使ってました。今は検索内容を変える事で解決しましたが。
てなわけで俺も興味があります。俺は試さなかった（スマン・・・）んだけど、どの方法が一番速いんだろう？？？
0259デフォルトの名無しさん
NGNGSpyは持ってない？
0260253
NGNGそうかdir関数もありましたね。
FSOは所詮WindowsAPIのラッパーだし、その他のVB関数（Dir)もラッパーなので、
やっぱり直接API使ってみようかなと考えています。FindFirstFile、FindNextFile
でもDir関数と大して速度かわらなさそうですね。Dir関数自体単純なコードで書けると思うので。
それでもファイルリストボックスよりは結構高速になると思いますが。
高速なファイル検索に関係するHPってどこかにありそうに感じるんですが、
VBって速度にこだわらないユーザー多いからかな。
0261255
NGNGボタン押下時に発生するメッセージIDを盗聴せよということですか。
ツールは持ってない。その点はもう少し調べてみる。>>259
>>253>>260
ｴｸｽﾌﾟﾛｰﾗと同じものなら FSO+TreeView.Nodes を漬かってますが、
単純にファイル名称検索ということだと自分ならC言語でバッチを作ってShellでキックすると思います。
高速処理を考えるとVBはやはり・・
0262デフォルトの名無しさん
NGNGFATかNTFS直接読めば早いよ。
ただし、装置に依存するけどね。
0263デフォルトの名無しさん
NGNG当該アクセス制御機能に係る他人の識別符号を入力して当該特定電子計算機を作動させ、
当該アクセス制御機能により制限されている特定利用をし得る状態にさせる行為
（当該アクセス制御機能を付加したアクセス管理者がするもの
及び当該アクセス管理者又は当該識別符号に係る利用権者の承諾を得てするものを除く。）
>>227のを見るのは「利用権者の承諾を得てするもの」に該当しないのかな。
言葉難しくてようわからん。
0264デフォルトの名無しさん
NGNGCall SendMessage(Hwnd, WM_LBUTTONDOWN, 0, 0)
Call SendMessage(Hwnd, WM_LBUTTONUP, 0, 0)
0265DJﾁｬﾝｷｰ
NGNG>C言語でバッチを作ってShellでキックする
？？CできるんならAPI自作すればい～じゃん
FSO+TreeView.Nodes よりも API+TreeView.Nodes の方が高速ですYO
API+TreeView+再描画制御でｴｸｽﾌﾟﾛｰﾗｰ同じくらいの展開スピードになますた
Windowsフォルダ(フォルダがたくさんある)の展開速度には自分でもビックリした
VBも技術と知識があれば かなり高速なものが作れます
VBが速くなるか否かは技術者のウデです(でもCの方が速いです．．．)
0266255＠未熟
NGNGSPI++ありました（スタヂオ6.0に入っとるやん・・）、親ウィンドウにメッセージ仕掛けるのに成功しました。
SendMessage(hwndOwn, WM_COMMAND, IDOK, hwnd)
BN_CLICKED=0の意味を間違えていたのが敗因です、またなんかあったら来ます。
>>265
ふふふ、Cは出来てもC++はできんというていたらくなんですわｗ
0267デフォルトの名無しさん
NGNGIf CInt(Mid(Text1.Text, i, 1)) < 0 Or _
CInt(Mid(Text1.Text, i, 1)) > 9 Then
Text1.SetFocus
Exit Sub
End If
Next i
DQNな質問ですみません。
何故、これで型の不一致のエラーが出るんでしょうか？
0268デフォルトの名無しさん
NGNGText1.Textは全て数字？
じゃないなら型不一致になって当然だが
0269デフォルトの名無しさん
NGNG１ Text1.Textに "ABC" と入っている
２ Text1.Textに "１２３" と入っている
３ Text1.Textに "123 " と入っている
４ Text1.Textに "-12.34" と入っている
text1.text=trim(text1.text)
if text1.text like "*[!0123456789]*" then exit sub
上二行を頭にいれてください。
0270デフォルトの名無しさん
NGNGText1.Textには何が入っているのれすか？
0271デフォルトの名無しさん
NGNG0272デフォルトの名無しさん
NGNG要するに、数字以外が入ったときに処理が抜けるような事をしたいわけです。
（Asc関数を使わない方法で）
IME-Mode オフなので、半角の英数字が入りますね。
0273267
NGNGありがとうございます。まだ初心者なのでそういうやり方は初めて知りました。
しかし以前は、Midで取得した文字列をCIntで変換しても型の不一致が起きなかったのに、
何故、今回はエラーが出たのかがわかりません。。
0274デフォルトの名無しさん
NGNGでもちゃんと0が返ってくるからだいじょうぶ。
つまり
<0,>9
となっていて
0<=n<=9
の処理を書いていないのがｴﾗｰの原因。
0275267
NGNGすいません。そのやり方でもうまくいかないのですが。。
If Not (0 <= CInt(Mid(Text1.Text, i, 1)) And _
9 >= CInt(Mid(Text1.Text, i, 1))) Then
0277デフォルトの名無しさん
NGNGPrivate Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKey0 To vbKey9, vbKeyReturn, vbKeyDelete, vbKeyBack:
Case Else: KeyAscii = 0
End Select
End Sub
0278デフォルトの名無しさん
NGNG２７５の脳内は常に
On Error Resume Next
でし。
0279デフォルトの名無しさん
NGNG残り二人が気になるなぁ・・・
0280253
NGNGファイルリストボックスのときより数十倍ぐらいリスト作成がはやくなったよ
さらに最適化しようかとおもったけど、検索ファイル数やサブディレクトリ数の状況によっては逆効果になるかもしれないから
これでやめとこう。
単純にAPI使うだけでここまで早くなれば満足
0281デフォルトの名無しさん
NGNG教えていただけないでしょうか？
Ver6です。
0282デフォルトの名無しさん
NGNGFormに貼り付けて、実行しただけでエラーとなります
”システムエラーです：&H８０００４００５ 特定できないエラー”
どうすればいいのでしょうか 教えてください
環境 98SE IE6(SP1) VB6(SP5) MSDXM.ocx 2002/05/24
MediaPleyer7.1です
0283山崎渉
NGNG0284デフォルトの名無しさん
NGNGShell """" & 実行ﾌｧｲﾙのパス & """ ここにコマンドライン"
DOSのコマンドﾗｲﾝ指定とおな～じ
実行ﾌｧｲﾙのパスを " でくくるのを忘れずに(DOS 分かる人なら理由は分かるでしょう)
0285デフォルトの名無しさん
NGNGCommand$にコマンドライン引数が入っている
ランタイムの話か？
だったらプロパティの実行可能ファイルの作成タブにコマンドライン引数って項目があるから、そこに入れとく
0286デフォルトの名無しさん
NGNG使えないのかな？
0287デフォルトの名無しさん
NGNGDim intHoge() As Integer
ReDim intHoge(10, 10)
0288デフォルトの名無しさん
NGNG素早い返答ありがとうございます。
ハズカシながらredimの書き方が間違っていたようです。。
さっそく試して見ます。
0289デフォルトの名無しさん
NGNGとか言ってみたりする。
確か出来なかったような・・・
0290デフォルトの名無しさん
NGNGWinsock1.Listen （サーバ側）と Winsock1.Connect （クライアント側）
を使い分けたいのですが、一度サーバ側からクライアント側になる時
Winsock1.Closeをして、次にコネクト先をしていしてWinsock1.Connectを実行
するにしたのですが、Winsock1.Connectでエラーになります。一度Listenを
使ったら、そのコントロールではConnectを使用できないってことはないん
ですか？
0291ほっそー
NGNG0292ほっそー
NGNG限りなく素人。
でも・・・おしえてください！
VB先輩方！
0293デフォルトの名無しさん
NGNG買えばいい
0294デフォルトの名無しさん
NGNG0295デフォルトの名無しさん
NGNG買う。
0296デフォルトの名無しさん
NGNGバイト→買う。
0297286
NGNGおっしゃる通り、１次元目はredimできないようでした。
仕方がないので、１次元目は多めに数を設定しておきました。
0298デフォルトの名無しさん
NGNGウンコredom。
0299デフォルトの名無しさん
NGNG単に接続が切れてないだけじゃないの？
Closeしたからといって切れるものじゃないってのは知ってる？
っていうか、なんで２個使っちゃだめなのよ？食わず嫌い？
0300デフォルトの名無しさん
NGNGソースファイルをくれりゃぁやって漏れがやっても良いが。
0301デフォルトの名無しさん
NGNGその前にOption Explicitの指定とCtrl+F5は実行させておいた方がいい罠。
0302デフォルトの名無しさん
NGNGテキストファイルに
255 253 253
90 3 23
23 231 23
のように０から２５５の値の整数が
６４×６４こ入っています。
その一つの値を一つの画素の値として
６４×６４の画像を表示したいのですが、
下記のソースを、コマンドボタンを一つだけつけただけで
後はいじってないフォームのコードとして動かしたんですけど
上手くいきません。
どなたか添削していただけませんか？
よろしくお願いします。
0303デフォルトの名無しさん
NGNGPrivate Const BoxSizeX = 200 'ドットの幅
Private Const BoxSizeY = 200 'ドットの高さ
Private Sub Command1_Click()
DrawIMG 1 '<-イメージ番号1～
End Sub
Private Sub DrawBOX(X As Long, Y As Long, FColor As Long)
Dim Cl As Long
Cl = FColor& + FColor& * &H100 + FColor& * &H10000
Me.Line (X * BoxSizeX, Y * BoxSizeY)-((X + 1) * BoxSizeX, (Y + 1) * BoxSizeY), Cl, BF
End Sub
Private Sub DrawIMG(TXNo As Long) 'TXNo As Long
Dim i As Long, j As Long
Dim Buff As String
Open "data.dat" For Input As #1
For i = 1 To (TXNo - 1) * 64 'Seek #1, (TXNo - 1) * 34 * 16 + 1と言う手もある
Line Input #1, Buff
Next i
For i = 0 To 63
Line Input #1, Buff
For j = 0 To 63
DrawBOX j, i, Val("&H" & Mid$(Buff, j * 2 + 1, 2))
Next j
Next i
Close #1
End Sub
0304デフォルトの名無しさん
NGNGBuffが255 253 253～の時
j=0ならMid$(Buff, j * 2 + 1, 2)は"25"
j=1ならMid$(Buff, j * 2 + 1, 2)は"5 "
となる。わかるかな。
わかったらSplit関数を調べてみそ。
0305デフォルトの名無しさん
NGNG&H付けてValしてるってことは、実際は16進表記なんだろ？
データは連続表記なのかなあ？
そのへんが大事。
0306デフォルトの名無しさん
NGNGデータは_をスペースとすると
12_123_25_250 _22_
255_123_25_250 _222_
121_123_25_250 _22_
と言う感じにスペースで区切られています。
304さんがおっしゃってくれたsplit関数調べてみたんですが
どうもうまく切り出しができないのですが
アドバイスをいただけませんか？よろしくお願いします。
0307デフォルトの名無しさん
NGNGふつーに書いて試してみたけど、何事も無く使えたなぁ
ちゃんと初期化すべきとこは初期化してます？
'つーか、どんなエラーよ。
0308デフォルトの名無しさん
NGNGA+1=Bってどうやるんでつか？
先生に聞いてもわからないんです。
ぐぐってもわからないんです。
0309デフォルトの名無しさん
NGNGB=A+1
0310デフォルトの名無しさん
NGNGどういうふうにうまくいかないか、書かないと、アドバイスも出せませんが。
Dim a
Dim txt As String
Dim i As Long
txt = Text1.Text 'ここでファイル読み込み
a = Split(txt)
Text2.Text = ""
For i = LBound(a) To UBound(a) Step 1
Text2.Text = Text2.Text & a(i) & vbCrLf
Next i
あとはa()の内容がちゃんとしてるかどうか調べるトコつくればいいかな
0311デフォルトの名無しさん
NGNG書き方が悪かったです。
C言語みたいに Aに +1をすると Bという文字になる・・・・
ということはできないんでしょうか？
と聞きたかったんです。
なにか方法ないでしょうか・・・・
0312デフォルトの名無しさん
NGNGText1.Text = Chr(Asc("A") + 1)
0313デフォルトの名無しさん
NGNGy=-x^3+x^2+3
を
ｘ＞０領域
交点のｘ座標の値αを二分法により求めるプログラムおしえてもらえないでしょうか？？
0314デフォルトの名無しさん
NGNGまあ、その。C言語と、さほどかわりはしない。
Dim b_str() As Byte
b_str = "ABCDEFG"
b_str(0) = b_str(0) + 1
Text1.Text = b_str
0315デフォルトの名無しさん
NGNG312さん、おかげ悩んでいた部分がうまく動きました。
ほんとうに、ありがとうございました。
309さんも下手な書き込みに答えていただきありがとうざいます。
0316デフォルトの名無しさん
NGNG315さんもサンクスです。
0317デフォルトの名無しさん
NGNG0318282
NGNGActiveMovieControlが動作しません
Formに貼り付けて、実行しただけでエラーとなります
”システムエラーです：&H８０００４００５ 特定できないエラー”
どうすればいいのでしょうか 教えてください
環境 98SE IE6(SP1) VB6(SP5) MSDXM.ocx 2002/05/24
MediaPleyer7.1です
僕も、違う質問に答えるようにします
0319デフォルトの名無しさん
NGNGうちのPCでも出ますね(NT4.0 MP6.4)。業務系なんでメディア機能対応できないのは当然なんですが。
なんでしょうね MSDNのCLock.aviを見るのは可能だがVBでは不可。
貼りつけたままVB終了してもエラーが出る（二回）
コントロールの造りからしてなんかおざなりなんで、環境の制限がシビアなんでしょう
コントロール内部の初期化（及びプロパティ保存）処理でエラーが出てるようだが
内容を表示しないのは怠慢っぽい。ヘルプその他も日本語になってないようですのでパス。
メディア機能をJavaとかでなくVBで造ってる人居るのかな？
0320デフォルトの名無しさん
NGNGコンポーネントの追加で、WindowsMediaPlayer(下の方にある)にすればOK!
# 解決になっとらんか
0321デフォルトの名無しさん
NGNG0322デフォルトの名無しさん
NGNG俺もおなじ。
メディアプレイヤーコントロール使ってるよ。
0323デフォルトの名無しさん
NGNGシングルクリックとして認識させるような常駐プログラムを
作りたいんですが、
まず何からやったらいいかわかりません。
VBの知識としては、普通に作りたいものはなんでも作れる程度にはあるのですが、
今回のケースは特殊すぎて私も困っております。
なにかよい助言がありましたらお願いします。
そんなフリーソフトがあるならそれでもいいのですが。
0324デフォルトの名無しさん
NGNGさてはマウスがいかれたな
素直に安いの買え
0325デフォルトの名無しさん
NGNGやっぱそう思いますよね？私もそう思いますが、
お客さんは絶対買いたくないから私に頼んだんだと思うんですよね。
VBでは無理っていうならそう回答してもいいんですが
「そんなこともできないのか？」と思われるのも悔しいので
なんとかやってのけたいんですよね。
0326デフォルトの名無しさん
NGNG> 「そんなこともできないのか？」と思われるのも悔しいので
> なんとかやってのけたいんですよね。
それなら、無酸素月面着陸をやってのけてくれ（ｗ
0327デフォルトの名無しさん
NGNG2000/XPなら
Shell ("cmd /c main.cpl")
9xなら
Shell ("command /c main.cpl")
＃嘘
0328デフォルトの名無しさん
NGNGWin2kだったら
スタート-設定-コントロールパネル-マウス-マウスのダブルクリックの速度
これを調整。以上。
っつーかｽﾚ違い。
0329282
NGNGどうもありがとうございます
他社が作成したアプリの改造をする仕事でして、
既存がActivMovie利用していてソース開いたとたんにエラー
上記アドバイスにより動けばいいので、MediaPlayerコントロールにしちゃう
コンポーネント選択では同じOCX、プロパティもみんな同じ。。。
普通に動いちゃった・・・ まぁいいや
どうも
よし 質問答えちゃうぞ！！！ なにか質問して（あんまりVBしらないけどがんばる）
0330323
NGNGうーん、違う。コントロールパネルで設定できるのは
ダブルクリック判定の最低速度でしょ。
超高速でダブルクリックしたときに、シングルクリックとして
認識させたいわけで、コントロールパネルの話を出すことの方が
ｽﾚ違いですよ。
GetMessageとSendMessageつかってやれそうですが
そもそもWindows全体のhwndってどうやって取得するんですか？
screen.hwndってやったら怒られた・・・。
あと、受信してしまった2回目のクリック情報を消すにはどうしたら
いいんでしょう？
0331デフォルトの名無しさん
NGNGそのソフトを作る時給だけで、マウスを買える金額を
軽く超える事になってしまうに一票
0332デフォルトの名無しさん
NGNGそこまで金のこと考えるならもう一歩考えろや
マウスが1個しか壊れてなくて
今後は二度と壊れない保証があるなら
お前の意見も通るかもしれんが、
>>323の客はすでに何度もマウスがこういう風に壊れて、
もう買うのがいやなのかもしれないだろ
または買ってもまた壊れると考えたのかもしれないだろ
普通誰だってマウス壊れたら新しいの買うよ
そこをあえてプログラマに依頼したのはなにかワケがあると考える方が
普通じゃないか？に一票
0333デフォルトの名無しさん
NGNGでは、
323の答え、または、331の別解がありましたら、教えてください。
そちらのほうが、親切かとおもいますよ
0334デフォルトの名無しさん
NGNGま、簡単なことだ。
上位互換の独自マウスドライバを作成汁
0335デフォルトの名無しさん
NGNGVBの自作アプリでのクリ・ダブクリイベントの問題ならマウスのアプダウンイベントに代えることで解決。
0336デフォルトの名無しさん
NGNG(´-`).｡ｏＯ(VBでドライバが簡単につくれたらいいなあ）
0337デフォルトの名無しさん
NGNG３３４はVBでは無理だってことも含めてだろ
0338デフォルトの名無しさん
NGNGOSレベルでの話だよ
0339デフォルトの名無しさん
NGNGお勧めホームページ教えてください。
0340323
NGNGWindowsメッセージの取得がむずかしいです。
Do～Loopでまわすと重すぎるし(DoEvents入れても)、Timerコントロールでは
とてもじゃないけど検知できません。
やはりVBでは無理なんでしょうか。
だからといってVCでもできる自信はないですが。
簡単そうに見えて難しいんですかねぇ。
0342デフォルトの名無しさん
NGNGサブクラス化だのシステムフックだのを、やんなきゃいかんのでは。やったことないけど。
VBだと苦しすぎるだろうし。
0343デフォルトの名無しさん
NGNGもし、OSレベル全メッセージを取得できたらできる。
ダブルクリックにはシングルクリックが必ず発生するから、
シングルクリックのメッセージ時にTimer関数で時間を取得し、
ダブルクリックのメッセージ時に時間を比較し、短ければメッセージを殺す。
ただ、どうやってOSレベルのメッセージを取得するかだ。
VBでできるんかな？
0344デフォルトの名無しさん
NGNGdim buff as string
Open "image.jpg" For Output As #1
Write #1, buff
Close #1
これ以外のファイル保存の方法がありましたら
アドバイスお願いします
0345デフォルトの名無しさん
NGNGそれ以外の方法でファイルの保存をする意図を教えてください。
0346323
NGNGまさにその方法でやっていますが、
メッセージ取得が非常に重いんですよ。
0347デフォルトの名無しさん
NGNGASMで書け
0348344
NGNGいやーほかにもあるのかと思いました
ありがとうございます
0349デフォルトの名無しさん
NGNG処理の途中で抜けるコマンドは何ですか？
end sub
0350デフォルトの名無しさん
NGNGWinAPIで。
http://black.sakura.ne.jp/~third/win111.html
がんばれ。
0351デフォルトの名無しさん
NGNGexit sub
0352３４９
NGNGできました。ありがとうございました。
0353デフォルトの名無しさん
NGNGん、Windowsフックでも駄目か？
上で言ってた
Do～LoopやTimerコントロールはジョークだよな。
0354デフォルトの名無しさん
NGNGグローバルフックが必須。
確かVB単体では無理だったから
そこらで配布しているOCXでも拾ってこい。
あとは >>343
0355デフォルトの名無しさん
NGNGどこで聞けばいい？
0356デフォルトの名無しさん
NGNG少しコンピュータ関連の多い本屋にでも行って、立ち読みでもしてください。
0357デフォルトの名無しさん
NGNG友達の家の本を読みましたが理解できませんでした。
救いようがないでしょうか
0358デフォルトの名無しさん
NGNGファッキングが訛ってるだけだ。
あまり気にするな。
0359デフォルトの名無しさん
NGNGあなたがシステムの管理者とか、開発者とか、その手の人じゃなければ、
ウイルススキャンのプログラム等を入れておけば、望んで関わり合いに行くこともないですよ
0360デフォルトの名無しさん
NGNGご丁寧にありがとうございました。
0361デフォルトの名無しさん
NGNGどうしたらいいですか？
クライアントから接続すると失敗します
Me.sock.LocalPort = 4545
Me.sock.Listen
Private Sub sock_ConnectionRequest(ByVal requestID As Long)
Me.sock.Accept (requestID) ここで現在の状態ではむりぽと出ます
End Sub
0362デフォルトの名無しさん
NGNG最近ＶＢを始めたものですが、コーディングウィンドウに
"Vscroll1." と打つと次に打つワードを予測してリストボックス
の形で出してくれますよね？この場合だと "LargeChange"
や"Max"などをリストとして出してくれるんですが、これを
キーボードの↓キーで選択したあとエンターキーを押すと
その選択したワードが入力されるんですが改行されてしまいます。
改行せずに選択したワ－ドを入力するにはどうすればよいでしょうか？
0363デフォルトの名無しさん
NGNGMSDNを見てみましょう。
Acceptの前の行に、おまじないがあると思います。
0364デフォルトの名無しさん
NGNG0365デフォルトの名無しさん
NGNGエンターのかわりに、スペースキーでも押すとか。
0366デフォルトの名無しさん
NGNGIf Winsock1.State <> sckClosed Then Winsock1.Close
で動きました。
状態が完了していなかったのですね
0367デフォルトの名無しさん
NGNGPrivate Sub VScroll1_Change()
VScroll1.LargeChange = 2
pos_y = 240
Image1.Top = pos_y + (VScroll1.Value * 10)
End Sub
>Vscroll1.LargeChange = 2
のところはこれであってますでしょうか？
0368デフォルトの名無しさん
NGNG状態が完了していないわけじゃないんですよ。そのコントロールをListening
状態にしていたから、Listeningになってただけです。
AcceptするにはClose状態じゃないと(たぶん)ダメだろうから、クローズして
Acceptをしたわけです。
たとえばWinsock1のコネクションリクエストにクローズされてるWinsock2に
Acceptしてもいいわけです。
#ちょっとややこしいかな？
0369367
NGNGVScroll1.LargeChange = 20
VScroll1.Max = 100
VScroll1.SmallChange = 10
を書くところが間違ってました
解決しました。どうもお騒がせ様です・・
0370デフォルトの名無しさん
NGNG特定のゲームのセーブデータからパラメータの数値を抜き出して
好きなように書き換えちゃうツールを作りたいと思ったんですが
どんなもんでしょうか
・セーブファイルの特定の個所の数値を拾って表示する
・それに対して任意に入力した数字を、元のファイルがその部分のみ変わるように上書きする
という事かと思うのですが
こんな感じ、というのを教えて貰えると激しく助かります。
0371デフォルトの名無しさん
NGNGセーブデータ程度のファイルサイズであれば、一括でByteの配列にでも
読み取って、表示/編集のインターフェイスでつくってやって、
(前のデータのバックアップがほしいならここでとって)
上書き。
0372デフォルトの名無しさん
NGNGあれ？皆さんご存じないの？ CTRL+リターンだよね？
0373366
NGNG難しいです＾＾；；；
Listenのタイミングが間違っていることはないのですね～
Acceptの前の特別？な記述はVBのコントロールに依存しますか？
VB特有のものでしょうか？
0374デフォルトの名無しさん
NGNGWinsockコントロールを使えば、どの言語だろうと一緒でしょう。
コネクションリクエスト中でCloseしたのは、そのコントロールを再利用
しただけにすぎず、Acceptの相手はCloseされたWinsockコントロール
であれば、なんでもかまわないだけです。
0375３６４
NGNGCtrl+Enterは知ってるがスペースの方が楽で早いのでそっちを使ってる。
0376373
NGNG納得いたしました
TCPでは複数のコネクションがあればアクセプト専用とか
リッスン専用とか使い分ければ便利そうですね
ありがとうございました
0378３６４
NGNGその通り、慣れの問題だな。
0379デフォルトの名無しさん
NGNGそのままTabで決定するのに慣れてるんだが・・・
左手小指でささっと操作出来る点でスペースより（・∀・）ｲｲ!
と個人的に思っている。
0380デフォルトの名無しさん
NGNG漏れはスペース。
親指が常に構えてるから、自然と押せるよ。
0381デフォルトの名無しさん
NGNGコントロールするコードを書いてるんですが
Private Sub Form_Load()
f_size = Text2.FontSize
End Sub
-----------------------------------------------------------
Private Sub Check3_Click()
If Check3.Value = 0 Then
Text2.FontSize = f_size
Else
Text2.FontSize = 18
End If
End Sub
このようにやってみたんですが、文字を18にするのはできたんですが
チェックを外すとエラーがでてしまいます。
チェックを外すと元の大きさに戻したいんですがなにかいい方法はないでしょうか？
0382デフォルトの名無しさん
NGNGOption Explicitつけてませんよね？
f_sizeをモジュール変数として宣言しないと、
Form_Loadでのf_sizeと、Check3_Clickでのf_sizeが
別個のローカル変数として解釈されてるみたいです。
なので、
Text2.FontSize = f_size
を通ったときに、f_sizeにはEmpty値が入ってるからエラーになる。
0383デフォルトの名無しさん
NGNG0384デフォルトの名無しさん
NGNG宣言セクションに
Private f_size
と記述すべし。変数スコープに気をつけましょう。
0385デフォルトの名無しさん
NGNGWM_＊のメッセージってどうやったら何のメッセージか分かるんでせう？
SPY++で調べるの？
0386デフォルトの名無しさん
NGNG＞SPY++で調べるの？
ためしてみてから書き込めばいいのでは。
0387デフォルトの名無しさん
NGNGちなみに宣言セクションってGeneralって書いてあるところですか？
0388デフォルトの名無しさん
NGNG0389デフォルトの名無しさん
NGNG普通は、IMEでのテキストボックスへの入力は、「あいう（りたーん）」で、
「あいう」が Text1.Text に入りますが、
これを「あ」が入力された時点で Text1.Text に反映させたいのです。
教えてください。
0390デフォルトの名無しさん
NGNGだ
0391デフォルトの名無しさん
NGNGIMEをつかわなきゃいいわけで。
"a"が押されたら"あ"を表示して、、、と。
0392389
NGNG全角文字を1文字ずつ取得したいのですけど、
ローマ字変換を自前でやるのは面倒だなあ。と。
0393デフォルトの名無しさん
NGNG５０音全部書くんですか？
0394デフォルトの名無しさん
NGNG面倒でも、やらなきゃ完成はしませんよ。
地道に作りましょう。
0395デフォルトの名無しさん
NGNGtext2にリアルタイムで反映させる方法ってありますか？
0396デフォルトの名無しさん
NGNGPrivate Sub Text1_Change()
Text2.Text = Text1.Text
End Sub
0397デフォルトの名無しさん
NGNG確定前の文字もリアルタイムで反映させることってできますか？
0398デフォルトの名無しさん
NGNG妙にほのぼのしたよ。さんくす。
0399389
NGNG0400デフォルトの名無しさん
NGNG2000/XPで、かつ、MS-IMEで、かつ、少々めんどくさい処理すれば、
不可能とは言いません。
ImmGetConversionList() のAPIで、自力で変換部分を作るとかね。
0401デフォルトの名無しさん
NGNG他のタイピングソフトがどんな作り方してるか、見てみては？
0402デフォルトの名無しさん
NGNG水平スクロールバー（垂直でも良いけど）を用い、Changeイベントで
ピクチャボックスなんかの書き換えを行うようにしているのですが、
例えば、スクロールバーの両端を押し続けたりすると連続的にイベントが
が発生するわけですが、書き換え等の重い処理がイベント発生に追い
つかないので、そのままではスクロールバーが変な動きをしてしいます。
そこで書き換えを行っている間はスクロールバーのEnableプロパティを
Falseにしてイベントが起こらないようにしたのですが、するとスクロール
ボックスが消えてしまいこれまた変な感じになってしまいます。
ちょっとわかりにくいかもしれませんが、なんか良い方法ないでしょうか？
040356
NGNG>56>71>179>181>191>198>200>203
あの、長いので経緯載せてみました。
あの、、
結局、Form_TESTFMとTESTFM
はどう違うのでしょうか。
現段階で別物というのは教わったのですが、
TESTFMがなにで
Form_TESTFMがどうなのか
さっぱりわかりません。
ご存知の方教えていただけないでしょうか？
0404デフォルトの名無しさん
NGNG改行を抑制するにはどうしたら良いでしょうか？
0405370
NGNGレスは嬉しいが理解できませんですた。
「Byteの配列に読み取」って「表示/編集」して「上書き」させるやり方は
どこ調べるとわかるのだろう
0406デフォルトの名無しさん
NGNGバイナリファイル、ランダムアクセス、プット、ゲット、リード、ライトなどなど
0407デフォルトの名無しさん
NGNG君の言う「変な動き」がどんなんだかわからないので予想だけど、
重い処理を行ってる時に変な動きになるのはある程度仕方の無いこと。
ほとんどのソフトはそうなるでしょ。速いマシンを使うほか無い。
こちらに出来るのは重い処理の実行時間を出来るだけ短かくしてやること。
「重い処理」処理中はイベントが発生しても「重い処理」を呼ばないようにする。
「重い処理」の処理終了時にスクロールバーのValueが変更されてたら、再度
「重い処理」を呼ぶ。
これで「重い処理」の実行回数が最小限？に抑えられる。
あとは「重い処理」がなるべく軽くなるようにする。
0408デフォルトの名無しさん
NGNG正直わからんのだが、わかったところで無駄な知識な気がする。
Form_TESTFMはAccessがTESTFMから勝手に作ってるものなんでしょ？
てことは、Form_TESTFMはTESTFMを動かす（管理する）ためにAccessが必要とするもので、
ユーザーが意識する必要は無いもの、と予想してみる。
もしかしたらそれをいじることで何か出来るのかも知れないが
いじったら壊れるかもしれないし、そもそもいじる必要が無い。なので無視。
まあ何でも疑問に思うことは良い事だ。
あとこの板にはAccessスレがあるということを心に留めといてくれ。
0409デフォルトの名無しさん
NGNGどうでしょうか。
0410デフォルトの名無しさん
NGNGとりあえず思いついたのは、Changeイベント時に改行を検索し、あれば消去する。
てな感じ。他にも色々手がありそうだな。
0411デフォルトの名無しさん
NGNGどういう処理をしたら、そんなに重くなるのかな？
最小単位をドット以上に細かくしてムダに書き換えを多くしてるとか。
0412デフォルトの名無しさん
NGNG> 君の言う「変な動き」がどんなんだかわからないので予想だけど、
これが、説明しにくいのですが、両端の三角のところが押し込んだ状態の
ままになったり、スクロールボックス上でマウスボタンの押し下げをしていな
いのにマウスポインタにスクロールボックスがついてきたり・・・・
と、とにかく妙な動きをしてしまうことがあるのです。
> こちらに出来るのは重い処理の実行時間を出来るだけ短かくしてやること。
おそらく、これ以上速くしようがないくらいチューニングされています。ネックになっているのは
分かってますので。
> 「重い処理」処理中はイベントが発生しても「重い処理」を呼ばないようにする。
> 「重い処理」の処理終了時にスクロールバーのValueが変更されてたら、再度
> 「重い処理」を呼ぶ。
うーん、私が誤解しているのかもしれませんが、そうなっているというか、それはないというか、
です。・・・・・
実はこういう現象は初めてでして、私はイベント処理の中の「重い処理」が終わるまでは
次のイベントは起こらないと思っていたのです。っていうか遅れてイベントが生ずるはず。
ところが動きがそうではない、ていうか明らかに変。
別のところがおかしいのかなぁ・・・・しばし悪戦苦闘してみます。
0413402じゃないですが
NGNG0415402
NGNG描画経過(表示し終わるまで１秒以内だが)を表示しなくてはならないので
昔からの癖で、DoEventsを間に挟んでいたため。Refreshになおしたら
変な動きはなくなりました。
お騒がせいたしました。
0416409じゃないですが
NGNG止まる事を検知する必要は無いと思われ。
>>402
ワードパッドがやってるようにタイマを動かした方がいいんじゃない？
スクロールバーメッセージが届いたらタイマをキックしてタイムアップで描画更新。
これが最適でしょう。
0417370
NGNGｵｽ。調べてみるっｽ。
0418デフォルトの名無しさん
NGNGForm_TESTFMってのは、部品としてのサブフォームを表す名前だ。
CommandButtonとかCheckBoxってのと同じ。
一つのフォームにボタンをいくつも貼り付けられるように、
サブフォームも同じものをいくつも貼り付けることができる。
その場合は、"TESTFM1" とか "TESTFM2" のように
それぞれ違う名前を付ける必要があるけれど、
部品としては同じ Form_TESTFM なわけだ。
さて、あるボタンにフォーカスを移そうとした時に、
CommandButton.SetFocus のように部品名で書いたのでは
「どのボタンのことじゃボケェ」と怒られる。
ちゃんと ボタン1.SetFocus のように具体的な名前を指定しなくちゃいけない。
それと同じこと。
041940
NGNG自分でちょっと調べて見たのですが抽出は特に問題無いのですが
その抽出したアイコンの貼り付けに戸惑っています・・・
コマンドボタンに表示させたくて、hDCを使えばよいと言われたのですが
どうも上手く使えないみたいで・・・
hIcon = ExtractIcon(App.hInstance, "c:\a.exe", 0)
DrawIcon Command1.hDC, 0, 0, hIcon
こんな感じで書いて見たのですがhDCの部分でエラーが出ます。
DrawIcon Picture1.hDC, 0, 0, hIcon
と書けばピクチャーには貼り付けられたのですが・・・
どなたか教えていただきたいです。
0420デフォルトの名無しさん
NGNGコマンドボタンってhDC持ってたっけ？
hasHDCプロパティないんだけど。
0421デフォルトの名無しさん
NGNGおりも無いと思うぞ（確認せずに書いてるがｗ）
hWndからGetWindowDCじゃないか？
0422デフォルトの名無しさん
NGNG>>419-421
Dim hWnd as Long
Dim hDC as Long
hWnd = Command1.hWnd
hDC = GetDC(hWnd)
で取れます (GetDCはAPI)
hWndさえ取れれば何でもhDCが取れます
0423デフォルトの名無しさん
NGNGちょいと作ったソフトがあるんだけど終了時に
****が原因でIMM32.DLLにエラーが発生しました。
****は終了します
なメッセージボックスが出て異常終了しちゃうんですよ、マジで。
それも頻繁に！ほんと(´･ω･`)ｼｮﾎﾞｰﾝですよ。
同じような現象になったことある香具師いる？
原因とか解決策とかなんでもいいので知ってる香具師は
ここに晒してください。
0424デフォルトの名無しさん
NGNG入れればその文字はTextオブジェクトに送られないと思った。
0425デフォルトの名無しさん
NGNGサーチエンジンなどで検索くらい、しましょう
0426423
NGNG当然した。
http://support.microsoft.com/default.aspx
で検索かけたけど該当するのが無かった。
因みにこの板の他スレやここの全過去スレでも検索
かけたけど引っかからなかったからココで質問した。
因みにニュースとかメーリングリストなんかの環境が
無いので即時性をもとめてここに聞き込んだ。
以上、変な煽りはいらないので知ってる人情報クダサイ
解決策乗ってそうなサイト紹介もキボンヌ
0427423
NGNGごめん、サーチエンジンてのはもしかしたらYahoo!やGoogleの事かな？
そっちは試してないから今からぐぐってみる。
0428デフォルトの名無しさん
NGNG★YAHOOOプロフィール★
0429デフォルトの名無しさん
NGNG0430デフォルトの名無しさん
NGNGKeyPressイベント内にブレークポイント設定してペーストしてみれ
0432デフォルトの名無しさん
NGNG0434デフォルトの名無しさん
NGNGフォーム上にはコマンドボタン一つと、テキストボックス一つがあるとする。
コマンドボタンを押した場合には「Print 0」が実行される様にしておくが、
もしもテキストボックスに何も書かれていない場合、メッセージボックスが現われて
「テキストボックスが空白です」と表示され、OKボタンのみがついている。
そのOKボタンを押すとメッセージボックスは消えるが「Print 0」は実行されない
ものとする。ただしそれによりアプリケーションは終了しないものとする。
この時に、Private Sub CommandButton1_Click()の中に全てを記述するのではなく、
メッセージボックスを表示させるプロシージャを用意しておいて、それを
Private Sub CommandButton1_Click()のなかで呼び出すようにしたい。
可能かね？？？
0435デフォルトの名無しさん
NGNG0436デフォルトの名無しさん
NGNGhttp://www.google.com/search?q=IMM32.dll+%E7%95%B0%E5%B8%B8%E7%B5%82%E4%BA%86&sourceid=opera&num=0&ie=utf-8&oe=utf-8
すぐにみつかるんだがな
0437デフォルトの名無しさん
NGNG>>434 書いてみたがこれでいいのか？
'標準ﾓｼﾞｭｰﾙに書け
Public Sub 何かの関数名(ByVal frmFrom As VB.Form) As Bool
If frmFrom.Text1.Text = vbNullString Then
MsgBox("テキストボックスが空白です")
何かの関数名 = false
Else
Print 0 '「Print 0」って何？
何かの関数名 = true
End IF
End Sub
'Form1
Private Sub CommandButton1_Click()
Call 何かの関数名(Me)
End Sub
．．．これってなんか意味あるんか？
0438デフォルトの名無しさん
NGNGそこまで書けるのに、なぜ実現可/不可の判断が出来ないのか不思議だ。
0439437
NGNG0440デフォルトの名無しさん
NGNGSubをFunctionに変えたところで？
と突っ込んでみるテスト。
0441デフォルトの名無しさん
NGNGプロシージャBの中にプロシージャAをexitさせる内容のコードを書いて
その通りに実行させる事が可能か？
0442デフォルトの名無しさん
NGNG会社で仕事をしているときに家が火事となり、
その人は家に帰れなくなってしまったのでしょうか
0443デフォルトの名無しさん
NGNG0444デフォルトの名無しさん
NGNGなるほどｗｗｗ
そういうことですね。ありがとうございます。
0445デフォルトの名無しさん
NGNGクラス名とインスタンス名（Nameプロパティ）、ということでしょうか？
0446446
NGNGIE（関連付けされたブラウザ）をプログラムからShellExecuteで呼び出して、
インターネット上のウェブページを表示したりする一種のマクロ言語の
インタプリタもどき作ってるんですが、どうしてもそのウィンドウの「表示完了」が
わからないといけないのですが、どのように表示状態を取得すればいいのか、
見当つきません。表示状態をつかみたいIEは自分で起動したウィンドウ、及びそこから派生するウィンドウです。
よろしくなのら！
0447デフォルトの名無しさん
NGNGMicrosoft Internet Controlｓ でも追加して、自力で表示するとか。
0448446
NGNG派生ポップアップウィンドウが出ることは必然のURLでし。
コントロールを使っての表示では追いつかない。。。
0449デフォルトの名無しさん
NGNGわからないわけで、難しいと言うしかないんだが。
0450デフォルトの名無しさん
NGNGNetscapeとDDEで検索汁
すべてのプラウザで同じ動作ではないし、バージョンによっても違うがね。
.NETじゃDDE廃止になりそうだし。
0451デフォルトの名無しさん
NGNGCPU使用率で判断する。
0452デフォルトの名無しさん
NGNG0453デフォルトの名無しさん
NGNGhttp://homepage3.nifty.com/digikei/ten.html
0454デフォルトの名無しさん
NGNG0455デフォルトの名無しさん
NGNG0458454
NGNG0459デフォルトの名無しさん
NGNGお絵描きソフトをつくっていて、線の太さや色を変える事などは出来たんですが
書いた線をクリアするにはどのようにすればよいでしょうか？
0460デフォルトの名無しさん
NGNGUnDoを作りたいのですか？全てを消したいのですか？
まずは、お絵かきソフトを観察して、どんな処理がされているのか、
じっくり観察しましょう。
0462デフォルトの名無しさん
NGNG他人に公開する目的なら氏ね
0463454
NGNG0464デフォルトの名無しさん
NGNG0465デフォルトの名無しさん
NGNG少々きになったもので。
>462 と >463 、どちらに向けての言葉でしょうか
'当方は両方ですが。
0466デフォルトの名無しさん
NGNG粘着質
0467464
NGNGあんたに構うなといったさ。
0468デフォルトの名無しさん
NGNG>'当方は両方ですが。
一人上手と言う事ですか？
0469デフォルトの名無しさん
NGNGまーかまってしまったんだがな(鬱)
0470454
NGNG答えられない人は帰った。帰った。
0471464
NGNG0472454
NGNG0473デフォルトの名無しさん
NGNGタイピングゲームやシューティングゲームを作る場合
VBとDelphiの２つを比べた場合、向き、不向きなどがあるのでしょうか？
どちらも同じ場合は無料のDelphiを使おうと思うのですが
0474デフォルトの名無しさん
NGNGdel でいいと思うよ別に。
0475デフォルトの名無しさん
NGNGVBでいいと思うよ。.NETならなおよしだね。
0476デフォルトの名無しさん
NGNGとあるので、商用・業務以外の用途で使うなら問題なし。
使ってみるだけつかってみりゃいいだけの話。
0477デフォルトの名無しさん
NGNGスレ違いな話になっちゃうんだけど
ウィンドウズパワーなどの雑誌は大量のフリーソフトを収録して金取ってるわけですよね？
そういう場合Delphiで開発されたソフト（フリーソフト）を掲載しても問題ないんですかね・・
0478デフォルトの名無しさん
NGNGフリーのソフトを作って、ウインドウズパワーに掲載依頼もらって、
その質問をしましょう！がんばって！！
0479デフォルトの名無しさん
NGNG雑誌側的にはまったく問題なし。
仮に(商用に使えないことによる)問題が発生したとしても、
そのフリーソフトの作者が訴えられるだけだろうし。
0480デフォルトの名無しさん
NGNG0481デフォルトの名無しさん
NGNGそれらのソフトって、Delphi の "Personal” で作成されてるんですか？
0482デフォルトの名無しさん
NGNGならないわけだが。
0483デフォルトの名無しさん
NGNG0484デフォルトの名無しさん
NGNG0485デフォルトの名無しさん
NGNG048656
NGNGレス遅れてすみません。
理解に苦しんでました。
おかげさまでForm_TESTFMについては
理解することができました。
ありがとうございます。
C++でいうところの
クラス Form_TESTFM
Form_TESTFM：：SetFocus
は呼び出せない。
みたいな感じに理解しました。
ありがとうございます。
やっと納得できました。
0487デフォルトの名無しさん
NGNGpersonalで作ったって作者サイトに書いてあるが
0488デフォルトの名無しさん
NGNGっつーかｽﾚ違いsage
0489デフォルトの名無しさん
NGNG0490デフォルトの名無しさん
NGNGどうすればいいのでしょうか？
0491デフォルトの名無しさん
NGNGttp://www.angel.ne.jp/~mike/tips.html#11
0493デフォルトの名無しさん
NGNG049440（419）
NGNG返事が遅くなってスイマセン。色々とありがとうございました。
なんとかコマンドボタン表示までは出来ました。
そこで、また新たな問題が発生したのですが・・・
表示できたのは良いのですが、表示できたアイコンが他のウィンドウに隠れたりすると
その隠れた部分だけ消えてしまうのですが・・・
アクティブ・非アクティブは特に関係無いようで、
他のウィンドウに隠れた部分だけ消えてしまいます。
これは仕様なのでしょうか？
作るものがランチャーと言う特性上、
他のウィンドウに隠れたくらいで消えるのはどうかと思って・・・
すみませんが、また教えていただきたいです。
検索とかで探そうにも、何で探せば良いのかわからなくて・・・
0495デフォルトの名無しさん
NGNG最近の若者はRFCを知らんのか
http://www.w3.org/Protocols/rfc959/
0496デフォルトの名無しさん
NGNGPaintイベント参照。
0498デフォルトの名無しさん
NGNG0499デフォルトの名無しさん
NGNGんなもんねぇよ
>>500
おめでとう
0500デフォルトの名無しさん
NGNGとあるPATHに続くフォルダ名を「最終更新日付」の古い順に取得したいのですが、
手法として、
1)Dirでフォルダ名をずらっと取得。
2)FileSystemObjectのDateLastModifiedで一つずつ更新日付を確認。
3)自力SORT。
しか無いでしょうか。
力技っぽくてアレなんですが。。
0501bloom
NGNGhttp://www.agemasukudasai.com/bloom/
0502デフォルトの名無しさん
NGNG0503名無しさん だよもん
NGNG洗面器に水張ってフロッピーディスクを泳がせる
0504!= 502
NGNG質問の意味もわからないVB厨が面白くもないレスをつけてます
0505デフォルトの名無しさん
NGNGを印刷したいのですがコードの書き方がわかりません。どなたか教えてください。
よろしくお願いします。
0506デフォルトの名無しさん
NGNGVBの本なんでもいいので買って勉強してください。
0507デフォルトの名無しさん
NGNGまたできるのであればどのようにすればよろしいかご教授お願いします。
0508デフォルトの名無しさん
NGNGフォームデザイン画面で消すのか？
実行時に非表示にするのか？
0509hh
NGNG◎浮気素行調査
彼氏、彼女、妻、夫の浮気を調査致します！！
◎盗聴器盗撮機発見
あなたの部屋に誰かが仕掛けているかも！！
◎行方調査
行方不明になっている家族の消息を調査致します！！
◎電話番号から住所割り出し
一般電話、携帯から住所を割り出し致します！！
◎ストーカー対策
社会問題ともなっているストーカーを撃退致します！！
その他人生相談からどんなお悩みでも解決いたします！！
２４時間受付 ０９０－８５０５－３０８６
ＵＲＬ http://www.h5.dion.ne.jp/~grobal/
メール [email protected]
グローバル探偵事務局
0510507
NGNGまとめて非表示にしたいのです。
0511デフォルトの名無しさん
NGNGPrivate Sub Command1_Click()
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Visible = False
Next
End Sub
0512507
NGNGラベル以外は非表示になりましたが、ラベルのところまで行くとエラーが出てしまいます(涙
でもラベルぐらいなら何とかなりそうなので後は自分でがんばってみます。ありがとうございました。
0513デフォルトの名無しさん
NGNGFrameにフォーム上にあるオブジェクトを貼り付けて
Frame.Visible = False
0514デフォルトの名無しさん
NGNG511でうまくいくはずだが・・
513みたいでもいいなら
シェイプコントロールで隠しちゃうのもありだな
0515デフォルトの名無しさん
NGNG0516507
NGNGありがとうございます、うまくいきました。Frame使うとは思いつかなかったです。
>>514さん
>>511でやると、ラベルを非表示にかかったときに
『実行エラー'438'
オブジェクトはこのプロパティまたはメソッドをサポートしていません。』
って出てしまいました。
0517デフォルトの名無しさん
NGNGまじっすか？！
>516
labelコントロールにはvisibleがあるけど、なんでだろう
0518デフォルトの名無しさん
NGNGラベルは問題ないって
Visible プロパティがない他のコントロールでひっかかってると思われ
Timer とかな
0519500
NGNG0520デフォルトの名無しさん
NGNG0522デフォルトの名無しさん
NGNG漏れはソートしなきゃいかん時はよくADOを使うよ。
ADOのレコードセット作って、
DirとかでFile情報放り込んで、
Sortメソッドかます。
ただ、Access97だからあえてADOも参照するのが良いか悪いかは別だが。
0523デフォルトの名無しさん
NGNGプリンターの設定はコモンダイアログコントロールを張り付け、
ShowPrinterでプリンタの設定ダイアログを表示し設定するようにしてあります。
PrinterDefaultプロパティはちゃんとTrueになってます。
でも、なぜか、プリンタの設定ダイアログで設定したように印刷されない事があります。
プリンタ設定ダイアログで用紙サイズをB5と設定しても、
A4のまま印刷されたりします。
もちろんPrinterオブジェクトのPaperSizeプロパティで決め打ちしちゃってるとか、
そういう事はしてません。
これはなぜですか。
そして解決方法があれば教えて下さい。
0524500
NGNGありがとう。
ADOかー。コードを後でVBに貼り付ける予定なので、DBは使わないんすよー。
しかし、リストボックスかなんかに放り込んでSortってのもいけそうですね。
勉強になりました、どうもです。
0525デフォルトの名無しさん
NGNG作るといっても他からパクるだけ。
0526デフォルトの名無しさん
NGNGいや、>500は自力でソートしたくないって言ってるんでしょ
0527500
NGNGや、別にどっちでも良いっすよ。
データ量も少ないし、自力Sortしようかと思ってます。
>>500に書いたのはあの流れが一番なのかなぁ、と。
もっと簡単に早く更新日付順にフォルダ名を取得できないかな、と言うことです。
適当でスマソ。
0528デフォルトの名無しさん
NGNGFileSystemObject使わんでも、FileDateTimeメソッドが最終更新日時じゃなかったっけ？
0529デフォルトの名無しさん
NGNG無責任に参考になるかもしれないアドレスを張ってみる
ttp://support.microsoft.com/default.aspx?scid=kb;ja;JP173981
0531デフォルトの名無しさん
NGNGほぼ問題はないでしょうが、VBAのバージョンが古い関係で、言語仕様上
の制限（Enumが定義できない、等）が問題になることがあるかも・・・。
（状況によりますが）
0532523
NGNGうわ、それっぽいですな。
解決しそうです。
ありがとうございました。
0533デフォルトの名無しさん
NGNG一気に初期化したいのですが、ループさせるしかないっすか？
全部で数百万個もあるので時間がかかっちゃって。
0534デフォルトの名無しさん
NGNGお前のCPUは何秒かかるんだ？
0535デフォルトの名無しさん
NGNGIDEで実行すると、10数秒くらい。
0536デフォルトの名無しさん
NGNGそれ何の処理なの？
数百万個も多次元配列組むなんて考えられないが。
DBかなんか使うとか考えてみたら。
0537デフォルトの名無しさん
NGNGEraseステートメントは0か""にしちゃうからな、ループしかないだろ
0538デフォルトの名無しさん
NGNG定義型にでも出来れば、とは思うんですが・・・あまりにも複雑で
なかなか直しにくいので。（俗にスパゲッティとも言う）
出来ないんなら仕方ありません・・・とほほ。
0539デフォルトの名無しさん
NGNGクラスのメソッドからフォームのプライベートsubやプライベートconstの値を
参照したいのですが、なにか良い方法はないものでしょうか？
frendというのを使うとできると聞いたのですが、使い方がよくわかりません。
教えてください。
Private owner As Form
Public Sub setOwner(owner_ As Form)
Set owner = owner_
End Sub
などとして、
owner.kansu()
とやればパブリックなsubなどは参照できたんですが・・・
0540デフォルトの名無しさん
NGNGどこかにサンプル転がってないでしょうか？
05411
NGNGそのクラスにFrendつかってあいてのメンバを友達だって定義するんじゃない？
しかし相手は参照できないよ
0542デフォルトの名無しさん
NGNGレスありがとうございます。
やはり無理ですか・・
C++のフレンドクラスみたいにしたかったんですが、残念。
0543デフォルトの名無しさん
NGNGプライベートは他から参照できない。
Friend(frendじゃなくてな)を使いたいなら、
ActiveX DLLとかにしてFriendで関数や定数を定義すれば
それはActiveX DLL内ではPublicと同じで他のプロジェクトからは
Privateであるようなスコープになる。
0544494
NGNGPaintイベントですか。良く分からないのでとりあえず調べて見ます。
コレ関係について詳しく乗ってるページとかって無いですかねぇ・・・
>>497
ワンクッションと言いますと？？
0545497
NGNG隠れるってことはアイコン画像へリンクしてるだけだから、
アイコン画像データをいったん自分の変数に格納してしまう。
0546デフォルトの名無しさん
NGNGなるほど！そういう時に使うんですね。勉強になりました。
ＶＢ難しい・・素直に標準モジュールで逝っときます。
0547デフォルトの名無しさん
NGNG2 ^ index でいいんですかね？それともベタに1,2,4,8,16,32ですか？
例：
Enum NICYAN
MONA = 2 ^ 0
SI = 2 ^ 1
GIKONEKO = 2 ^ 2
FUSAGIKO = 2 ^ 3
MATA_RI = 2 ^ 4
End Enum
Public Function Check(ByVal what As NICYAN) As Boolean
If (what And FUSAGIKO) = FUSAGIKO Then
MsgBox "フサギコ"
End If
If (what And MONA) = MONA Then
MsgBox "モナー"
End If
End Function
0548デフォルトの名無しさん
NGNG特にビット演算の必要が無い限り、Boolean の配列のがいいと思う。
0549デフォルトの名無しさん
NGNGまたまた登場>>49です
ﾋﾟｸﾁｬｰBoxにｱｲｺﾝを描画しAutoRedrawをTrueにす
んでSetParentでﾋﾟｸﾁｬｰBoxの親をFormから
Command1に変更する
Command1の上にｱｲｺﾝが描画されたﾋﾟｸﾁｬｰBoxがのっかている感じです
AutoRedraw=Trueなのでｱｲｺﾝが消えません
というのが どこかのページに乗ってた
(自分は未確認です...)
0551デフォルトの名無しさん
NGNGフォーマットぢゃ ダメなんだよね？
0552デフォルトの名無しさん
NGNGDeleteFileCash()を使いなされ。
0553502
NGNG無論
二度目以降のリードでフラッシュしてんのを都度全開に読みたいのよ
>>552
それっぽい関数名 (?) だがｸﾞｸﾞｯても M$DN でも引っかからん...
スマソがもちょっと詳細をｷﾎﾞﾝﾇ
0554デフォルトの名無しさん
NGNGネタだ。
0555デフォルトの名無しさん
NGNGAPIﾋﾞｭｰ---ｱｰ--- だめなら Cのﾍｯﾀﾞﾌｧｲﾙ(Windows.hとか)
それでもなかったら>>552はﾈﾀ
0556デフォルトの名無しさん
NGNGhttp://support.microsoft.com/default.aspx?scid=kb;ja;JP259716
こういう意味じゃなくて？
0557デフォルトの名無しさん
NGNGこういうこと？
0558デフォルトの名無しさん
NGNG何でキャッシュをクリアしたいんだ？
> 二度目以降のリードでフラッシュしてんのを都度全開に読みたいのよ
これの意味がわからん。
0559デフォルトの名無しさん
NGNGそのような部品はありません。印刷することは出来るのでしょうか？
0560イヌ
NGNGVB6.0proです。
・キーボードで、このウィンドウをcloseする方法。
・実行時に、このウィンドウの内容をクリアする方法
文字削除でctrl+Gをする癖があるため、よく開いてしまうので閉じたいのです。
0561デフォルトの名無しさん
NGNG開発者向けの機能ですので、IDEでしか開かないはずですが？
0562デフォルトの名無しさん
NGNG無理。放置しる。
0563デフォルトの名無しさん
NGNG0564502
NGNGそういうことだが FD は設定できんようだ
>>558
FD 内のファイルを GetPrivateProfileInt で読もうとすると
ごく一部の機種 (PC-98) で FD 変えても取得値が変わらんのだ
じゃ他の手法で読めとか VB の問題じゃなかろうとかﾁﾐなら云うだろうが
── とにかくあたしゃやりたいのよ！
>>563
厨だから
0565デフォルトの名無しさん
NGNG0566デフォルトの名無しさん
NGNGそのような場合、不具合が起こった機種の製造会社に聞くべきだろう。
PC-98のWindows用のデバイスドライバがPC-AT用とはかなり違っていた
のは経験したぞ。折れは。
0567デフォルトの無責任さん
NGNG配列はゼロクリアして使用時にバイアスをかける。
ラッパーをかますなどすればそれっぽく使えるかもしれないけど危険。
>>539
別名でFriendプロシージャを用意しる。
でも543が言うようにActiveX DLL/OCXでないと(同一プロジェクトでは)あまり意味がない。
Publicにできない型をやりとりするとき位かな？
↓こんな感じ
'Form1
Private AFO As Object
Friend Property Get VAKA() As Object
Set VAKA = AFO
End Property
'Other Module
Dim ITTEYOSI As Form1
Set ITTEYOSI = New Form1
ITTEYOSI.VAKA.OMAEMONA 'Form1のプライベートメンバAFOのOMAEMONAプロシージャ呼出
0568デフォルトの名無しさん
NGNG>・キーボードで、このウィンドウをcloseする方法。
CTRL+G アプリケーションキー(またはSHIFT+F10) H
>・実行時に、このウィンドウの内容をクリアする方法
Debug.Print String(1000, vbCrLf)
0569デフォルトの名無しさん
NGNGForm領域の左にはツール郡、右にはプロパティウィンドウがありますよね。
イミディエイトはどれですか？
0570デフォルトの名無しさん
NGNG0571デフォルトの名無しさん
NGNGｵﾏｲこそCtrl+G汁
0573569 ◆ywK/cYxtrU
NGNG///デバッグに必要なウィンドウなのか
0574569 ◆ywK/cYxtrU
NGNGつまり
イミディエイトウィンドウ＝デバッグウィンドウか。
同じもので呼び方がちがうだけと、なっとく。
0575デフォルトの名無しさん
NGNGDebug.Print でイミディエイトウィンドウになんか出ます
そういや Debug.Print を書いたまま EXE 二すると
EXEの中で Debug.Print が無駄に仕事をするんで
EXEにする前に消しとくと良いらしいYO
0576569 ◆ywK/cYxtrU
NGNGふううん ソウナンダ。ｵﾚDebug.Printの一行は書いたことないな。
オレが自分で考えた特許的方法は
Open － For Output As #〇
Print #〇, 変数
Close #〇
End
ってかんじでテキストに変数の値を出力して
そののちエンドで動作を終了させてる。
イミディエイト覚えたほうがよさげだな。
0577デフォルトの名無しさん
NGNG半分正しい。半分間違い。
Debug.Printの引数が定数や変数とそれらの式ならEXEにすると消える。
引数に、関数、メソッド、プロパティが含まれていると式が評価される。
もちろんDebug.Print自体は動作しないが。
0578デフォルトの名無しさん
NGNG0579デフォルトの名無しさん
NGNGの場合、EXEではformatとcstr、文字の連結処理は行われるということ。無駄無駄無駄無駄無駄・・・
パフォ気にしないんならいいじゃん。
0580デフォルトの名無しさん
NGNG?val1
とか
val2 = "ほげ"
とか
Call MsgBox("ほげ")
とか
0581デフォルトの名無しさん
NGNGファイルフォーマットの文書を読んでもイマイチ、ピンと来ないので・・・。
知ってる方がいらっしゃいましたら、お願いいたします。
0582デフォルトの名無しさん
NGNG問題の有る機種について汎用的な手法は存在しないと思われ。
ちなみにWin9x系のGetxxxProfilexxx関数は機種に関わらずキャッシュされるのをご存知なんだろうな？
0583デフォルトの名無しさん
NGNG作ろうと思ったのですが、よく分からないまま「次へ」とか「完了」
で作成したら、結構サイズが大きくなってしまいます。
依存ファイルを減らせばいいのでしょうが、依存ファイルって、
どこで決まるんでしょう？付け加えたOCXとかVB6JP.DLLくらいなら
判断できますが、それ以外のものをはずして良いのか悪いのか分か
りません。
0584デフォルトの名無しさん
NGNG出来たcabファイルは圧縮率スカスカだから、
一旦解凍して圧縮しなおすと結構小さくなったりするよ。
0585デフォルトの名無しさん
NGNGありがとう。それでやってみます。
0586デフォルトの名無しさん
NGNG仮にパフォーマンスの問題は無視できたとしても、副作用のある処理が
含まれていたとしたら、致命的にマズイね。
0587デフォルトの名無しさん
NGNG変数表示ならともかく、
関数の結果表示は危険をはらみ過ぎだろうね。
0588デフォルトの名無しさん
NGNG副作用ならDebug.Printは大丈夫だろう。どちらにしろ関数は実行されるんだから。
副作用の問題が出るのはDebug.Assertの方。EXEにすると関数が含まれようが消えるから。
Debug.Printで問題があるのは副作用じゃなくて式の結果が実行時エラーになる場合。
それを利用してEXEかIDEかチェックするテクニックもあるが。
0589デフォルトの名無しさん
NGNG> それを利用してEXEかIDEかチェックするテクニックもあるが。
代表的なのは、1 / 0 のようにゼロ除算でエラーにする方法だと思うが、
VB.NETではエラーにならない罠・・・。（ｗ
0590NANASI
NGNGデータを選び次の画面で詳細を表示するようにしています。そして、
表示された詳細を印刷するようにしているのですが印刷プレビューの時
点でデータべースの１件目を表示してしまいます。詳細に表示したデータ
のみを印刷したいのですが、どうしてもうまくいきません。どなたかご教
授お願いいたします。
0591デフォルトの名無しさん
NGNG条件がよくわからんが…。
Filterで、選択レコードのみのレコードセットを作り出すとかは？
0592デフォルトの名無しさん
NGNG0593デフォルトの名無しさん
NGNGある。
0595sage
NGNGb as double
間に適当な処理
a = b
こんな感じなんですが。。。
0596デフォルトの名無しさん
NGNG何のエラー？
エラーメッセージとエラー番号プリーズ
できれば間にある適当な処理も。
そいで、最後代入するときのBの値もね。
0597デフォルトの名無しさん
NGNGｂの中身は23562です。
間の処理のほうはbにc*d*f/eといった感じです。
aは実は構造体の配列のメンバだったりします。配列のサイズは2*3*5ぐらいなんですが構造体のサイズは100ぐらいだったりします。
でもエラーは出てくるんですけども値自体の代入はきちんと行われているようです。
0598デフォルトの名無しさん
NGNG・エクセルのファイルはオープン済み
・単純にエクセルに登録されているマクロを起動するのみで、実行結果にはＶＢ側は感知しない
どうか、よろしくお願い致します。
0599デフォルトの名無しさん
NGNG取りあえずeに0が入らないように監視。
0600デフォルトの名無しさん
NGNG式に用いられている変数の型に注意。
例えば、以下のようにすると、a*bでエラーが生ずる。
Dim a As Integer
Dim b As Integer
Dim c As Long
a = 1000
b = 1000
c = a * b
こういう場合は、例えば以下のようにする。
c = Clng(a) * Clong(b)
0601600
NGNGClngね。
0602デフォルトの名無しさん
NGNGＤＢへの接続は起動時にしてつなぎっぱなしにしていますか？
それとも必要に応じて接続・切断を繰り返していますか？
環境：VB6(SP5)+MSDE+ADO2.7
0603デフォルトの名無しさん
NGNGエラーが累積していくと悲惨なことになる予感。
0604sage
NGNG602のどのあたりの事？
0605デフォルトの名無しさん
NGNGいままで予想だにしなかったことだな。こういうのもありなのか？
タイムアウトの予感。
0606デフォルトの名無しさん
NGNGスクリプトから実行ファイルを起動して（もしくはバッチファイル）、
その戻り値を得たいのですが、どうすればいいのでしょうか。
0607606
NGNG0608デフォルトの名無しさん
NGNGFormに載ってる各コントロールのMouseDownイベントより先に発生させる事はできませんか？
KeyPreviewプロパティのマウス版みたいな感じで。
0609デフォルトの名無しさん
NGNGそれって不便じゃない？
0610598
NGNG0611デフォルトの名無しさん
NGNGWSHで作ったやつだけど、多分VBでも問題なし。
http://pc3.2ch.net/test/read.cgi/win/1022248379/466
で、実行中のExcel捕まえて、
http://pc3.2ch.net/test/read.cgi/win/1022248379/430
で、マクロを実行する。
0612自由な奴隷
NGNGtext1.text と
text!text ってどう違うの？？
っていうか「！」ってなんですか？
0613自由な奴隷
NGNGtext1.text
text1!text
でした。
（text1は、テキストボックスね。）
0614デフォルトの名無しさん
NGNG---------------------------
Microsoft Visual Basic
---------------------------
ｺﾝﾊﾟｲﾙ ｴﾗｰ:
値の取得のみ可能なﾌﾟﾛﾊﾟﾃｨに値を設定することはできません。
---------------------------
OK ヘルプ
---------------------------
0615デフォルトの名無しさん
NGNG>607
宣伝書き込みじゃないよね？
0616デフォルトの名無しさん
NGNG熱心な外人さんですね。
0618デフォルトの名無しさん
NGNGOLEオブジェクトとしてPhotoshop形式のファイルが埋め込まれています。
Accessで見ると「Adobe.Photoshop.Image.4」と書かれており、クリックすると
Photoshopが立ち上がる状態です。
さて、このようなレコードが多数あり、Photoshopの画像を別ファイルとして
保存する必要に迫られたのですが、やり方が調べても分かりません。
（OLEオブジェクト ファイル 保存 などでググってみたのですが・・・）
どなたか、このようなOLEオブジェクトのファイルを抜き出して保存する方法を
ご存知じゃないでしょうか。
ちなみに、データベースへアクセスする方法はADOでもDAOでも構いません。
環境はWin2K(SP3) + VB6(SP5) + Access2000(SP3) + Photoshop6 です。
0619NANASI
NGNG0620デフォルトの名無しさん
NGNGバイト型の配列にオブジェクトをぶち込み
Put ステートメントで書き込む
0621デフォルトの名無しさん
NGNGKeyPreviewプロパティのマウス版は無い
Private Sub Command1_MouseDown(引数省略)
Call Form_MouseDown(引数省略)
'この下に Command1_MouseDown の処理を書く
End Sub
この方法で出来なくもないが
Formに載ってる各コントロールに Call Form_MouseDown(引数省略)を
書かなくてゃならんので ﾔﾀﾞ
0622デフォルトの名無しさん
NGNGフックすりゃなんでもできる
0624デフォルトの名無しさん
NGNGマウスの座標と状態をログファイルに書き出すことはできたのですが
それを再生するとき、SetCursorPosで座標は再現できるのですが
クリックやドラッグを再現する方法がわかりません。
どなたかご教授いただけないでしょうか。
0625デフォルトの名無しさん
NGNG0626618
NGNG実行してできたファイルをPhotoshopで開こうとすると、
「有効なPhotoshop書類ではありません」と言われてしまい、エラーになってしまいます。
どこが悪いのか分かる方いらっしゃいましたら、アドバイスお願いします。
# なお、
b = rec.Fields("画像") の行を
b = rec.Fields("画像１").GetChunk(0, lngLen) に変えてみても同様の結果でした。
------------------
Dim b() As Byte
lngLen = rec.Fields("画像").FieldSize
ReDim b(lngLen - 1&)
b = rec.Fields("画像")
Open "c:\tmp.psd" For Binary As #1
Put #1, , b
Close #1
0627デフォルトの名無しさん
NGNGこの二つの製品の違いが良くわかりません。
Chart Builder5.0J
Olectra Chart6.0J
Olectra Chart6.0J は Chart Builder5.0Jの後継製品と考えれば良いのでしょうか？
あと開発環境が次の場合は
Olectra Chart6.0J の方が妥当なのでしょうか？
解る人いましたらお願いします。
＃ここまで書いたらメーカーに聞いた方が早いような気がしてきた・・・
0628627
NGNGWindowsXP + VB6SP5
です。
0629624
NGNGうまくいきそうです。
0630デフォルトの名無しさん
NGNG俺はその辺りはあまり知らないけど、
そこまで書くならメーカーに聞いた方が早いような気がするよ。うん。
0632598
NGNGＶＢからエクセルのマクロは起動できましたが、
エクセル側のマクロが終了するまで、
ＶＢの Application.Run で待機してしまいます。
エクセルのマクロ計算時間が１分以上かかるので、
ＶＢ側は待機をせずに次の処理をさせたいのですが、
何か方法はありませんか？
0633山崎渉
NGNG0634デフォルトの名無しさん
NGNGOUTLOOK2000の受信トレイを、ACCESS2000のDBにエクスポートするまでを
VBAスクリプトで行いたいのですが、やり方がまったく見当つきません。
もし不可能なら、WSHもつかえる環境なのですが。
VBAの知識がなく、マクロの記録機能もないので困っています。
仕事で急に必要になってしまいました。お願いします。
0635デフォルトの名無しさん
NGNG知識のあるヤシにやってもらう。
できもしないこと思いついたからって、全部2chに丸投げは無いだろ。
0636サンプルコード検索中…
NGNGADO使って一発でデータを取り出すのでわ？
0637サンプルコード検索中…
NGNGhttp://www.shoeisha.com/event/excel/session/session.html
0638デフォルトの名無しさん
NGNG0639デフォルトの名無しさん
NGNGMAPI ADO ってのがあるんですね、調べます。
0640デフォルトの名無しさん
NGNGhttp://www.microsoft.com/japan/partner/businessdevelopment/SalesResources/catalog/downloadfiles/0028-SH1.pdf
の、10ページ目近辺
方法としては、
・メールを受信する度に、OutLookのイベント・コードでExcel(Access)にデータ追加する方法と、
・Excel(Access)側から、Outlookの指定フォルダー内のメールを参照する方法、
の二通りがあるらしいです
0641634
NGNGありがとうございます（これから読みます）
わからなくなったら、また書き込ませてください。
0642デフォルトの名無しさん
NGNG何が原因と考えられますか？
情報少なくてすみません
0643デフォルトの名無しさん
NGNGでかい配列を値渡しとか
0644デフォルトの名無しさん
NGNG無限ループとか
0645デフォルトの名無しさん
NGNG↓
他のファイルを再生
↓
ボリュームが元に戻る
↓
ﾏｽﾞｰ
なんですけど、実行中にボリュームバーで変更したときって
ボリュームって取って来れんのですか？
Dim i As Integer
i = MediaPlayer1.Volume
ってやっても最初にプロパティページで設定した
値しかとって来れません。
0646デフォルトの名無しさん
NGNG考えられる原因は無限にある。以上。
0647デフォルトの名無しさん
NGNGたぶん、スタックが不足したんじゃないかなあ
0648デフォルトの名無しさん
NGNG＞DLL呼び出そうとしたら
DLL呼び出したら、じゃないの？細かい事のようだけど予想される原因は全く違ってくるのでは。
DLL呼び出したらエラーになったんならVCで作ったDLLに問題があるんじゃない？
俺はそのエラー、再帰処理で出した事あるよ。
0649642
NGNGれすどうも
DLLがわですかね、やっぱり。うーん、でも何度見てもわからない～
渡してるものは二つのデバイスコンテキストと整数型の変数三つを値渡しなんですけど
別に渡してる要素数が多すぎるって訳じゃないですよね、全部で５つしかないし、、、
もっかい精査してみるっす
0650デフォルトの名無しさん
NGNG0652デフォルトの名無しさん
NGNGFFTです
VB側で読み込んだ画像のフーリエ変換を処理速度上げるために変換処理部分だけVCで作って
DLLとしてリンクさせようと思ったんです
だからVB側でやってる事はファイルから画像読み込んでピクチャーボックスに表示
↓
そのピクチャーボックスのデバイスコンテキストと読み込んだ画像の縦横サイズを引数として
DLL側の関数へ渡す
↓
DLLでFFT処理実行してスペクトル表示にし、その画像に対して加工してやって
加工後の画像を逆FFTしてフィルター処理された画像を得る
↓
あとはその画像をVB側から受け取ったデバイスコンテキストに対して描画してやる
ってな事をやりたいわけです。
0654デフォルトの名無しさん
NGNG>ボリュームが元に戻る
どの辺にもどる？
最初にプロパティページで設定した値ってこと？
>実行中にボリュームバーで変更したときって
>ボリュームって取って来れんのですか？
だったらボリュームバーを非表示にしてボリュームを
変更できなくする(たしかボリュームバーを非表示にするﾌﾟﾛﾊﾟﾃｨが
あったはず よく覚えていない)
ｽｸﾛｰﾙﾊﾞｰでMediaPlayer1.Volumeを制御する
出来なかったら あぼーん
>>653
たのむぜ
0655VB質問スレ 620
NGNGReDim を宣言しないでやってみてくれ
0657デフォルトの名無しさん
NGNG現在、VB6proとACCESS2000を使用しデータベースの
検索システムを製作しています。
検索一覧をグリッドに表示し、情報を選ぶと次の画面へ移り
詳細情報が表示されるというものです。
問題は詳細情報の印刷をさせているのですが、データベース
にあるデータを1から印刷してしまいます。
すべてを印刷するわけではなく選択した（表示している）デ
ータのみを印刷するようにしたいのです。
なんども手直しをしましたが直りません。
どのようなコーディングをすればよいか皆様に教えていただ
けたら幸いです。
Set DataReport1.DataSource = frm検索.rs
' レポートを表示（プレビュー）する
DataReport1.Show
という風にコーディングしています。
よろしくお願いします。
0658デフォルトの名無しさん
NGNG少しずつデバッグして、状況判断しては？
C側の最初に return; を入れて、問題なければ呼び出しはうまくいってるんだし、
どこでエラーが出てるかわからなければ、誰も答えられないとおもうんだが
0659デフォルトの名無しさん
NGNG表示するにはどうすればいいですか？
環境 VB6.0 WINDOWSAPI DIRECTX
0660デフォルトの名無しさん
NGNGテーブルから1件のレコードを抽出するRecordsetオブジェクトを作成して
DataReport1.DataSourceにセットする。
0661デフォルトの名無しさん
NGNG0662デフォルトの名無しさん
NGNG誰だよ。名前のところに番号いれれ。
0663藍沢
NGNGどうすればいいですか？
0664618
NGNGAccessのオブジェクト埋め込みは、ファイルにOLEに関する情報と
おぼしきものが付加されるそうです。
なので、その部分を取り除かずにそのままバイナリで吐き出しても、
Photoshopでは認識できないみたいです。
これを解決するには、吐き出されたバイナリを解析して、OLE付加情報を
自力で取り除くしかなさそうです（かなり厳しい・・・）
とりあえず原因が分かっただけでも一歩前進、といったところでしょうか。
0665661
NGNGいやだね
0666デフォルトの名無しさん
NGNGこの偽者め！
0667デフォルトの名無しさん
NGNGDataReport1.Sections("Section1").Controls("Label1").Caption = Form1.Text1.Text
0668デフォルトの名無しさん
NGNGありがとうございます！
0669な
NGNGASPでビットマップを出力する例ですが、参考にるかと思います。
[ASP]Access データベースから画像を取り込み表示する
http://support.microsoft.com/default.aspx?scid=kb;ja;175261
0671藍沢
NGNG印刷ページ数を指定してDataReportを表示するにはどうすればいいですか？
0672デフォルトの名無しさん
NGNGお前、自分で調べたか？
すぐに見つかるぞ
http://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&q=%E3%83%87%E3%83%BC%E3%82%BF%E3%83%AC%E3%83%9D%E3%83%BC%E3%83%88+%E5%8D%B0%E5%88%B7&lr=
0673デフォルトの名無しさん
NGNG0674デフォルトの名無しさん
NGNG0675デフォルトの名無しさん
NGNGPrivate Sub Command1_Click()
Dim WShell As Object
Set WShell = CreateObject("WScript.Shell")
WShell.Run "D:\ExcelMacroRun.vbs"
MsgBox "VBSを実行しました。"
End Sub
ExcelMacroRun.vbs
--------------------------------------------
Set objExlApp = CreateObject("Excel.Application")
objExlApp.Visible = True
objExlApp.DisplayAlerts = False
objExlApp.Workbooks.Open("C:\test.xls")
objExlApp.Run ("Macro1")
objExlApp.Quit
0676デフォルトの名無しさん
NGNGという感じでファイルは通常開きますが、
ただたんにVB側では～.txtや～.jpgを開く命令だけを発行し、Windowsで関連付けられたアプリが自動的に開いてそれらのファイルを開くにはどうすればいいのでしょうか？
0677デフォルトの名無しさん
NGNGお手軽にやるならShellExecuteとか。
0678デフォルトの名無しさん
NGNG一つのファイルが完全にコピーされるのを待ってから、次のファイルに取りかかりたい
のに、どんどん次のファイルに取りかかってしまうからか、エラーっぽいのが出ます。
（多分、同じファイルがあるから）
これを一つのファイルをコピーし終えるまで待つように出来ませんでしょうか。
よろしければやりかたをご教授願います。
おながいします。
0680676
NGNG「音の再生」の「規定のデバイス」をVBから変更したいのですが、
どなたか方法を教えてください。
音声再生の出力先を、場合によって通常のサウンドカードか
USBサウンドのどちらかに変更したいのですが、いちいち
プロパティを開くのも面倒だし、フリーソフト等を探したものの
見つからなかったので自分で作ろうかと思っています。
OSは2000又はXP です。
0682デフォルトの名無しさん
NGNGエラートラップ。
0684デフォルトの名無しさん
NGNGFindExecutable() だったかな。ただし、抜けがあるので、レジストリを読むのが確実
>>681
わかんね。変更前後のレジストリの変化を調べてみたらどうだろう。
>>683
そんなこたーない。VBSをVBのコードに置き換えればいいだけ。
0685デフォルトの名無しさん
NGNG0687デフォルトの名無しさん
NGNG自分でSocketから起こすのが（略
0688デフォルトの名無しさん
NGNGオラクルに接続するところで落ちるようになってしまいました・・・
原因わからず、１週間近くも悩んでいます。
助けてください・・・
せめて原因を特定する方法だけでも・・
VCを使うとVBのEXEのデバッグができるというのは本当ですか？
もしできるなら方法を教えてください・・・
0689デフォルトの名無しさん
NGNG原因を特定するための情報を一切出さないとはどういう了見で？
0690デフォルトの名無しさん
NGNG教えてばっかりいってんじゃねえよ
1週間も悩む暇あったら仕事しろよ
￥￥￥￥￥￥￥￥￥\\\
\\\\\\\\\\
0691デフォルトの名無しさん
NGNGよくわかりません・・・・
0692デフォルトの名無しさん
NGNGProgressChange イベントってのがあったけど、これは駄目かい？
>>688
とりあえず、エラーメッセージぐらいだそうよ。
あと、開発環境 = 実行環境なのか、とか、いろいろ情報が不足してるね。
VCでデバッグもできるけど、相当大変なことは覚悟しておいたほうがいいよ。
0693藍沢
NGNGACCESSでチェックボックスがオン
になっている場合VBのフォームに
テキストで表示させたいのですが
以下のように記述しますと
無しとしか表示されません。
どの部分が間違っているの
でしょうか?
If frm検索.rs!寮 = 1 Then
txt寮.Text = "有り"
Else
txt寮.Text = "無し"
End If
If frm検索.rs!残業 = 1 Then
txt残業.Text = "有り"
Else
txt残業.Text = "無し"
End If
0694デフォルトの名無しさん
NGNGVisualBasic.netだけ単体で買うことって可能？
値段とかどんくらいするものなのかね
詳細ｷﾎﾞﾝﾇ
0695デフォルトの名無しさん
NGNGfrm検索.rs!残業
この２つの値を確認せよ
チェックしたとき1が入ってくるのか
0696デフォルトの名無しさん
NGNGんで認証する
RETRでメールヘッダもらう。
まではできんだけど
送信者の取得がﾜｶﾝﾅｲｰﾖ
複数のメールヘッダが変数に格納されてて、
その順番どおり例えばa(1)に一件目の送信者a(2)に2件目の送信者
手ナ感じで代入したいんだけど。
どんな感じでやりゃあいいのかな
スマートな「才支」求む。
0698デフォルトの名無しさん
NGNGｼﾞﾌﾞﾝｼﾗﾍﾞﾛﾊﾞｶﾁｭｳﾎﾞｳというレスを予想していただけに
激しく感謝！！
0699デフォルトの名無しさん
NGNGおびえてばっかりでなにもできねえアフォが開発なんてすんなよ
どうせろくでもないようなものしか作れないだろうからやめとけ。マジで。
0701デフォルトの名無しさん
NGNGVB.netスレあるのに・・・
http://pc3.2ch.net/test/read.cgi/tech/1025848458/l50
ちなみにVB.net単独はStandardエディションのみだ。
旧VBで言うところのLearningエディションにあたる。
仕事で使うならVS.NETだろ。
0702デフォルトの名無しさん
NGNG通常パッケージ
24,800円
てのは旧VBのぷろふぇ？
0703デフォルトの名無しさん
NGNG0704デフォルトの名無しさん
NGNGPOP3プロトコルでそ？
なら、RETRで取り出したメールに
・From:ヘッダが付いてればそれを使い、
・ついてなければあきらめる
って事でいーんじゃないだろーか？
あと、From:ヘッダは、正規表現か、文字列パースで、名前とアドレスを切り分けるって感じ
0705デフォルトの名無しさん
NGNGそなんだけど
そのFromの取り出し方がﾜｶﾝﾈｰﾀﾞﾖ
その「使い方」を教えてﾎｼｲﾀﾞｰﾖ
どうやって取得し配列変数にｶｸﾉｳｼﾃｲｸﾝﾀﾞｰﾖ
ｲ列 くれたら ﾈ申
0706デフォルトの名無しさん
NGNGお薦めの本ありますか？
0707デフォルトの名無しさん
NGNG文字列から文字列を検索するだけだろ？
取り出し方なんてあまりのも初歩過ぎ＆状況によって全然ちがうので
例を書きたくてもかけねーぞ？
>>706
ヘルプ
0708デフォルトの名無しさん
NGNGREM ------------------------------ここから
MSGBOX " ／￣￣￣￣￣￣￣￣￣￣￣" _
&VBCRLF&"＜ しいたけですが、何か？" _
&VBCRLF&" ＼＿＿＿＿＿＿＿＿＿＿＿" _
,16,"しいたけ"
REM ------------------------------ここまで
↓
ファイル名をsi-take.vbsとかにして保存
↓
保存したsi-take.vbsをダブルクリック
↓
(ﾟдﾟ)ｼｲﾀｹｰ
0709デフォルトの名無しさん
NGNG◆みんなの情報局◆
0710デフォルトの名無しさん
NGNGﾜﾗﾀ
0711
NGNGソースが入ってるPathとexeの入っているPathが違っているとか？
それで、OracleのDBのPathが違って認識されていないとか
そんなに簡単な問題じゃないか・・・・
0712デフォルトの名無しさん
NGNGa=(1024*1024*1391) MOD 13
これでオーバーフローしてしまいます。
これはどうにもならないんですか？
0713デフォルトの名無しさん
NGNGVBのintegerってまだ16ビットだったりするの？
0714デフォルトの名無しさん
NGNGInteger型になっているためだと思われ
Currency型かDouble型で計算しる
a=(1024!*1024!*1391!) MOD 13 !
↑たとえばこれはSingle型として計算
0715デフォルトの名無しさん
NGNG&はどれか一つだけでも良いけど
0716デフォルトの名無しさん
NGNGまだってCPUによってビット数が変わる言語はC/C++ぐらいだろ。
0717デフォルトの名無しさん
NGNG（32ビットOSに特化した言語のくせに）>>713
で良いかい？
0718デフォルトの名無しさん
NGNG0719デフォルトの名無しさん
NGNG0720デフォルトの名無しさん
NGNG0721デフォルトの名無しさん
NGNG0722デフォルトの名無しさん
NGNGしかし、
a=(1024*1024*1391) MOD 13
これはうまくいったのですが、
a=(10240*10240*1391) mod 13
これを
a=(10240!*10240!*1391!)
ここまではうまく計算されるのですが、
mod 13 をつけるとまたオーバーフローしてしまいます。
教えて君でもうしわけありませんが、教えてください。
0723デフォルトの名無しさん
NGNG0724デフォルトの名無しさん
NGNG>>715
0725デフォルトの名無しさん
NGNGいろいろがんばったけどやっぱりできない
145856921600 mod 13
でエラーが出るのはこれは仕方が無いのですか？
0726デフォルトの名無しさん
NGNG頭使って、目的とする解を得られるように計算方法変えてみ。
0727デフォルトの名無しさん
NGNGそもそもどのバージョンのVBでやっているの？
VB.NETでは何も問題ないが。
0728質問です
NGNGツールチップが出て文字列が表示されますよね。
外部アプリケーションのそのツールチップの文字列を取得したいのです。
Tips系サイトとか回ってみたのですが、近い情報はありませんでした・・・
どなたか知識が有る方、ご教授願えませんか。
よろしくお願いします。
0729デフォルトの名無しさん
NGNG0730デフォルトの名無しさん
NGNG0731デフォルトの名無しさん
NGNGADOと連結させている時に
キーボードから入力したものは自動的に保存してくれるのですが
SetTextメソッドからセットした値は自動的に保存してくれません。
何か知っていたら教えてください。
0733デフォルトの名無しさん
NGNGオマエモナー
0734デフォルトの名無しさん
NGNGああいうのをVBで実現しようと思ったら、何から調べれば良いですか。
0735デフォルトの名無しさん
NGNG設定ファイル(iniなんか)の読み書き
画像の読み込み
リージョン
スキンなんてそう難しい機能じゃないよ。
作ってって分からなくなったら聞きに来い。
0736デフォルトの名無しさん
NGNG「リージョン」自体初耳なので調べる所からはじめまっす。
分からなかったら、その時おながいします。
0737デフォルトの名無しさん
NGNGそれは１３未満になるまでぐるぐるまわるようなプログラムにするってことですか？
0738デフォルトの名無しさん
NGNG0739デフォルトの名無しさん
NGNG=10*10*0
=0
0740デフォルトの名無しさん
NGNGビットマップからリージョン切れるようになれば好き勝手に形作れておもしろいな。
0741デフォルトの名無しさん
NGNGどーやってやんのそれ？
恥ずかしながら多分俺出来ないわ。
0742デフォルトの名無しさん
NGNG最新のNrLaunch見てみ。
0743デフォルトの名無しさん
NGNG(1024 mod 13)*(1024 mod 13)*(1392 mod 13)
=10*10*1
=100
ですが何か？
0744デフォルトの名無しさん
NGNG俺は一ラインずつ見ていってリージョンORしていった。
0745デフォルトの名無しさん
NGNGエラー無視するのが悪い気がするのですが。。。
0746デフォルトの名無しさん
NGNG例外処理についての理解を深めれば割と納得がいく。
0747デフォルトの名無しさん
NGNGOn Error Resume Nextはインラインエラー処理のための命令。
すなわち、ある命令の次の行でErr.Numberをチェックしエラー処理をする。
APIのように戻り値でエラーを判定する方法と同じような感じになる。
もちろんErr.Numberをチェックしないのも戻り値のエラーをチェックしないのもご法度。
0748デフォルトの名無しさん
NGNGIEで開くには、以下のようにすればいいことはわかります。
Set objIEApp = CreateObject("InternetExplorer.Application")
toaruURL = "http://www.yahoo.co.jp"
objIEApp.Visible = True
objIEApp.Navigate toaruURL
ただ、希望としては、「htmlファイルと関連づけられているブラウザ」で
開くようなコードを書きたいのです。（SleipnirなりDonutPなり）
どのようにすればいいのでしょうか？
なお、Outlook2002、IE6、WinXPPro-SP2です。
0749デフォルトの名無しさん
NGNG(ﾟДﾟ)ﾊｧ?
>>725の話だが
0750デフォルトの名無しさん
NGNG期待する答えになってないだろうがボケ。
0751デフォルトの名無しさん
NGNG開くだけなら
Dim WShell As Object
Set WShell = CreateObject("WScript.Shell")
WShell.Run """http://www.yahoo.co.jp/"""
0752デフォルトの名無しさん
NGNGいいもんみっけた。
http://www.vector.co.jp/soft/win95/prog/se122274.html
とは言ってもC++のソース読めなきゃ意味ないけどな。
不定形リージョン作るだけならこれ使えばVB房でも大丈V
0753デフォルトの名無しさん
NGNG>>677 も参考になるかと
0754デフォルトの名無しさん
NGNG0755傍観者
NGNGこんな事もあるんですね。初めて知りました。
ちなみに"\"でもオーバーフローになるようです。
.netだと問題無いってことなので、これってVB6.0のバグですかね。
0756デフォルトの名無しさん
NGNG仕様とバグの区別もつかないのか？
整数型の最大値はちゃんと覚えているか？
0757デフォルトの名無しさん
NGNG単にmodで使用できる整数の範囲を超えてるだけだろ。
0758デフォルトの名無しさん
NGNGこれはバグに違いない２ちゃんねるで晒してやろうとかいって
実は自分が馬鹿晒しているように見えるのは気のせいだろうか。
で最後に泣きながらネタだよーとか言って逃げていきそうな予感。
0759デフォルトの名無しさん
NGNG>.netだと問題無いってことなので、これってVB6.0のバグですかね。
仕様だろ。あさはかにバグとか言わない。
Modも\も整数(Integer、Long)を対象とする。
整数でないものは整数(Integer、Long)に丸められる。
整数に丸められることはヘルプに書かれてある。
>145856921600 mod 13
これの前者はDoubleだ。IntegerやLongには丸められない。
Longで21億ちょいまでだから。
.netはDecimalまでサポートしているし、Long型だって8バイトだしね。
0761デフォルトの名無しさん
NGNGSheet単位の総ページ数を取得したいのですが、できません。
どなたか、よろしくお願いします。
0762デフォルトの名無しさん
NGNGどこまでやったか書かんような奴に教えるつもりは無い
0763デフォルトの名無しさん
NGNGGetPageNumber()を使いなされ。
0764761
NGNG1Sheet1ページでの出力は可能です。
複数ページの場合、2Sheet目を1ページ目の総ページ数 + 1から出力したいです。
で、Sheet単位の総ページ数を取得したいのです。
0765デフォルトの名無しさん
NGNG自作ソフトの印刷プレビュー機能を作成してたら、PaintPictureが画面の解像度を越える位置に
描画できないらしいことがわかってしまいまして。
たとえば縦に2000ピクセルのPicuteBoxを縦1280のマシンで作成して、1000から1500にかけて
PaintPictueすると1000から1280までしか絵が出ないのです。
コリャどうすりゃええんですかね。
0766デフォルトの名無しさん
NGNG必要なサイズぶんの大きさにpictureboxを広げて描画し、
それを別のpictureboxに重ねてスクロールバーでスクロールできるようにするとか。
たとえばの話ね。
0767傍観者
NGNG単にヘルプ確認するのめんどいから「ですかね」と言っただけだしー
俺的には>>738の手を使うだけだしー
それを鬼の首を取ったみたいに言われてもねー
恥ずかしいですね
0768デフォルトの名無しさん
NGNG0769デフォルトの名無しさん
NGNG不確定形の文章ながらも 「バグ」 と書いてあるからにはそう思い至ったわけだろう。
何らかの不具合をすぐ処理系のバグと思うのは阿呆のすることだと言ってるの。
第一、767 はどこからどう読んでも逃げの文章なのに、「逃げるつもりは無い」 なんて
恥ずかしいと思わないのか？
ハンドルまでが 「傍観者」 なんて、それ名無しよりもみっともないぞ。
発言に責任持たないぞと明言しているようなもんだからな。
叩かれるのがイヤなら、もっと考えて発言しろ。
もしくは、しゃしゃり出てくるな。
叩かれて当然の発言をしておいて、何が 「鬼の首を取ったみたいに」 だ。
鬼の首の鬼にすらなれていない事に気付け。
0770通りすがり
NGNG0771デフォルトの名無しさん
NGNG別に。
0772デフォルトの名無しさん
NGNG可哀想に。使いこなせなかったんだね。
0773デフォルトの名無しさん
NGNG★お気に入りに追加してしまったアドレス★
0774デフォルトの名無しさん
NGNGOutlook に依存せずにメールって送れないんですかね？
Winsockがどうとかってことらしいんですけど、
使いこなせないもので。
どなたかご教授お願いします。
0775デフォルトの名無しさん
NGNGSocketは使えるっしょ。
厳密に言えば外部DLLが無ければVBプログラムは起動すら出来んが。
0776デフォルトの名無しさん
NGNG0777傍観者
NGNG>>758みたいに妄想たっぷりのレスされても、って感じ。
バグですかねじゃなくて仕様ですかねと書かなきゃいけないのか。あほらし。
そもそも断定なんてしてないっつーの。
>>769さ、鬼の首を取ったみたいにって意味わかってないでしょ。実生活で恥かく前に調べときな。
こんな小さい事でわざわざ叩き入れられてもねえ。さらっと答えるのが大人でしょ。
ハンドルまで突っ込まれるとは思いもよらなかったよ。君、人間が小さいって言われた事無い？
0778618
NGNG皆さんのご協力のおかげで、かなりの力技ですが、ついにファイルを
取り出すことができました！本当にありがとうございました。
つきましては、汚いソースですが、一応他の方の参考になるかもしれないので
以下に記述します。
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Private Sub Command1_Click()
Dim b() As Byte
Dim buf As String
Dim db As DAO.Database
Dim rec As DAO.Recordset
buf = App.Path & "\tmp.mdb"
Set db = DAO.OpenDatabase(buf)
Set rec = db.OpenRecordset("テーブル")
If rec.EOF = False Then
If GetPSD(rec.Fields("画像"), b) = True Then
Open "c:\tmp.psd" For Binary Access Write As #1
Put #1, , b
Close #1
End If
End If
Call rec.Close
Set rec = Nothing
Call db.Close
Set db = Nothing
End Sub
0779618
NGNGPrivate Function GetPSD(ByVal OleField As DAO.Field, ByRef b() As Byte) As Boolean
Dim Arr() As Byte
Dim Buffer As String
Dim HeaderOffset As Integer
Dim ArrBmp() As Byte
Dim i As Long
GetPSD = False
ReDim Arr(OleField.FieldSize)
Arr() = OleField.GetChunk(0, OleField.FieldSize)
' この辺がかなり強引
Buffer = ""
For i = 0 To 15000
Buffer = Buffer & Chr(Arr(i))
Next i
HeaderOffset = InStr(Buffer, "8BPS")
If HeaderOffset > 0 Then
ReDim ArrBmp(UBound(Arr) - HeaderOffset + 1)
CopyMemory ArrBmp(0), Arr(HeaderOffset - 1), UBound(Arr) - HeaderOffset + 2
b = ArrBmp
GetPSD = True
End If
End Function
0780デフォルトの名無しさん
NGNG> 俺的には>>757みたいなレス期待してただけで
何でこんなに荒れてるかわからないか？
状況判断もできないのか？
そういうレス期待していたのなら単に 「どうしてでしょうか」 のように書いて
おけば良かった。
それを事もあろうにあんたは 「バグですかね」 などと言い放った。
しかも回答があっても礼も言わない、指摘されても悪びれもしないばかりか、
なお煽りとしか思えないレスをつけている。
さらに、VB を普通に覚えていった人なら誰でもわかるような内容だった事も
加味している。
これでは荒れるなという方に無理がある。
0781デフォルトの名無しさん
NGNGまあまあ、傍観者氏が相当のDQNなのはよくわかってるから抑えて抑えて。
以降、謝罪以外のレスをしても恥なだけなのは明らかなんだから、生温かく見守ってあげようよ。
0782デフォルトの名無しさん
NGNGFormにBMPはっつけて hDC取って
RGB(0,0,0)の部分をﾘｰｼﾞｮﾝから消し去るDLL(API)があったなぁ～
>>740が言ってた様なことが出来るﾔﾂ
自分で書いた絵の形がそのままFormの形になるのはﾋﾞｸ～ﾘ ﾋﾞｸ～ﾘ
0783デフォルトの名無しさん
NGNG取り込もうと、下のようなテストプログラムを作ってるんですけど、
送信日時がわかりません。送信日時の名前を教えてください。
お願いします。 m(_ _)m
Option Explicit
Sub ReadMail()
Dim OLOOK As Outlook.Application
Dim NameSpc As Object
Dim fmail
Set OLOOK = New Outlook.Application
With OLOOK
Set NameSpc = .Application.GetNamespace("MAPI")
Set fmail = NameSpc.GetDefaultFolder(olFolderInbox)
Debug.Print fmail.Items(1).CreationTime
Debug.Print fmail.Items(1).ReceivedTime
Debug.Print fmail.Items(1).To
Debug.Print fmail.Items(1).CC
Debug.Print fmail.Items(1).Subject
Debug.Print fmail.Items(1).Body
End With
Set NameSpc = Nothing
Set fmail = Nothing
End Sub
0784デフォルトの名無しさん
NGNG> >>769さ、鬼の首を取ったみたいにって意味わかってないでしょ。実生活で恥かく前に調べときな。
えーと、普段つけいるスキが無くてくやしい思いをしていた相手を、たまたまやりこめれてはしゃいでる
様子、だったと思うんだけど、そうすると>>769は別におかしくも何ともないけど、
お前の脳内定義はどーなってんの？
別に誰もお前にくやしい思いは持ってないだろよ。
> こんな小さい事でわざわざ叩き入れられてもねえ。さらっと答えるのが大人でしょ。
言葉尻を取ってるのお前の方だってば。
いろんなレスの重要な部分をことごとく無視してんじゃん。
そんなんでもしかして自分は大人だとか言ったりするのか、おめでてーな。
そんなに大人が好きならハンドルも「大人」がお似合いだねｗ
0785デフォルトの名無しさん
NGNG0786783
NGNG喧嘩やめれ。
教えてください。 お願いします。 m(_ _)m
0787デフォルトの名無しさん
NGNG0788デフォルトの名無しさん
NGNG.SentOn
0789783
NGNGできました♪
ありがとうございました m(_ _)m
また、わからないことがあったら、お願いします。
0790デフォルトの名無しさん
NGNGVBでやりたいのですが、例えば「c:\aaa.reg」を実行するにはどうやれば良いのでしょうか。
0792デフォルトの名無しさん
NGNGShell でも ShellExecute でもExでも。
0793デフォルトの名無しさん
NGNGGoogle ツールバーみたいな IE アドインを作りたいのですが、VB6またはVBNETで可能でしょうか? サンプルを探していたんですが、C++のものしかみつかりませんでした・・・
0794デフォルトの名無しさん
NGNG0795デフォルトの名無しさん
NGNG0796デフォルトの名無しさん
NGNGハンドルを取得するにはどうすれば良いのでしょうか？
ピクチャーボックスコントロールに一回転送してからじゃないと無理？
0797デフォルトの名無しさん
NGNGIPictureインターフェースを使ってみるとか・・・？
0798デフォルトの名無しさん
NGNG0799783
NGNG下のようになったんですが、わからないことだらけなんです。
それは、「送信者」、「送信者アドレス」、「受信者アドレス」、「ｃｃアドレス」の名前です。
あと、参考になるサイトか、本かあれば紹介してほしいのですが。
よろしくお願いします。 m(_ _)m
Option Explicit
Sub GetMail()
Dim OLOOK As Outlook.Application
Dim NameSpc As Object
Dim finbox
Dim mail
Set OLOOK = New Outlook.Application
With OLOOK
Set NameSpc = .Application.GetNamespace("MAPI")
Set finbox = NameSpc.GetDefaultFolder(olFolderInbox)
For Each mail In finbox.Items
Debug.Print mail.SentOn
Debug.Print mail.CreationTime
Debug.Print mail.ReceivedTime
Debug.Print mail.To
Debug.Print mail.CC
Debug.Print mail.Subject
Debug.Print mail.Body
Exit For
Next
.Quit
End With
Set NameSpc = Nothing
Set finbox = Nothing
Set mail = Nothing
End Sub
0800デフォルトの名無しさん
NGNGWin2kとWin9xとではアプローチが違うだろうね。
0801798
NGNG何か方法ありますか？
0802デフォルトの名無しさん
NGNG送信者アドレス、ｃｃアドレスは知らん。
他はオブジェクトブラウザでMailItemを調べたり、OutlookのVBAのヘルプでわかるだろ
0803783
NGNGなるほど！そうやるんですかあ。
ありがとうございました。 m(_ _)m
0804デフォルトの名無しさん
NGNG0805765
NGNG>766
にかかれているように、スクロールバーをつけてスクロールさせていくと、
でっかいPictureBoxの下のほうではPaintPictureが動いていないことが
わかったんですよ。
ところが、これを違うマシンで今日試すと、どうもちゃんと描ける場合もあるかも。
グラフィックボードの関係なんてことありますかねぇ?
0806デフォルトの名無しさん
NGNG俺作ったことあるよ。
結局、TCP/IPで自分で接続して、SMTPをしゃべればいいわけですからな。
VB TCP/IP
ぐらいで検索してTCP/IPを使えるようにして、
SMTPをしゃべればよい。
0807783
NGNGありがとうございます。
ちょっとやってみました。
確実にテキストファイルに落ちてきますね。
自分の参加してる組織のＭＬの投稿数が１万件近くあるんですよ。
それの整理にＭＤＢを利用しようとしてるんです。
必要なのは、投稿日と投稿者と件名、内容くらいかなあって
思ってるんですけど、ちょっと検討してみます。
0808h
NGNG●浮気素行調査
彼氏、彼女、妻、夫の浮気を調査致します！！
●盗聴器盗撮機発見
あなたの部屋に誰かが仕掛けているかも！！
●行方調査
行方不明になっている家族の消息を調査致します！！
●電話番号から住所割り出し
一般電話、携帯から住所を割り出し致します！！
●ストーカー対策
社会問題ともなっているストーカーを撃退致します！！
その他人生相談からどんなお悩みでも解決いたします！！
２４時間受付 ０９０－８５０５－３０８６
ＵＲＬ http://www.h5.dion.ne.jp/~grobal/
メール [email protected]
グローバル探偵事務局
0809デフォルトの名無しさん
NGNGVBからoo4oでオラクルに接続して
ストアドを起動したときの処理時間って取得できますか？
VBのタイマーを使うのではなく
SQLPLUSコマンドのset timi onで計った時間を
受け取ることは可能でしょうか？
0810あのう・・
NGNG0811デフォルトの名無しさん
NGNG機能的には何も違わなかったような・・・
0812デフォルトの名無しさん
NGNGこれとまったく同じブラシで描画する方法を教えてくれ
無論 [ドラッグ中にウィンドウの内容を表示する] はオフでの話だ
0813デフォルトの名無しさん
NGNGアカデミパックはライセンスが安く購入できるってだけ。
モノはいっしょです。
0814812
NGNGとりあえず背景を透過、前景を R2_NOTXORPEN にして
ブラシに 2x2 の白黒ビットマップを指定したらいい感じになった
R2_NOTXORPEN (vbNotXorPen と同じ？) の意味がよくわかっとらんが
見た目に問題ないので大丈夫なのだろう
0815 ◆IGEMrmvKLI
NGNGコンソールアプリケーションの復帰値を受け取ることって、可能なんでしょうか？
もし、不可能であれば、それに代替する関数など存在するのでしょうか？
ご教授お願いします。
0816 ◆x2BppO9N.g
NGNGPaintPictureで
幅500ある空間に幅100の画像を描きます。
で、残り幅400の空間が余りますよね。
その幅400の空間には、幅100の画像の一番右の1列を伸ばして描画したいです。
どういうコードになるのでしょうか。
画像処理苦手なんでチンプンカンプンだったり・・・。
お願いします。
0817デフォルトの名無しさん
NGNGその言葉の通りにコードを組めばできますよ。
0818 ◆x2BppO9N.g
NGNGそれが出来ないから困ってるんですが・・・。
PaintPictureの引数の指定がよくわからん。
0819デフォルトの名無しさん
NGNG「ヘルプ嫁、そして試せ、出来るまで。」
以上の答えが帰ってくることは無い事も予想できんか？
0820デフォルトの名無しさん
NGNG何故PaintPictureかはわかりませんが・・・
pointで一番右のドットを読み取って、その色で一番右までLineを
引けばいいのでは？
0821デフォルトの名無しさん
NGNGする方法教えて。テキストオンリーで作りたいの。
0822デフォルトの名無しさん
NGNGこっちのほうがよい回答が得られるとおもわれ
【老若】VB.net質問ｽﾚ【男女】
http://pc3.2ch.net/test/read.cgi/tech/1025848458/
0823ＶＢの逆コンパイラ
NGNG本当ですか？
0824デフォルトの名無しさん
NGNGGetExitCodeProcess はどうよ？
>>821
.NETにはPrinterオブジェクトはなくなったのかな～？ と検索したら・・・
インタープリンタってなんですか？
http://www.google.co.jp/search?q=cache:uI-WveNJf2QC:www.shoeisha.com/book/Detail.asp%3Fbid%3D1374+%22VB.NET%22+%E3%83%97%E3%83%AA%E3%83%B3%E3%82%BF&hl=ja&lr=lang_ja&ie=UTF-8&inlang=ja
0825デフォルトの名無しさん
NGNG0826ＶＢの逆コンパイラ
NGNG意味がわかりません
0827デフォルトの名無しさん
NGNG少なくとも VB5 以降は無いよ
0828815 ◆IGEMrmvKLI
NGNGなんか出来そうなので、試してみまっす。
0829デフォルトの名無しさん
NGNG0830デフォルトの名無しさん
NGNG俺も俺も。正確にはプロセスの情報を表示したらこんなんでて落ちる。
"0x00425a78" の命令が "0x0016c30a" のメモリを参照しました。
メモリが "read" になることはできませんでした。
ちなみに、最初に落ちたときは、プロセスの情報を更新していて、
そんでレジストリに起動して始めに表示する情報がプロセスになってて
起動した瞬間落ちてた。他ユーザからレジストリ情報もらって
始めに表示する情報をウィンドウにしたから、プロセスを見るまでは動く。
なお、Process Viewerも動かない。プロセスが一個も表示されない。
タスクマネージャ、tlistは動く。
なんでだろう？
0831デフォルトの名無しさん
NGNG0832デフォルトの名無しさん
NGNGインストール時のODBCの設定の仕方がわかりません。
わかりやすくまとめてあるサイトとかあるでしょうか？
0833デフォルトの名無しさん
NGNG0834デフォルトの名無しさん
NGNG福笑い。（ｺﾉｼﾞｷﾆｶﾖ
http://heppokokun.cool.ne.jp/hukuwarai[1].lzh
くそつまんねぇぞｗ
0835デフォルトの名無しさん
NGNG0836デフォルトの名無しさん
NGNG0837デフォルトの名無しさん
NGNG結局β版も完成しなかったのかなあ？
0838デフォルトの名無しさん
NGNG今日、お客さんのところOffice2001 For Macってのを見た。
OfficeのVBAとかでは使われんのかな？
0839デフォルトの名無しさん
NGNG投資効果が到底期待できないと思われ。
(現在は言うまでもなく、たとえ6～7年前の情勢でも)
0840デフォルトの名無しさん
NGNGリストに書き出す実験を行っています。
Open strFilePath For Input As #fNo Len = 32000
Do Until EOF(fNo)
Line Input #fNo, s
'リストへの書き出し処理、その他
Loop
Close #1
これは、なんだかうまく逝っている感じですが、
テキストファイルの指定行～指定行の間だけ読む方法が分かりません。
一緒にカウンター変数廻して取得するので正解ですか？
0841デフォルトの名無しさん
NGNG間違ってません。
0842840
NGNG間違っていないが、他にやりようがある、って感じの言い方ですが、
その辺詳しく教えて下さい。
0843デフォルトの名無しさん
NGNGトランザクションをきる所（BeginTrans）で
「容量をこえていたため
新規トランザクションを
開始できませんでした。」
のエラーで落ちてしまいました。
毎回起こるわけではなく、
同じタイミングで同じ事をしても
エラーになる場合とならない場合が
あります。
何か分かる方居ましたら教えて下さい。
ちなみに「データ領域」や
「トランザクション ログ領域」には
十分な空きがありました。
0844デフォルトの名無しさん
NGNGヘルプにコミットしてくださいだのなんだかいてた記憶が
0845デフォルトの名無しさん
NGNG全部まとめて読んでvbCrLfをデリミタにしてSplitとか。
0846829
NGNGあ～、アドレスがちょっと違うけどまったく同じだよ。
ProcessViewerも、、ホントだ。表示されない。
前やったときは表示されたはず。
なんだろ。なんかのバグかな？
0847829
NGNGためしにデバッグモード。
アセンブラなんかさっぱりわからんが、リスタート＞ステップアウト
ってやるとなんとか起動するぞ
0848デフォルトの名無しさん
NGNGPrivateだと問題なく出来るんだけど。
Excel VBAッス。
0849830
NGNGデバッグモードって、エラーってでてからキャンセルで行く奴？
俺は「プログラムをデバッグするためにはキャンセルをクリックしてください」って
でてからキャンセルを押したら同じようなエラーで落ちる。
VC上でやったら動く。でもプロセスのリストは表示されない。表示されなくない？
0850829
NGNGプロセス・・・ホントだ、これも表示されない。
あとスレッドも。
なんだこれは。EnumProcessesとEnumThreadWndPrcあたりの関数が使用不可になってるのか？
もう一つ、SONY OpenMG JukeBoxも起動できない。
これもなんか関係あるのか？
いずれも以前は問題なく使用できたんだが。
0851デフォルトの名無しさん
NGNGこれはシステムの言語と同じ言語のリソースが読み込まれるのだと思うのですが、
自分で意図的に読み込む言語を変更したいのです。
どのようにすればよいのでしょうか？
0852デフォルトの名無しさん
NGNGタイマーが間隔を刻んでいくごとにデータを再度読み込んでいるんでしょうか?
タイマー間隔が50msにもかかわらず,かなり重くて実際50msで動いてるように見えません.
現在,ある物体の変位データを読み込んでその変位をピクチャーを使ってある時間ごとに
座標で表すことで,動画的に見させようとしているものです.
さらに,これに加えて,もう2つ違う物体の変位を表し,
そのときの物体の動きを波形としてグラフ化もしたいと思っています.
これら全てをしてしまうとやはり重くなってうまく動画的に見ることができないんでしょうか？
もし,間違いもしくは早く走らせる方法等の指摘があれば教えてください！お願いします.
Private Sub Timer1_Timer()
Dim Date(1, 10000) As Double
Dim s1
i = 0
Open "c:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\file1.txt" For Input As #1
Do Until EOF(1) （ファイルには,50ms刻みの変位データが入っています）
i = i + 1
Input #1, date(0, i)
Loop
Close #1
Static t As Integer
t = t + 1
Picture2.Move Mystr(0, t) - 9, -8.5
s1 = Picture2.Picture
End Sub
0853デフォルトの名無しさん
NGNG50ms毎に再読込*10000行?してるそのデータはなんだぁよ
0854デフォルトの名無しさん
NGNGVBのTimer(=WM_TIMER)は
"最低[Interval]ミリ秒経過後にイベントを起こす"
動作をします、
"きっちり[Interval]ミリ秒ごとにイベントを起こす"
のは別の手段を使いましょう。
後者の処理を行うためには当然イベント内で[Interval]ミリ秒以内に処理を済ませる必要があるわけだが
0855デフォルトの名無しさん
NGNGSQLServer7との組み合わせで
トランザクションをきる所（BeginTrans）で
「容量をこえていたため
新規トランザクションを
開始できませんでした。」
のエラーで落ちてしまいました。
毎回起こるわけではなく、
同じタイミングで同じ事をしても
エラーになる場合とならない場合が
あります。
何か分かる方居ましたら教えて下さい。
ちなみに「データ領域」や
「トランザクション ログ領域」には
十分な空きがありました。
0856デフォルトの名無しさん
NGNGhttp://www.deai-navi.net/linkrank/linkrank.cgi?mode=in&id=fdeai
0857デフォルトの名無しさん
NGNGあきらかに Timer1_Timer 内の処理時間が Timerのｲﾍﾞﾝﾄ発生間隔を超えていると思われ
あきらかに 50ms毎にﾌｧｲﾙを開くのもどうかと思われ
あきらかに Picture2.Move より BitBld のほうが良いと思われ
あきらかに s1 = Picture2.Picture が何をしようとしているのか 分からないと思われ
0858デフォルトの名無しさん
NGNGファイルの読み込みや画像の描画で50ms以上食ってるだけじゃねえのかと
別スレで散々言われてるだろうが。
http://pc2.2ch.net/test/read.cgi/tech/1043159083/608
からまったく進歩していないように感じるのは俺だけか？
つーか誤爆しちまったじゃねーかよﾊｹﾞｗ
0859デフォルトの名無しさん
NGNGDim dat(1 To 10000) As IPictureDisp
0860デフォルトの名無しさん
NGNGAPIで Timer の様にｲﾍﾞﾝﾄ(ｺｰﾙﾊﾞｯｸ)を発生させるﾔﾂがあったけど
VB と API どっちが正確なんだろう．．．
VB Timer の中で動いているのが API なのか？
もしそうなら API 使っても結果は同じになってしまうが．．．
0861デフォルトの名無しさん
NGNGTimerの中で動いているのは当然APIだが･･･。
問題はTimerで使われているAPIの精度。
APIだから正確ってのはおかしいよ。
0862デフォルトの名無しさん
NGNG速い、というか正確なというか、そうしたプログラムを書くには、それなりの知識と技術
と、アイデアが必要なのだなぁ。VBというのはその辺を省略してぱっとプログラムが
書けるようになっているように思えるかもしれんが、ちょっと高度なことをしようと思うと
他の言語と大して差はないのだ。ていうか、それ以上に面倒なこともしばしば。
Timerイベントについては、以下のページに詳しい調査が載っているので参照すれ。
http://homepage3.nifty.com/salv/v_sickhack/02/v_s02-01.htm
例えば、テキストよりはバイナリーの方がデータを速く読める。もちろんメモリ上なら
もっと速いが。グラフィックスの転送操作はBitBiltが断然速い。Timerイベントより、
timeGetTimeの方が正確だ。
あとは、ググるべし。
0863デフォルトの名無しさん
NGNGとある事象に対して決められた時間以内に応答する
という保障はない。
0864デフォルトの名無しさん
NGNG0865デフォルトの名無しさん
NGNG0866デフォルトの名無しさん
NGNG俺のは17MB/secでた。たぶん遅い方だと思うが。
つーことは転送速度だけを考えると17KB/msecぐらいはいくんだね。
0867デフォルトの名無しさん
NGNG変異データをいったん保存してからあとでムービーファイルを作ってそして再生したら？
変異データ取得後すぐに動画表示する必要ないならばだが。
というか保存してたのか・・・
0868デフォルトの名無しさん
NGNG微妙に誤爆？
0870デフォルトの名無しさん
NGNG事前にメモリに読んでから再生はじめりゃいいしな
読み込んでる間は動画止める！NowLoading・・とか書く！
0871デフォルトの名無しさん
NGNG?val(&HEFDBD075)
これを負数じゃなく正数で出したいんですが
だれかやり方を教えていただけませんか？
0872851
NGNG0873デフォルトの名無しさん
NGNG&H100000000を足す
0874デフォルトの名無しさん
NGNGって可能でしょうか。
可能でしたらどんな方法でやれば良いか教えてください。お願いします。
0875デフォルトの名無しさん
NGNGGoogle「VB リソース ストリングテーブル」
0876デフォルトの名無しさん
NGNGURL指定でその・・・ぐふっ
0877デフォルトの名無しさん
NGNGPathとドライブレターを渡して、それをマウント、みたいな。
あれば、手法をご教授願いたいです。
よろしくお願いします。
0878デフォルトの名無しさん
NGNG素直にNET USEじゃダメかい？
Windowsコマンドリファレンス参照。
0879デフォルトの名無しさん
NGNGWNetAddConnection2()
0880デフォルトの名無しさん
NGNGローカルPCからサーバ機のハードディスクの
「残り容量/全容量」みたいなのを出したいのですが、
どのAPIを調べたら良いでしょうか。
0881デフォルトの名無しさん
NGNG0882名無しさんだよもん ◆ZAYX.QGihc
NGNGこんなの出てきた。。。なつかしぃ。。。
ヒヒヒヒヒ【ひひひひひ】［感］
西鉄バスジャック事件を起こしたネオむぎ茶の最後のメッセージ。
この書き込みがされた約１時間後、バスジャック事件がおきた。
ネオむぎ茶が立てたスレは現在は見られないが、次のようなものだった。
-----------------------------------------------------------------
>佐賀県佐賀市１７歳・・・。
>1 名前： ネオむぎ茶 投稿日： 2000/05/03(水) 12:18
>
>ヒヒヒヒヒ
-----------------------------------------------------------------
メール欄には本人のプロバアドレスが書かれており、事実上の犯行予告だったと言える。
スレが立った直後には放置されていたが、
事件がニュースで取り上げられると関連が取りざたされ、
犯人が佐賀市の17歳の少年だと報じられると蜂の巣のような大騒ぎとなった。
蛇足だが、この日の２ちゃんねるは本当に重かった。
参照：ネオむぎ茶、西鉄バスジャック事件
0883デフォルトの名無しさん
NGNGお前はソースコードにそんな訳のわからんことを記述していたのか？
0884デフォルトの名無しさん
NGNG何気に面白い
0885880
NGNG>>882
ｺﾋﾟﾍﾟしたいだけだろ。
ゴッツ迷惑！
0886デフォルトの名無しさん
NGNGサーバー機に容量返すサーバーアプリを常駐させる。
0887880
NGNGローカルPCからサーバ機のハードディスクの
「残り容量/全容量」みたいなのを出したいのですが、
どのAPIを調べたら良いでしょうか。
0888デフォルトの名無しさん
NGNG書き込む前にSG(セキュリティー・ガード)に登録しないと危険ですよ。
SGに登録せずに書き込んだ場合、
あなたのパソコン内の情報が他人に見られる恐れがあります。
初期の頃から２ちゃんねるにいる方達は
かなりのスキルとこのBBSのコマンドを知っています
ですから簡単にあなたのIPアドレス等抜かれ、住所まで公開された人も数多 くおり
社会的に抹殺されてしまう。それが２ちゃんねるの隠れた素顔でもあります
SGしておけばまず抜かれるコマンド自体が無効になってしまうので
どんなにスキルがある人でもIPアドレスを抜くことが不可能になります
SGに登録する方法は、名前欄に「 fusianasan 」と入れる。
これでSGの登録は完了します。
一度登録すれば、電話番号を変えない限り継続されます。
fusianasanは、正式にはフュージャネイザン、
又はフュジャネイザンと読みます。
元々はアメリカの学生達の間で、チャットの時に
セキュリティを強化する為に開発されたシステムです。
fusianasanを掲示板に組み込むのは結構面倒なのですが、
２ちゃんにカキコしてたらウィルスに感染したとか、
個人情報が漏れた等の抗議がうざったくなったひろゆきが、
仕方なく導入しました。
悪意のある人間にクラックされる前にSGを施す事をお勧めします。
0889デフォルトの名無しさん
NGNG～ ./ ～ ～
" /
～ ┃ ～
～ ┃" ／￣￣￣￣￣￣￣￣￣￣ ～
∧∧ ＜ 思った以上の大物が！
（ ） .＼
￣￣￣￣（＿＿）￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|￣ ﾐｶﾝ ￣| U
0890880
NGNGローカルPCからサーバ機のハードディスクの
「残り容量/全容量」みたいなのを出したいのですが、
どのAPIを調べたら良いでしょうか。
0891851
NGNG調べてみましたが・・やはりわかりません。
ストリングテーブルに
1xxxx =日本語
2xxxx =英語
っていう風にしてたのですが、そんなことをしなくても
日本語も英語も同一のIDでもシステム言語によって読み込まれるリソースが
異なるようなので、
それを自分で意図的に変えたい、というわけなのですが・
0892 /
NGNG～ ./ ～ ～
" /
～ ┃ ～
～ ┃" ／￣￣￣￣￣￣￣￣￣￣ ～
∧∧ ＜ 思った以上の大物が！
（ ） .＼
￣￣￣￣（＿＿）￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|￣ ﾐｶﾝ ￣| U
f
0893デフォルトの名無しさん
NGNGご存じの方がいらっしゃいましたら教えて下さい。
ＨＴＭＬファイル内でＡＳＰファイルを読み込んで、
ＡＳＰファイル内でResponse.writeで文字を表示させたり、
ファイルの読み書きやループ処理などは出来るのですか？
ＨＴＭＬからＣＧＩの場合は<!-- exec cmd=xxx.cgi -->って感じに出来るようですが・・・。
0894デフォルトの名無しさん
NGNG＞ＨＴＭＬからＣＧＩの場合は<!-- exec cmd=xxx.cgi -->って感じに出来るようですが・・・。
これ、SSI
0895デフォルトの名無しさん
NGNGＣＧＩではなくＳＳＩでしたね。
けど、同じような感じにＡＳＰでは出来ないのでしょうか？
0896デフォルトの名無しさん
NGNG少なくともブラウザでASPが解釈出来るなんて事は聞いたことがない。
サーバサイドなら両者を分離せずにASPとして書けばいいわけで。
0897デフォルトの名無しさん
NGNG無理そうですか・・・。
私のイメージではＡＳＰファイル内でサイトのカウンタの処理がしたくて、
今はＭＥＴＡタグでindex.htmlからindex.aspに自動で飛ばしてやっているのですけど、
i-modeなどの携帯端末ではＭＥＴＡタグとか使えないので、
それで１ページ通らなくてはならないのが邪魔な感じでしたので、
一発（１ページ）で何とかならないかなぁと思っていたのですよ・・・。
0898デフォルトの名無しさん
NGNGindex.aspをスタートページにしちゃだめなの？
0899デフォルトの名無しさん
NGNGできればしたくないんですよ。
「http://xxxxxxxxx.com/i/」って感じにＵＲＬをしたいのです。
最初のページがindex.aspの場合は、
「http://xxxxxxxxx.com/i/index.asp」って感じに
ＵＲＬが長くなっちゃうのが分かりづらいし嫌なのですよ・・・。
相手にＵＲＬを教える時に長いと迷惑かけちゃうし、
ＡＳＰって何っていう人ですと、なかなか覚えづらい感じもありますから。
なので、何か対策があればいいかなぁと思っていました。
無理そうでしたらカウンタを排除する形にすれば何とかなりますからね。
けど、どれぐらいアクセスされたかは把握できないのが難点ですが・・・。
何度もアドバイスをいただきありがとうございました。
0900デフォルトの名無しさん
NGNGIISの設定でどうにでもできると思うけど
0901デフォルトの名無しさん
NGNGASPさわらせてもらえるならIISの設定もいじれるっしょ。
0902デフォルトの名無しさん
NGNGちなみに私はあるレンタルサーバー会社さんからエリアを提供して頂いて
ホームページの運営を行っているのですが、その場合にも設定は出来るのですか？
自分個人持ちのＰＣでしたらＩＩＳの設定が出来ますが、
他の方と共有して１ユニットを使っている場合でも可能なのでしょうか？
もしご存じでしたら教えていただきたいのですが・・・。
0903デフォルトの名無しさん
NGNGんなもんその会社に聞けよ
0904デフォルトの名無しさん
NGNG了解しました。
さっそくメールで問い合わせてみます。
いろいろとご迷惑をかけてごめんなさい。
0905デフォルトの名無しさん
NGNG★こんなサイト見つけました★
0906デフォルトの名無しさん
NGNGVBでインターフェース部分のみ構築してメイン処理はVCで作ったDLLで処理させる、という設計にしたのですが
その受け渡しの部分で何か問題があるようでうまく行きません
エラーとしては”スタック領域が不足してます”と出るんですが
そのエラーの出る部分がDLL関数のcall文のところでして
やろうとしてる処理はまずVB側で画像をピクチャーボックスに読み込む
↓
その画像の縦横それぞれのサイズを記憶する
↓
DLL関数へ引数としてそのピクチャーボックスのデバイスコンテキストと記憶した縦横サイズを渡す
↓
DLLは受け取った画像の全画素をRGB別に配列に保存し
その各配列に対して画像処理をする
という事なんですが、どーもDLL側で確保する配列の大きさが問題なような気がするのですが
（確保する配列サイズが小さいとエラーにならなかったので）
たかだか1024（縦）＊1024（横）＊3（RGB）の配列作るだけでエラーになったりするものなんですか？
0907デフォルトの名無しさん
NGNG斜め読みだが、VCのDLL内部でエラーが出てるならスレ違いでは？
VCスレで質問しなおすことをオススメする。
0908デフォルトの名無しさん
NGNG似たようなソフトはこの間つくりました。
そんなエラーはでませんでしたが、、、
とりあえずnewなどを使って動的に確保してみては？
0909デフォルトの名無しさん
NGNG＞似たようなソフトはこの間つくりました。
だからどうかしたか？
0910デフォルトの名無しさん
NGNGint a[1024*1024*3];
ってやったらスタックオーバーフローになったよ
0911デフォルトの名無しさん
NGNGint *a;
a=(int *)malloc(1024*1024*3*sizeof(int));
だと、問題なかったよ
0912デフォルトの名無しさん
NGNGその配列をスタックに入れればあふれるような気がしないでもないけどなんともいえない変な気分
0913デフォルトの名無しさん
NGNGああ。ヒープだからな。
0914906
NGNG確保した配列は
int a[1024][1024][3];
というコーディングの仕方です
>>910>>911
確保してる領域の大きさは同じなのに後者はＯＫなんですね、不思議
0915906
NGNGそうでしたね、VCスレにも聞いてみます
0916デフォルトの名無しさん
NGNGおぃおぃ
本気でいってるのか？
Cを勉強しなおしてください。
0917906
NGNG私の中でその二つの違いの認識は
確保の仕方が静的か動的かってことだけです、無知ですいません
0919デフォルトの名無しさん
NGNG一応、ヘルプでMailItem オブジェクトのプロパティをひととおり見たのですが・・・、
その中にはない模様です。。。。
（たとえば「X-mag2ID:012356789」があったら、その１０桁の番号を取得する、
といったことをやりたいと思っています）
0920デフォルトの名無しさん
NGNGおもわずこっちまでﾊｧﾊｧしてしまいます。
0921デフォルトの名無しさん
NGNGLAN内で、コンピュータ名（or IPアドレス）のわかっている端末にログオン
しているユーザー名をVBで取得したいのですが。
DOS窓から「nbtstat -a」でも一応いけるようですが、これだとどうしても
反応が遅くなるし、あまりスマートでないので・・・。
いい方法ないでしょうか？？
0922デフォルトの名無しさん
NGNGﾏｼﾞﾚｽだがWindowsScriptingHost少し勉強してみるとか。
0923デフォルトの名無しさん
NGNG小生、Accessなどという高級品をもっておらず、しかも
VB6.0はスタンダードエディション。Data Environmentがない。
ところがデータベースの勉強をしなくてはなくなり、
Accessのようなソフトが欲しくなりました。
なにかないすか？
0924デフォルトの名無しさん
NGNGパワービルダーをおすすめします
0925デフォルトの名無しさん
NGNGおもわずこっちまでﾊｧﾊｧしてしまいます。
0926911
NGNG今しがたWindowsScriptingHostというものを初めて聞きました。
さっそく軽く見てみましたが、VBSとどう違うのでしょうか？
WindowsScriptingHostを使うと nbtstat -a みたいなことも
簡単に出来るのでしょうか？
聞いてばっかで何ですが。
0927デフォルトの名無しさん
NGNG0928デフォルトの名無しさん
NGNG拡張子vbsのもWSHの一つ。
WScript.NetworkとかUserNameとか調べてみ。
0929デフォルトの名無しさん
NGNGWindowsで動くのか？(cygwinのような技術を使用せずに)
0930デフォルトの名無しさん
NGNGcygwinに何か問題があるんですか？
0931デフォルトの名無しさん
NGNGその一部だけクリックされたことを見分けて処理したり（HTMLのリンクみたいに）
することはできますか？
0932デフォルトの名無しさん
NGNG知っての通りcygwinはただのUNIXライクなシェルとコマンド群。中身はWin32だ。
0933デフォルトの名無しさん
NGNGむりでしょ。
リッチテキスト使えばいいのかな？
場所は座標から求めるしかないと思うが詳しくは>>933
0934933
NGNG0935デフォルトの名無しさん
NGNG一部というのは文字単位なのかドット単位なのか。
どっちみち一部クリックを判別するなら、PictureBoxで
両方可能。ハイパーリンクもShellExecuteでクソ簡単。
0936デフォルトの名無しさん
NGNG0937デフォルトの名無しさん
NGNG再帰って言うんですよ。この場合そのうちスタックが溢れて落ちます。
0938デフォルトの名無しさん
NGNG間違いを認めろよ
0939デフォルトの名無しさん
NGNG0940デフォルトの名無しさん
NGNGDirectXを使って？使わないで？
解像度はそのまま？変更して？
0941デフォルトの名無しさん
NGNGDirectXを使用して、解像度をそのままで、フルスクリーンにしたいです。
0942デフォルトの名無しさん
NGNG0943デフォルトの名無しさん
NGNG最大化じゃなくて、フルスクリーンにしたいのです。
0944デフォルトの名無しさん
NGNGGUIのないDBを扱うのは初心者には無理です。
素直にACCESSを買って、MSDEを勉強しましょう。
0945906
NGNG丁寧にありがとう
0946デフォルトの名無しさん
NGNGSetWindowPos でTopMostでもすりゃ、望みの物になる気もするんだがなあ
0947デフォルトの名無しさん
NGNGhttp://pc2.2ch.net/test/read.cgi/tech/1044028945/
0948931
NGNGお答えありがとうございます。
一部というのは文字単位のことでした。
お二方のくださったヒントでさっそく検索してみたいと思います。
助かります。
0949919
NGNGやはり、メールのヘッダの任意の行をとらえることは、できないってことでしょうか？
それともそもそも、OutlookでVBAやるやつなんて、いないってこと？
0950デフォルトの名無しさん
NGNG0951デフォルトの名無しさん
NGNGのような存在しない日付文字列を
CDateするとどおなってしまうのでしょうか？
0952デフォルトの名無しさん
NGNG何故ためさないんですか？
0954デフォルトの名無しさん
NGNGﾜﾗﾀ
0955デフォルトの名無しさん
NGNG0956951 ◆ExGQrDul2E
NGNG0958デフォルトの名無しさん
NGNG・どれでもインストール出来る。
・電気店逝け。近くにないならヨドバシドットコムとか。
0959デフォルトの名無しさん
NGNGもう春休みなんで時間はそれなりにあります。
0960デフォルトの名無しさん
NGNGVisual Basic .NET Standard もWINDOWS98にインストールできますか？
0961デフォルトの名無しさん
NGNGデータベースに繋ぐ練習しる。
>>960
正直、ウザい。
なんでMicrosoftのホームページに逝かない？
0962959
NGNG0963デフォルトの名無しさん
NGNG0964デフォルトの名無しさん
NGNGプログラム設計からやらなきゃいけないんだけど、モジュール分割とか、見当がつかない。
みなさん、ＶＢの設計はどうしてますか？
いきなり、フォームにＧＵＩを配置して、コーディングですか？
0965デフォルトの名無しさん
NGNGマジレスすると、とりあえず作れ。
作った後に、沢山のフォームで使われている関数があったら
モジュールに書き直してフォーム上では呼び出すようにしる。
とりあえずやれ
0966デフォルトの名無しさん
NGNG俺はロジックとビューは別にする。
0967デフォルトの名無しさん
NGNG漏れも層は分けて作る。
慣れてきたら、何をどこに書くのかはすぐわかる。
0968デフォルトの名無しさん
NGNG早く作るのがVBの唯一の利点だから。
0969964
NGNGレスありがとう。
取り組む勇気が出ました。やってみるというのと、慣れるということですね。
まずは、作りながら設計というのが近道みたいですね。
0970デフォルトの名無しさん
NGNG楽に作れるからこそ設計にこだわる時間もある。
まぁ、使い捨てプログラムしか書かない使い捨てプログラマには理解出来んだろうけれど。
0971デフォルトの名無しさん
NGNG人の話聞け。と。
0972デフォルトの名無しさん
NGNG超正論なんだが、964はVBを理解して無いレベル。
効果的なプログラム設計自体が現状では無理。
となると、VBに慣れるしかない。
慣れてくればおのずと970の言うとおりの手法に代わってくるであろう。
0973デフォルトの名無しさん
NGNG0974デフォルトの名無しさん
NGNG0975デフォルトの名無しさん
NGNG今までコンソールでCOBOLとLISPやってました！とかならともかく、多少なりともWindowsで
プログラム組んだことあるならイベントドリブンくらいわかるっしょ。言語仕様もCでも知ってれば
後は適当に文法を読み替えれば良し。
0976デフォルトの名無しさん
NGNG0977デフォルトの名無しさん
NGNG素直に負けを認めろよｗ
0978デフォルトの名無しさん
NGNGCygwinを使うくらいなら素直にLinuxを使った方がいい。
0979964
NGNGＶＢを理解していません。ＶＢで、効果的な設計ができるようになるには、
ある程度の下積みが必要と理解しました。
最初はコードが汚くても良いから、やって見る事。
ただ汚いままでは、いけなくて、効果的な設計ができるよう努めることが
大切なのですね。
0980デフォルトの名無しさん
NGNGﾊｧ?
俺より優れたSEなんていないが
0981デフォルトの名無しさん
NGNGﾜﾗﾀ
0982デフォルトの名無しさん
NGNG（ ´_ゝ`）ﾌｰﾝ
0983デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ
0984デフォルトの名無しさん
NGNG(;*´д.`*;)ﾊﾌｰﾝ
0985デフォルトの名無しさん
NGNGその通り。少しずつでもガンガレ。
0986デフォルトの名無しさん
NGNG0987デフォルトの名無しさん
NGNG馬鹿が必死です。
0988デフォルトの名無しさん
NGNG残念ながらはずれだ。せっかく勝てると思ってたのにな。
0989デフォルトの名無しさん
NGNGおもわずこっちまでﾊｧﾊｧしてしまいます。
0990デフォルトの名無しさん
NGNGただの顔!
0991デフォルトの名無しさん
NGNGホントに困っています。
0992デフォルトの名無しさん
NGNG0994951 ◆ExGQrDul2E
NGNGCDateの答えをぷりーず
0995デフォルトの名無しさん
NGNGもう暫くしたらVC++厨に進化する予定なのであ～る。
VBでも出来る事は沢山有るが、C++も楽しいぞ～～～。
いや、マジで。
0996デフォルトの名無しさん
NGNG0997デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
0998デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
0999デフォルトの名無しさん
NGNG(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ(*´д`*)ｱﾊｧ
1000デフォルトの名無しさん
NGNG1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。