(*´д`*)ｱﾊｧ… VB初心者質問スレ Part22
■ このスレッドは過去ログ倉庫に格納されています
0001HTML化チェック済み
NGNGPart12 http://pc3.2ch.net/tech/kako/1026/10266/1026642565.html
Part13 http://pc3.2ch.net/tech/kako/1029/10292/1029241786.html
Part14 http://pc3.2ch.net/tech/kako/1030/10309/1030947162.html
Part15 http://pc3.2ch.net/tech/kako/1032/10327/1032706491.html
Part16 http://pc3.2ch.net/tech/kako/1034/10343/1034302532.html
Part17 http://pc3.2ch.net/tech/kako/1036/10361/1036154952.html
Part18 http://pc3.2ch.net/tech/kako/1038/10381/1038103769.html
Part19 http://pc3.2ch.net/tech/kako/1039/10398/1039859691.html
Part20 http://pc2.2ch.net/tech/kako/1041/10418/1041879465.html
Part21 http://pc2.2ch.net/test/read.cgi/tech/1044028945/
VB.net関連スレ
【老若】VB.net質問ｽﾚ【男女】 (Part2)
http://pc2.2ch.net/test/read.cgi/tech/1043629429/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでOK。
四．インストーラーなどの質問もOK。
五．下ネタもたまにならOK。
0693デフォルトの名無しさん
NGNGわけわからんインターフェースにする香具師いるからね。それが、考えた末の努力の
結果ならまだしも、ただ適当にやってる香具師多すぎ。＜それ漏れだ（；´Д｀）
0694ASP初級者
NGNG利用者のアドレス情報を収集したいのですが、
Request.ServerVariables("REMOTE_ADDR")や
Request.ServerVariables("REMOTE_HOST")
でやってもxxx.xxx.xxx.xxxの形式で収集されるのですが、
プロバイダ情報のアドレスを収集する場合のはどうすればいいのですか？
例えば東京でＯＣＮの人からの場合はxxxxxx.tokyo.ocn.ne.jpっていう感じの情報が欲しいのです。
サイトの荒らし対策をしていまして、プロバイダ単位の規制をしたいのです・・・。
どなたかご存じの方がいらっしゃいましたら教えて下さい。
よろしくお願いします。
0695デフォルトの名無しさん
NGNGと、言うか色カスタマイズしてる内は厨房だと最近思うようになった。
0696デフォルトの名無しさん
NGNGプログラム的なインターフェースとユーザインターフェースをごっちゃに語るのいい加減にやめなさいな。
0697デフォルトの名無しさん
NGNGVBに限らず当たり前だろ
0698デフォルトの名無しさん
NGNGVBユーザって絶対的な知識の欠如が見られるよな・・・。
ホスト名とかドメイン名も知らんのにWebアプリなんぞ書けるんかいな・・・。
0699デフォルトの名無しさん
NGNGASPｽﾚ逝け。
0700デフォルトの名無しさん
NGNGVBだと簡単にできるってのだけ客は認識しているから。
もう、そんなときは全て客任せ。
そういえば、Win2Kにバージョンアップしたときに、いろんな灰色が入り乱れてたのを見たときには、
思わず、笑ってしまった。
0701デフォルトの名無しさん
NGNG＞VBユーザって絶対的な知識の欠如が見られるよな・・・。
で、あなたは何でこのスレに？ ( ´,_ゝ`)ﾌﾟｯ
0702デフォルトの名無しさん
NGNG誤操作させやすいGUIってのだけは勘弁してください。
そういえば、ある人が作ると、
どんなソフトでも、必ずCPUの占有率が１００％になり続けるって人がいたよ。
0703デフォルトの名無しさん
NGNGVBの問題じゃない。ドメイン名とIPの知識を持てこのﾁﾝｶｽ
0704ASP初級者
NGNGASPスレが見あたらなかったので、このスレに書きました。
VBScriptもOKだったので。
>>703
いろいろな参考書やサイトを回ってもう一度勉強してみます。
0705デフォルトの名無しさん
NGNG頑張れ。
0706デフォルトの名無しさん
NGNG探し方が足りん。ほれ。
==ASP== Part 2
http://pc2.2ch.net/test/read.cgi/php/1028024916/l50
0707デフォルトの名無しさん
NGNGしかし、同じ質問投げたら結局バカにされると思われ。
0708デフォルトの名無しさん
NGNGc:\aaaというフォルダが無い状態で、
c:\aaa\bbbを一気にこしらえる技は無いでしょうか。
PATH分解して
aaa作成→bbb作成とするしかないのですか？
0709デフォルトの名無しさん
NGNGある。おまえが関数つくればいい。
0711デフォルトの名無しさん
NGNG>60
過去を振り返るのも大事かと…。
0712デフォルトの名無しさん
NGNGVB厨が無い状態で、
708を一気にこらしめる技は無いでしょうか。
708を分解して
あぼーーんするしかないのですか？
0714VB初心者スレからの訪問者
NGNGDim 713 as 2ch.tyu-bo-
set 708 = new 2ch.tyu-bo-
708.質問です = "c:\aaa\bbbを一気にこしらえる技は無いでしょうか。"
708.煽り(709, "ある。おまえが関数つくればいい。")
708.煽り(710, "API 使えないおﾊﾞｶさん")
708.煽り(711, "過去を振り返るのも大事かと…。")
708.煽り(712, "708を一気にこらしめる技は無いでしょうか。")
set 713 = 708
713.れす(709, "ありがとう。")
713.れす(710, "ありがとう。")
713.れす(711, "本当にありがとう。")
713.れす(712, "ﾌﾟｯ！")
やめた。。。つまらん
0715655
NGNGそうだったのかぁ。
数値型のメモリサイズは固定で、わざわざLen()を使う必要がないから、
使われないだけだったね。
0716デフォルトの名無しさん
NGNGおまえ、何にも分かってないな（藁
0717デフォルトの名無しさん
NGNGレアケースだけど、構造体のサイズを取得するのに使いますよね。
具体的には、Win32APIのGetVersionExを使うときとか。
OsVerInfo.dwOSVersionInfoSize = Len(OsVerInfo)
Deiphiなら、
OsVerInfo.dwOSVersionInfoSize := sizeof(OsVerInfo);
みたいな感じ。
0718デフォルトの名無しさん
NGNGAPI関数の名前が思い出せない。
名前を知らないと、捜すのが大変かも・・・。
0719デフォルトの名無しさん
NGNG>711
0720665
NGNG0721デフォルトの名無しさん
NGNG結局の所オブジェクト。普通に引数にしちゃって下さい。
0722デフォルトの名無しさん
NGNGただこんなのもあるらしい？
http://www.izumichan.com/newbbs/programming.html imagehlp APIである MakeSureDirectoryPathExists() で、
「２バイト目が0x5cのダブルバイト文字」で終わるフォルダを一発で作ると、
フォルダ名が化ける。
Meや2000やXPでは出ない。
こんなのもあるらしい。
http://www.runan.net/program/tips/sdk_08_SHCreateFolders.shtml
0723デフォルトの名無しさん
NGNGプログラムの幅が広がるよ。
0724デフォルトの名無しさん
NGNGもしかして、レアケースでも何でもない？？
俺は>>717のケースしか例を挙げられないのだが。
>>722
感謝。
技術評論社刊「300」シリーズ(ガリバー著)の第3巻にも確か掲載されていたが、
購入していないので・・・。(汗
0725665
NGNG'UserControl' を引数にすると
ベース クラス名の使用方法が不正です。
とエラーが出てしまいます
UserControl オブジェクトに代替するものも今のところ見つけられません
0726デフォルトの名無しさん
NGNG再帰で表現可能な処理のほとんどはループでも表現可能。
俺個人のポリシーとしては、
(1) 再帰でしか表現できない処理
(2) 再帰を使うことに明確なメリット（コードが簡潔になる、パフォーマンスが高い、など）がある
のどちらかでなければ再帰は使いたくない。
0727デフォルトの名無しさん
NGNG改行規制に引っかかるようなので、二つに分けるね。
Public Function MakeFolda(ByVal psFolda As String) As Boolean
'指定されたフォルダを作成します
'
'説明：
'ドライブ名も含めて指定します。既にあった場合は作成しません。
'ドライブがない場合や、指定できない名前等の場合はFalseを返します。
Dim sDrv As String
Dim sDir() As String
Dim sDirFull As String
Dim sFoldaName As String
Dim vNum As String
Dim iCt As Integer
On Error GoTo MakeFoldaErr:
MakeFolda = True
If Right(psFolda, 1) = "\" Then
psFolda = Left(psFolda, Len(psFolda) - 1)
End If
If Dir(psFolda, vbDirectory) <> "" Then
Exit Function
End If
0728デフォルトの名無しさん
NGNGsDrv = Left(psFolda, 2)
sDirFull = Mid(psFolda, 4)
sDir = Split(sDirFull, "\")
sFoldaName = sDrv
For iCt = LBound(sDir) To UBound(sDir)
sFoldaName = sFoldaName & "\" & sDir(iCt)
If Dir(sFoldaName, vbDirectory) = "" Then
MkDir sFoldaName
End If
Next iCt
Exit Function
MakeFoldaErr:
MakeFolda = False
End Function
0729デフォルトの名無しさん
NGNG見辛くてすまん。意味ない変数もあったりするなぁ(;´Д`)
0730デフォルトの名無しさん
NGNG0731デフォルトの名無しさん
NGNG？？？
0733デフォルトの名無しさん
NGNGうん、だからといってスタック構造作ってごちゃごちゃするのもバカらしい。
0734デフォルトの名無しさん
NGNG0735デフォルトの名無しさん
NGNG>On Error GoTo MakeFoldaErr:
ここで「:」はいらんだろ。
0736デフォルトの名無しさん
NGNG0737デフォルトの名無しさん
NGNGんなもん使えるか
0738727-729
NGNG今はAPI一発だよん。不具合がある？ しらんしらん
0739デフォルトの名無しさん
NGNGIf Right$(OutPut, 1) <> "\" Then OutPut = OutPut & "\"
For q = InStr(OutPut, "\") To Len(OutPut)
q = InStr(q + 1, OutPut, "\")
Path = Left$(OutPut, q - 1)
If (GetAttr(Path) And vbDirectory) <> vbDirectory Then MkDir file
Next
0740デフォルトの名無しさん
NGNGAPIにバグあったの初めて知ったよ
0741デフォルトの名無しさん
NGNG0742デフォルトの名無しさん
NGNGこの例じゃスタック構造なんかつかわんだろ。複雑に考えすぎ。
0743727-729
NGNGhttp://www.galliver.co.jp/writing/msdn/msdn08/
0744デフォルトの名無しさん
NGNGダイアログを開くとタイマイベントなども止まってしまいます
自作するしか方法がないのでしょうか、、、
0745デフォルトの名無しさん
NGNGスレッド
0746デフォルトの名無しさん
NGNGAPIの方だと止まらなかった筈…
0747デフォルトの名無しさん
NGNGその間メッセージ処理が行われないんだから止まりそうなもんだけど。
0748デフォルトの名無しさん
NGNGモーダル ダイアログ ボックスとメッセージ ボックスによるイベントの抑止
このような事態が発生するいくつかの例を次に示します。
・タイマー コントロールを持つフォームが開発環境で動作しています。
[ツール] メニューから [オプション] を選択すると、[オプション]
ダイアログ ボックスが開きます。このダイアログ ボックスはモーダルで
あるので、このダイアログ ボックスを閉じるまで、タイマー コントロールの
Timer イベントが抑止されます。
0749デフォルトの名無しさん
NGNGうおお、EXEにしたら動きました。情報ありがとうございました。
0750デフォルトの名無しさん
NGNG以下の文を繰り返し呼び出すとgCD.IDの値が0と67305472の間でいったり来たりしたんですが・・・
GETってレコードナンバーを書き換えるのですか？ヘルプには何も書いてないけど、
てっきり読み込み専用で扱ってるとおもってたんですが
Open mFN For Binary As #1 Len = Len(gCD)
Get #1, gCD.ID, gCD
Close #1
0751デフォルトの名無しさん
NGNGﾌｫﾙﾀﾞ参照のﾀﾞｲｱﾛｸﾞをAPIで出すとき
初期のﾌｫﾙﾀﾞ位置をｺｰﾙﾊﾞｯｸで指定できるのはご存知だと思いますが
初期ﾌｫﾙﾀﾞに半角ｶﾀｶﾅが混ざっていると正しく表示できないのはﾊﾞｸですか
それともﾎﾟｲﾝﾀに弱いVBのがﾊﾞｸですか
初期ﾌｫﾙﾀﾞを直接 変数で渡すと正しく逝くのですが
0752デフォルトの名無しさん
NGNGRandomじゃないのか？と逝ってみるテスト
0753デフォルトの名無しさん
NGNG厨房のような発言は止めとけ。
0754デフォルトの名無しさん
NGNGなんかとてつもなく馬鹿コードかと。
0755デフォルトの名無しさん
NGNGポップアップメニューが表示されているかを検出する方法を教えて下さい。
また、表示されていた場合それをキャンセルする方法もあわせて教えて下さい。
0756デフォルトの名無しさん
NGNGじゃなきゃ駄目ですか？
わざわざどこにあるよって指定するよか、同じディレクトリ
のファイルを開くってしたいんだけれども。
0758デフォルトの名無しさん
NGNGそもそも表示させないのが筋じゃないのかと。
0759デフォルトの名無しさん
NGNGぱっと思いつくのはサブクラス化してメッセージを処理するとか。
閉じるのはEscキーでも送ると閉じるかな
0760デフォルトの名無しさん
NGNG検出って、メニューが出ている間に書いたコードが実行されるのでつか？
0761デフォルトの名無しさん
NGNG0762デフォルトの名無しさん
NGNGカレントディレクトリのファイルなら開けるだろ
0763デフォルトの名無しさん
NGNGアフォ
0764デフォルトの名無しさん
NGNGlenのこと？
これは気にしないで、binaryモードの時は無視されるから。ｗ
まさかこれだけでとてつもなく馬鹿コードっていってるんじゃないよね？ｗ
もしかして自分の馬鹿をさらけだしちゃった？
0765デフォルトの名無しさん
NGNGめったに使わないような気がする。
俺が見たことがあるのは、「メッセージボックスを任意位置に表示する」という
サンプルコード。(ガリバー著、技術評論社刊「300」シリーズ)
(MsgBoxに限らず、コモンダイアログ等でも可)
# しかし、VB6では動くが、VB.NETにアップグレードしたら動かない罠・・・。
# (どこが間違うとるのか、よーわからん・・・)
0766デフォルトの名無しさん
NGNG自己レス。
だいたいなぞが解けた。
一度読み込むとファイルへの読み込み位置が変わるからと関係ありますね。
0767デフォルトの名無しさん
NGNGどのような手順でしたらよいのでしょうか？
0768デフォルトの名無しさん
NGNG0769デフォルトの名無しさん
NGNGDB先を変える程度でローカルネットワークで作んのと同じにできないもんかな
0770デフォルトの名無しさん
NGNGモジュール化しながらしっかり組んでるならUIがFormになるだけでそこだけ書き換えればOKだと思われ。
0771デフォルトの名無しさん
NGNG一般的なVB製C/Sアプリが
クライアント(VBアプリ)←→サーバ(DB)
という形態であったのに対し、
クライアント(ブラウザ)←→サーバ(Web/アプリサーバ)←→DB
という形態になる。
現状がどんなくみかたをしているのかにもよるが、すんなり行くとは思えない・・・
現システムをインターネット介して使いたいってだけなら、VPN使う手もあるかも。
0772デフォルトの名無しさん
NGNGIPで繋げば繋がる。
壁やルーターがあったら、ポートを空け、それなりの設定をやる必要がある。
セキュはかなり落ちるぞ。
昔、遊びで家のマシンにMSDE入れて、
会社からエンプラマネージャーで繋いだことがある。
繋がるには繋がったが、家のマシンにはかなりのアッタクの痕跡があった。
0773デフォルトの名無しさん
NGNG知ったかぶるのも楽じゃないな・・・
0774デフォルトの名無しさん
NGNG常識ではありえない仕様だ罠
0775772
NGNGはぁ？何が？
実際にやったこと書いただけなんだがな。
0776デフォルトの名無しさん
NGNG何も考えずにいれたら外部からアクセスできますよ。
この前のネット障害がものがたってるだろ
0777デフォルトの名無しさん
NGNG普通はそのようにしないための、
設定やファイアウォールやDMZだと思うのだが…。
0778デフォルトの名無しさん
NGNG0779デフォルトの名無しさん
NGNG目を細めろ
0780デフォルトの名無しさん
NGNG↑↑↓↓→←→←AB
0781デフォルトの名無しさん
NGNG前悩んでた奴いただろ？
0782デフォルトの名無しさん
NGNG0783デフォルトの名無しさん
NGNGアプリ内で処理したCSV形式のテキスト行があり、ファイルに出力してエクセルに渡したいと考えています。
一行処理するたびにファイルに出力していたのですが、Output # だと頭に"がついてしまうため
エクセル側で展開する時にうまくいきません。
そこでバイナリで出力したのですが、今度は複数行分出力すると改行ができません。
複数行が一列に繋がってしまい、これまたうまくいきません
ケツに改行文字をくっつけてやればいいのでしょうか・・？力尽きました。
御教授よろしくお願いします。
0784デフォルトの名無しさん
NGNGWrite←×
Print←◎
0785デフォルトの名無しさん
NGNG>>722
0786デフォルトの名無しさん
NGNG> Alias "#165"
β版としか思えないような命名やな（ｗ
# 舐めとるんか、MS？
0787デフォルトの名無しさん
NGNG#ではじまるのは序数指定→非公式APIってことじゃないの？
0789デフォルトの名無しさん
NGNGのですがSendkeyでは最初のフォーカス位置がわからないのでできません。
どうしたらいいでしょうか？
0790デフォルトの名無しさん
NGNGﾌﾟｯ、Cの関数名に#が使えるわけないじゃん。それ位気付けよ
0791デフォルトの名無しさん
NGNGC が何か関係あるのか？
0792デフォルトの名無しさん
NGNG■ このスレッドは過去ログ倉庫に格納されています