1001コメント332KB

(´д`)ｱﾊｧ…　VB初心者質問スレ Part14

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

NGNG

0159デフォルトの名無しさん

NGNG

>>158
Set rs_Sample = New ADODB.Recordset
str_SQL = "select * from Sample"
rs_Sample.Open str_SQL, cnn_Test, adOpenStatic,adLockPessimistic

Do Until rs_Sample.EOF
rs_Sample.Delete
rs_Sample.MoveNext
Loop
↓
cnn_Test.Execute "DELETE FROM Sample"

0160159

NGNG

こっちの方が速いか
cnn_Test.Execute "TRUNCATE TABLE Sample"

試したこと無いけど

0161158

NGNG

>>159-160
ありがとうございます。
やっぱりExecuteするしかないんでしょうか？
recordsetのDeleteはなんで使えないんだろう？

0162159

NGNG

>>161
Deleteは使えるぞ。単にコードが悪いだけ。
rs_Sample.MoveNext
↓
rs_Sample.MoveFirst

0163219.96.219.219

NGNG

　　　　　　　　　　　 ./'""　: .:.. .::: . :. .::"=,
　　　　　　　　　　　/:. :..:..:::::::::::::::;;;:::;;;:::;:..:.:!,
　　　　　　　　　　 i:.:::::;;;;;:::::-,:-'"　　　 ;:::::::i,
　　　　　　　　　　ﾉ:::"　　　ヽ,..　　　　 ;:::::::i,
　　　　　　　　　　 ,i::::.　,....,,,_　　 ,;;;;;;::::,,,,,.;:::;i..,
　　　　　　　　　　ヽ;::,;:- ;:;;::,ー:;"/ /　 i"`:;":l,
　　　　　　　　　　　;"!,:!, "''''"ﾉ: .ヽ---'"　:l,,,/
　　　　　　　　　　　 !, ;!,"""~::.,....::,:　　　 .:l' 　　　　　　　　　人生ってせつねーな
　　　　　　　　　　　　　'l;　　,//l,l,l,l,ll::　　.;l　
　　　　　　　　　　　　　ヽ,　"~---'"　 ,;/!ヽ,　
　　　　　　　　　　　　　　　ヽ,,　　　　／;;;"　ヽ,,,,,,,
　　　　　　　,,,,,,::---''''''''''''"!,i,"''''''''''"／　　　/::" "'--::;;,
　　　　　/";,　　　　:::ヽ, 　 l,!,/=l;"~,/　　　／:　　　:;--''"'ヽ,
　　　　　(;;;;,,ヾ,　　 ;::: .　　　l/,,,.l,／　　,／;' ' :',,..:'　　　　　 :ヽ
　　　　 ,ノ ::;;,,,::i,　　 :, ::,　　 i,.／　　／　 .: ,:'' 　　_,,.,-'l;:.. 　 ,i
　　　　 ,):::::.... "";,　　:,,:;　　 /　　 ,／.;;;;;,　_,,;:-''''".,,;,:-"::...　 l

0164158

NGNG

>>162
できました！ありがとうございます

0165TTT ◆aXGRPkmk

NGNG

vb6でＵＤＰでデータを送ったり受信したりするﾌﾟﾛｸﾞﾗﾑ書いてます。
むちゃくちゃ単純なやつです。
remoteport設定して
bindして
remotehostに送るだけ。
受信はイベントまちしてるだけ。
作ったときはうまくいったんですが
ディストリビューションウィザードで
他のＰＣにインストールして送信しようとすると
実行時エラー126がでてきます。
なぜでしょう。

0166デフォルトの名無しさん

NGNG

Oracleのレコード件数を取得したいのですがうまくいきません。
過去ログを読むとSQL文でCOUNTをした方が良いと書いてあったので
次のようにしたのですが、肝心の結果が取得できません。
どこが悪いのでしょうか。助けてください。。。

Dim objtest As ADODB.Recordset
Dim strtest As String
Dim strSQL As String

Set objtest = New ADODB.Recordset
strSQL = "select COUNT(*) from spos.tst_meisai"

objtest.Open strSQL, cnn, adOpenKeyset, adLockOptimistic

strtest = objtest(0).Value

0167デフォルトの名無しさん

NGNG

普通のVBとwordとかで付いてるVBの違いを教えて頂けないでしょうか？

0168ntkngw020205.isdn.ppp.infoweb.ne.jp

NGNG

>>167
WordのはVBA

0169デフォルトの名無しさん

NGNG

VBAでソフトとかゲームって開発できるんですかね？

0170デフォルトの名無しさん

NGNG

>>169
出来ますよ。
エクセルで作ったテトリスを見たことあります。

0171デフォルトの名無しさん

NGNG

できる

0172デフォルトの名無しさん

NGNG

"制御文字入れたい\"\n\rとか"
VBではどうやって記述したらいい？

0173デフォルトの名無しさん

NGNG

>>172
VBならとかって気取ってかいてんじゃねーYO。
他の言語使えないくせに。

0174デフォルトの名無しさん

NGNG

>>172
chr$とか

0175デフォルトの名無しさん

NGNG

>>172
こんな感じ？
"ABC"+Chr(13)+Chr(10)
Chr(13) = キャリッジリターン
Chr(10) = ラインフィード

0176デフォルトの名無しさん

NGNG

リストヴュー内に値を表示することはできるのですが
逆にリストビュー内の文字列を取得する方法を教えてください。

インターネットで探してもヘルプ見ても書店に行ってもやり方が
書いてないんです・・・。単純に表示されている文字列を取得したい
だけなのですが。

私の探し方がいけないのでしょうか？

0177172

NGNG

>>174
>>175
レスども、参考になりますた。
Chr(22) & "こんな感じになりますた" & Chr(22)

0178デフォルトの名無しさん

NGNG

>>177
22ってなんだろう？

・キャリッジリターンとラインフィードの組み合わせ。
vbCrLf = Chr(13) & Chr(10)

vbには定数が定義されているよ。

0179デフォルトの名無しさん

NGNG

>>176
lvw.ListItems(index).Text
lvw.ListItems(index).ListSubItems(index).Text

0180デフォルトの名無しさん

NGNG

はじめまして。
ＶＢからエクセルをＳｈｅｌｌ関数にて起動しているのですが、
起動するまでの約１～２秒間の間、
普通にエクセルを起動（エクセルアイコンダブルクリック、スタートメニューから起動等）
できないようにしたいのですが、可能でしょうか？
というのは、Ｓｈｅｌｌから起動する前後にエクセルのレジストリを触っているからです。

どなたかご教授願います。
よろしくお願いします。

0181デフォルトの名無しさん

NGNG

　　　　　　　　　　　　　　　　￣￣￣￣-----________ ＼　|　/　__--￣
　　　　　　---------------------------------　　。>>173　------------
　　　　　　　_______-----------------￣￣￣￣￣　　　　￣￣----_______
　　　　　　　　　　　　　　　　　　　　 ∧ ∧　　　　／　/　|　＼＼
　　　　　　　　　　　　　　　　　　　　（　　　）　　／　　/　 |　　＼　　＼
　　　　　　　　　　　　　　　　　＿／　　　　）／　　/　　 |　　　＼　　　　＼
　　　　　　　　　　　　　　　　ぅ／ /　　　//　　　 /　　　|　　　　＼　　　　
　　　　　　　　　　　　　　　　ノ　 ,/　　　/'　　　　/　　　 |　　　　　＼
　＿＿＿＿＿　　　　　 ,.／／/　　　 |　　　　 /　　　　|　　　　　　＼
（＿＿＿＿＿二二二二)　ﾉ（　（.　　|　　　　/　　　　 |
　　　　　　　　　　　　　 ^^^'　　ヽ, |　　|　　　/　　　　　|
　　　　　　　　　　　　　　　　　　　 |　　|　　　　　　　　　|
　　　　　　　　　　　　　　　　　　 ,,/ 　,ﾉ　　∧、∧、∧、∧、∧、∧、∧、∧、∧
　　　　　　　　　　　　　　　　　　/　　/|　＜
　　　　　　　　　　　　　　　　　 /　　/ |　＜　宇宙のかなたまでとんでけや
　　　　　　　　　　　　　　　　 ,/　　/　|　＜、
　　　　　　　　　　　　　　　　＼_＿つ )　　∨＾∨＾∨＾∨＾∨＾∨＾∨＾∨＾∨＾∨

0182デフォルトの名無しさん

NGNG

はじめまして。
VBからノーマル表示されているDOS窓を最小化したいのですが、どのようにしたらいいのか分かりません。
どなたか教えていただけませんか？？よろしくお願い致します。

0183デフォルトの名無しさん

NGNG

＞VBからノーマル表示されているDOS窓
というのが意味不明なんですが

shellでbatファイル動かしてるという意味ならshellの第二引数でｳｨﾝﾄﾞｳの大きさ指定してくれ
違ったらｽﾏｿ

0184デフォルトの名無しさん

NGNG

>>183
VBから、ノーマル表示されているDOS窓
であろう

0185仮 ◆ZKkSDatc

NGNG

>>155
うぅ、どうもです。
＞問題あるとしたら、Windowの親子関係の理解かも
これが大的中でございますです。
ComboBoxの内側のTextがComboBoxの子Windowになるとは知りませんでした。
なんとなく全部同じ階層なのかと勘違いしてたわけです。
お陰でComboBoxﾊｯｹｿ→その子を検索→目的のTextBoxﾊｯｹｿ
と、トントン拍子です。

ありがとうございました。（実は「テキストが取れない」ってのも調べようとしてましたｗ）

0186デフォルトの名無しさん

NGNG

>>182 DeclareがめんどくさいのでCですまん。
int main(int argc, char* argv[])
{
　　HWND hwnd;
　　WINDOWPLACEMENT windowplacement;
　　BOOL b;

　　hwnd = FindWindow(NULL, "c:\\winnt\\system32\\cmd.exe");
　　//hwnd = FindWindow("ConsoleWindowClass", NULL);
　　printf("hwnd=%d\n", hwnd);
　　GetWindowPlacement(hwnd, &windowplacement);
　　windowplacement.showCmd = SW_MINIMIZE;
　　b = SetWindowPlacement(hwnd, &windowplacement);
　　return 0;
}

0187デフォルトの名無しさん

NGNG

>>166
SQL2000だけど、そのコードで動いたよ。
数値で帰ってくるのに、文字列に入れているからかな。
でもちゃんと自動的に変換されたよ。

あとはcount(*) as cntとか名前を付けて、
Debug.Print objtest("cnt").Value してみるとか。

0188仮 ◆ZKkSDatc

NGNG

こんどはSetWindowTextがComboBoxに対して上手く動かないや。
他のツールではちゃんと変更できるんだけどなぁ。
もういいやヽ(`Д´)ノﾈﾙ!!

0189デフォルトの名無しさん

NGNG

>>188
だからWM_SETTEXT使えってば(w

0190仮 ◆ZKkSDatc

NGNG

ぁ

0191仮 ◆ZKkSDatc

NGNG

ﾃﾞｷﾀ
ﾓﾚｶﾞｳﾞｧｶﾃﾞｼﾀ
ｲｯﾃｷﾏ

0192初心質問

NGNG

VB6.0＆Access97でデータベースのトランザクション処理の質問です。
モジュール初期起動時に、PublicのDAO3.5_ObjectでCreateworkspace,OpenDataBaseを作成して
プログラム内でRecordsetを作成して参照・更新・追加などをしています。
複数のテーブルにレコード追加するときに、 Begintrans～commitTransを使おうとしたら
追加時、Recordset.addnewのときにオブジェクトが無効とエラーになってしまいます。
直前のset Recordset = DataBase.OpenRecordset("select * from tbl where id=id ",dbsopendynaset)
は実行できます。
なぜなんでしょうか？
ちなみにBegintrans実行直前にCreateworkspace,OpenDataBaseを再作成(set～)を行うとエラーになりません。
またBegintrans～commitTransを使用しなければ、エラーは起きません。
誰か助けていただきたく。

0193デフォルトの名無しさん

NGNG

まだクールバーにメニューを載せようとあがいている馬鹿ですが、
ツールバーのボタンにTBSTYLE_AUTOSIZEをセットしようとしてるんですけど、
全然上手く行きません。いい方法ありませんかね？ﾊｧ・・・
そもそもツールバーコントロールのボタンのIDは101から始まってんだろーか。

Private Const WM_USER As Long = &H400
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Const TBSTYLE_BUTTON = &H0
Private Const TB_GETBUTTONINFOA As Long = (WM_USER + 65)
Private Const TB_SETBUTTONINFOA As Long = (WM_USER + 66)
Private Const TB_GETBUTTONINFO As Long = TB_GETBUTTONINFOA
Private Const TB_SETBUTTONINFO As Long = TB_SETBUTTONINFOA
Private Type TBBUTTONINFO
cbSize As Long : dwMask As Long : idCommand As Long : iImage As Long
fsState As Byte : fsStyle As Byte : cx As Long : lParam As Long : pszText As String : cchText As Integer
End Type
Private Const TBSTYLE_AUTOSIZE As Long = &H10
Private Const TBIF_STYLE As Long = &H8
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Form_Load()
Dim tbInfo As TBBUTTONINFO
Dim lnghWnd As Long,lngRet As Long
lnghWnd = FindWindowEx(Toolbar1.hwnd, 0&, "ToolbarWindow32", vbNullString)
tbInfo.cbSize = Len(tbInfo) : tbInfo.dwMask = TBIF_STYLE
lngRet = SendMessage(lnghWnd, TB_GETBUTTONINFO, 101&, tbInfo)
tbInfo.fsStyle = TBSTYLE_BUTTON Or TBSTYLE_AUTOSIZE
lngRet = SendMessage(lnghWnd, TB_SETBUTTONINFO, 101&, tbInfo)
Toolbar1.Refresh
End Sub

0194デフォルトの名無しさん

NGNG

>>192
エラーが出るプロシージャのコード出してみ

0195デフォルトの名無しさん

NGNG

>>187
動きましたか。。。
教えていただいた方法を試してみます。

0196デフォルトの名無しさん

NGNG

>>195

Dim oraDynaset As Object
Dim strSQL As String
Dim oraCnt As Long

Const ORADYN_READONLY = &H4&

strSQL = "SELECT * FROM TABLE"

Set oraDynaset = gOraDataBase.CreateDynaset(strSQL, ORADYN_READONLY)
oraCnt = oraDynaset.RecordCount

※gOraDataBaseは、オープンしたDBね

0197デフォルトの名無しさん

NGNG

タブ区切りの文字列を分割したいんですが、良い関数はありますか？
Cで言うところのstrstrみたいな。

0198デフォルトの名無しさん

NGNG

>>197
まずはstrstrがどういう関数か調べてこい。

0199１９７

NGNG

あ、了解す。
strstrは全然違う関数すね。

0200１９７

NGNG

splitですね？
やってみます

0201？

NGNG

>>195
Oracleの場合はFieldsコレクションを使わないとだめだよ。
objtest.Fields(0).Value　でうまくいくと思う。
>>196
ADOとOO4Oの区別をつけましょう。
それと行数取得のために全表問い合わせなんて事はやめましょう。

0202１９７

NGNG

タブ区切りのテキストを↓で分割しようとしたんですが駄目でした。
タブ記号を"'"なりに変換するほうがいいですかね？

Dim strValue() As String

Dim aaa As String

aaa = "aa bbb cc"

strValue = Split(aaa, Chr$(9))

0203196

NGNG

>>
>それと行数取得のために全表問い合わせなんて事はやめましょう。

ここにSQLを代入するという、例のつもりだったんだけどね。

0204196

NGNG

>>203は>>201に対してです

0205？

NGNG

>>203
クク・・詭弁はよせヨ

0206？

NGNG

>>202
それはテキストがタブ区切りになっていないから。
aaa = "aa" & vbTab & "bbb" & vbTab & "cc"　でやってみ。

0207１９７

NGNG

>>206
素晴らしい！
ありがとうございます

0208？

NGNG

>>203
そこにカウントをとるSQLを入れるとレコード行数は１になるよ。
会社の先輩に教わってるんだろうけど、ちゃんと自分で勉強したほうがいいよ。
>>205
クク・・騙りはよせヨ

0209203

NGNG

>>208
俺は会社の先輩なんかに教わってねえよ！！！

0210デフォルトの名無しさん

NGNG

すみません。今VBからACCESSにデータを書き込むというプログラムを
作成していたんですが、実行すると「1つ以上の必要なパラメータの
値が設定されていません」と表示されます。
デバックをクリックすると
（変数名）.Open strSQL, （変数名）, adOpenDynamic, adLockOptimistic
ここが黄色で指摘されます。どういうことなのでしょうか？
神様おながいします。MSDNのCD持ってないのもで・・・

0211？

NGNG

>>209
せっかく気を使って会社の先輩のせいにしたのに・・・
>>210
SQL文に間違いがあります。

0212デフォルトの名無しさん

NGNG

>>192
AccessでTransactionがうまくいかんのは俺もあった。
結局こまめにCommitする事にしました。

0213デフォルトの名無しさん

NGNG

>>211
ありがとうございます。
SQL文ですか・・・。具体的にどう間違っているかわからないので
調べてみたいと思います

0214デフォルトの名無しさん

NGNG

(*´д`*)ｱﾊｧ…

0215？

NGNG

>>213
SQL文見てないからわからないけど。
表結合していて、それぞれの表に同じ名前の項目があるけれど
どちらの表の項目を見るのか指定してない。
のだと予想してみる。

0216デフォルトの名無しさん

NGNG

>>215
ACCESSの方でデータを格納したいレコードの部分の名前にテキスト型なら
うまくいくんですが、整数型にすると「型が一致しないと」
表示されてエラーになってしまいます・・・

0217デフォルトの名無しさん

NGNG

>>216
　　　　　　　　　　　　　　／⌒彡
　　　　　／⌒＼　　　　/冫、　）　　
　　　　 /　 ∧　`.／⌒ i `　／ゝ
　　　 /　ﾉ　 > (　<　　　 ( ＼＼
　￣~⌒￣￣~　　＼`つ　　 ⌒ ＿）
￣￣ﾌｰﾝ

0218？

NGNG

>>216
えー、正直言ってることがわからないですが。
Where句に指定した値が文字列型なら･･･という事でしょうか？
型が一致しないと出てるのならそれが原因でしょう。
具体的に言うと、整数型なら"'"をはずしてやらなければなりません。
Oracleならはずさなくても平気なんだけどね。

0219デフォルトの名無しさん

NGNG

>>218
アンタバリバリにできるナ

0220216

NGNG

>>218
ありがとうございます。
確かにその通りでした。"'"だと文字扱いになるんですね・・・。
おかげで解決することができました

0221デフォルトの名無しさん

NGNG

型チェックにうるさいんだな。つーかAccessのbrokenぶりを見させていただいた

0222デフォルトの名無しさん

NGNG

（　´_ゝ`）

0223？

NGNG

>>219
そんなことないですよ。まだまだ未熟者です・・・でもありがとう！
>>220
「1つ以上の必要なパラメータの値が設定されていません」
は解決したんですよね？原因がなんだったのか知りたい。

0224Prime

NGNG

厨房三年目です。
技術教師が私に授業で作る例題のプログラムを作れといってきました。
自分で作れないのに技術の教師…時代は変わったのか

0225？

NGNG

>>224　中学でプログラミングを教えてるってとこに時代を感じる・・・

0226デフォルトの名無しさん

NGNG

普通に教わるよ
家庭科（技術？）で。
高校でBASIC習うんだし。数Aね。

0227216

NGNG

>>223
strSQL = "Select * From （名前） " & _
"Where （名前） = '" & （TextBoxの名前).text & "'" & _
"AND （名前） = '" & （TextBoxの名前)..text & "'" & _
"AND （名前） = '" & （TextBoxの名前)..text & "'"

これでやって悩んでいました・・・。"'"をはずして解決しました

0228デフォルトの名無しさん

NGNG

>>227 プロの方ではないですよね。課題とかですよね。
TextBoxに「'」とか「"」とか打つとウマーだし。

0229デフォルトの名無しさん

NGNG

ReDim Preserve MyRec(6) As TRec

というように確保した領域って

MyRec() = Nothing

で領域開放できるんでしたっけ？

0230デフォルトの名無しさん

NGNG

>>227
好みだけど、↓こー書いた方が見やすいんでない。

strSQL=""
strSQL = strSQL & "SELECT ～ "
strSQL = strSQL & "WHERE ～ "
strSQL = strSQL & "AND ～ "

0231229

NGNG

自己レスです。Setが必要でしたね

Set MyRec() = Nothing

0232デフォルトの名無しさん

NGNG

>>229
それ動いたか？

0233229

NGNG

>>232
実際動かしてみました。
Nothing代入じゃないんですね。

0234229

NGNG

freeに相当する関数があるのかという話ですね。
VB側で勝手に開放してくれるのかな？
調べてみます

0235216

NGNG

>>230
ありがとうございます。参考にさせていただきます

0236デフォルトの名無しさん

NGNG

>>229
明示的に開放したいなら Erase ステートメントで出来ますよ。

0237229

NGNG

>>236
watch式でも開放されてるの確認しました。
こんな初歩的な質問にわざわざありがとうございます

0238デフォルトの名無しさん

NGNG

どなたか教えてください。
httpプロトコルでファイルをダウンロードしようとしていますが
うまくいきません。
（ステートは１２の完了までいくけど、ファイルがどこにも保存されない）

・プログラムのどこか間違っているのでしょうか？
・「GET」コマンドで取得したファイルはどこに格納されるのでしょうか？
　（全フォルダ検索しましたが指定したファイル名はありませんでした）

With Inet1
.URL = "https://aa/aa/bb.lzh"
.UserName = "12345"
.Password = "12345"
.Execute , "GET"
Do While .StillExecuting = True
DoEvents
Loop
End With

0239デフォルトの名無しさん

NGNG

>>238
それって自動的にファイルになるのか？
じゃないと保存先のパスとファイル名が設定できないとおかしいと思われ。

0240デフォルトの名無しさん

NGNG

>>238
それだけぢゃダメ
Inet1のStateChangedイベントでStateが12になったらGetChunkする。
で、GetChunkしたバイナリ文字列をファイルに書き出していく。
コード書きたいけど面倒＋ちょっとうろ覚えｗ
ぐぐればいくらでもサンプル出てくるけど？

0241238

NGNG

>>240

ありがとうございます。

GetChunk の方法なんですが、
ヘルプにあったサンプルで、
ファイルをオープンしていましたが、
どこのファイルをオープンすればいいんでしょうか？
（ソースの　txOperation の部分）

よろしくお願いします

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData As Variant ' Data 変数
Select Case State
' ... ほかの条件のコードは省略されています。
Case icResponseCompleted ' 12
' 出力先のファイルを開きます。
Open txtOperation For Binary Access _　　　　←？？？
Write As #intFile

' 最初のデータを読み取ります。注意: バイナリファイルを読み取る
' 場合はバイト (Byte) 配列 (icByteArray) を指定します。
vtData = Inet1.GetChunk(1024, icString)

以下　略

0242デフォルトの名無しさん

NGNG

みなさん、VB.NETへは以降してるんですか？
どうするんですか？

0243デフォルトの名無しさん

NGNG

いんや、まだ6sp5のまま web関連の開発がなくてな

0244デフォルトの名無しさん

NGNG

>>241
どこのファイルって、
お前が保存したいそのファイルだよ！
＞httpプロトコルでファイルをダウンロードしようとしていますが
そのダウンロード先だよ！

0245デフォルトの名無しさん

NGNG

>>243
やっぱ.NETとか言ってるだけあってWeb型のアプリの開発は得意なのか？
ん～全部データはもってるんだがインスコが面倒でなぁ。

0246デフォルトの名無しさん

NGNG

>>242
VBの仕事そのものがあんまりないので、
旧VBもVB.NETも趣味でやってるよ。

0247デフォルトの名無しさん

NGNG

>>242
.net の環境が入ったWindowsが出る頃を勉強のメドにしてる人も多そう。
現状、VB6 アプリを.net に移行するって話は、まだ殆ど聞かないね。
Webは全く知らんけど。

0248デフォルトの名無しさん

NGNG

Public Kekka(1 to 10) as log
Public Sub Draw()
i=i+1
k=k+1
kekka(i)=k
Text1.text=Text1.text & Kekka(i)
End Sub

とやって、

Private Sub Command1_Click()
Draw
End Sub
とやったのですが、テキストボックスには11111年かなりません。12345となるはずですが・・

0249デフォルトの名無しさん

NGNG

>>245
＞やっぱ.NETとか言ってるだけあってWeb型のアプリの開発は得意なのか？
ぼちぼち。

＞ん～全部データはもってるんだがインスコが面倒でなぁ。
犯罪者の方でしか？

0250デフォルトの名無しさん

NGNG

>>246
そういうのって、場所にもよるべさ。＞量

0251デフォルトの名無しさん

NGNG

>>248
君、日本語やばいぞ。

Procedure内で宣言した変数ってのは基本的に、Procedure を抜けると、内容は消えるのよ。
嫌なら、Dim の代わりにStatic って書きな。
値が型の上限を越えないように注意ね。

0252デフォルトの名無しさん

NGNG

>>249
へぇVB6よりはそっち系の機能充実ってとこ？
ちなみに犯罪者じゃねぇっ。学校側で買ったのを拝借しただけで。

0253デフォルトの名無しさん

NGNG

はいわかった。

0254238

NGNG

>>244

”GET”　コマンドだけで保存先を指定していないので、
どこに保存されているのかわからないので、質問しています。
ディスクの全検索しても同名のファイルは見つかりませんでした。
別の名前でバッファに入っているのでしょうか？
それとも、単純にダウンロードに失敗しているのでしょうか？

２４４以外の人で、知っている方がいましたら教えてください。

0255デフォルトの名無しさん

NGNG

>>252
＞学校側で買ったのを拝借しただけで。
業務上横領。コピーの場合ライセンス違反によるごにょごにょ。

0256デフォルトの名無しさん

NGNG

>>254
だから根本的にHTTPとプログラミングについて理解していないと思われ。

0257デフォルトの名無しさん

NGNG

>>254
悪いこと言わないから、テキストファイルの保存からやり直せ。
自分がいかに電波な事言ってるか解るから。

0258デフォルトの名無しさん

NGNG

>>251
ども。iとkをpublicで宣言したら直りました！
なにも宣言しないとdimなのですね。！
おみそれいたしｍたした

■ このスレッドは過去ログ倉庫に格納されています

(*´д`*)ｱﾊｧ… VB初心者質問スレ Part14

(´д`)ｱﾊｧ…　VB初心者質問スレ Part14