(´д`)ウッ…　VB初心者質問スレ Part15

**エロチカセブン** · NG

**デフォルトの名無しさん** · NG

>>734
ＶＢにｉｎｐｕｔになるものはない。
代わりにテキストボックスがある。

まずコマンドボタンとテキストボックスを貼り付けて
コマンドボタンをダブルクリックして出てきたところに
msgbox text1.text

と書けばよい。

**デフォルトの名無しさん** · NG

あもちろん７３４に書かれている意味合いのｉｎｐｕｔがないということだよ。

ＶＢにあるinputはファイル等から読みこむものだ。

**デフォルトの名無しさん** · NG

これでいいだろ？ (w
10: suuji = InputBox("suuji ..... ")
20: MsgBox suuji
30: End

**デフォルトの名無しさん** · NG

Len(vbCrLf)を実行するとなんと2が返ってくるけど1じゃないのはなぜ？
改行コードの長さを求めると1が帰ってくる関数はあるの？

**デフォルトの名無しさん** · NG

>>738
悪いことは言わないから（ｗ）、転職、または他部門への異動を真剣に
検討して頂きたい。技術のない技術者（言葉が矛盾しているがｗ）の
存在は、顧客にとっても、同業者にとっても、迷惑（足手纏い）以外の
何者でもない。

**デフォルトの名無しさん** · NG

>>738
CRで1バイト、LFで1バイトだが。
CRLFの改行は2バイトであってる。
メモ帳で改行一個のファイル作ってサイズ見て見れ？
2バイトだろ。

**デフォルトの名無しさん** · NG

>>739 コピペウザイ

**738** · NG

>>740
うおーそうだったのか。1+1で2バイトだったなんて。
ありがとうございます。感激。

**738** · NG

>>740さんですた

**デフォルトの名無しさん** · NG

>>740 間違ってるよ
バイトじゃなく単に文字数ですよ

**738** · NG

>>740さん >>744さん
1文字+1文字で2が返ってくるということですね。了解っす。

**738** · NG

Pcture1(i)のようにピクチャーボックスが配列になってたら
For i=0 to 100
picture1.visible=false
next
のようにたくさんのピクチャボクスvisibleをいっぺんにfalseにできるけど、
picture1
picture2
picture3
のように独立したピクチャをいっぺんにいじりたい場合はどするの？
For i=0 to 100
(picture & i).visible=false
next
だとエラーがでる・・

**738** · NG

>>746
3行目
picture1(i).visible=false
ですた

**デフォルトの名無しさん** · NG

>>746-747
Controls("Picture" & i).Visible = False
くだらん質問ばかりすんなよ

**デフォルトの名無しさん** · NG

くだらなくねえだろ

**738** · NG

>>748さん
VB極めた気配がしまつ。。
ちょっとやってみて報告します。
>>749さん
私は初心者に超がつくのかもしれません。超初心者スレができないかな。

**デフォルトの名無しさん** · NG

>>748
くだらないのはお前自身

**デフォルトの名無しさん** · NG

>>751
ｵﾏｴﾓﾅｰ

**738** · NG

みなさん、私なんかの為にけんかしないでください。
気持ちはとても嬉しいですから(*^ _ ^*)

**デフォルトの名無しさん** · NG

>>748
便乗質問ですが、

strTmp1
strTmp2

という変数があり、
For lngCnt = 1 To 2
strTmp & CStr(lngCnt) = ""
Next lngCnt

みたいなのをやりたいんですが、この場合はどうしたらいいんでしょうか？

**デフォルトの名無しさん** · NG

>>754
配列にするのがベストかと。

**デフォルトの名無しさん** · NG

質問です。
シングルコーテーションで囲まれた
CSV形式のテキストファイルを作りたいのですが
どうやればいいのでしょうか？
お願いします。

**デフォルトの名無しさん** · NG

>>756
やってみて分からない個所だけ聞けよ
丸投げはヤメレ

**デフォルトの名無しさん** · NG

>>728
可能

>>739
同様の質問が過去ログにある

**754** · NG

>>755
もちろん普通は配列にするのはわかってますが、
こういうのもできるのかなと思っての質問です。

**746、738** · NG

Dim i As Integer
For i = 1 To 2
Controls("Picture" & i).Visible = False 'いったん消して
Next

Dim Str1 As String
Str1 = "Picture" 'こんなこともできるのか？
For i = 1 To 2
Controls(Str1 & i).Visible = True '再び表示
Next

ありがとうございました。
見事にできました。
Contorolsも知らなかったので検索キーワードも思いつきませんでした。
やはり分厚い本を最初から最後まで読まないとこういったことは覚えられないか。

**デフォルトの名無しさん** · NG

>>756
Printで一行分の文字列書けばいいんじゃ

**756** · NG

Print #1,"'" & Test1 & "','" & Test2 & "'"
ってこと？

**デフォルトの名無しさん** · NG

>>759
パブリックな変数なら CallByName で出来るかも。
試してないのであくまでも「かも」ですが。

**デフォルトの名無しさん** · NG

>>762
それでダメなのか？

**デフォルトの名無しさん** · NG

>>728
object.Execute [url[, operation[, data[, requestHeaders]]]]
MSDEのここのページを見ると詳しく書いてある。
requestHeaders　の部分に必要なHttpヘッダを入れる。

**デフォルトの名無しさん** · NG

>>764
文字列中にシングルクォーテションが入っていた場合が考慮されていない。

どのみち、CSVに書き出すのは簡単だが、取り出すのがめんどい。

**756** · NG

>>764
なんか簡単な方法あるのかなと思ったのよ
長くなると面倒くさくて
ありがとう

**765** · NG

そぉりぃ。MSDNでした。
Inet1.Execute , , , "Referer: maeno.page" & vbCrLf & _
"User-Agent: Mybz/1.00" & vbCrLf

**デフォルトの名無しさん** · NG

>>758
すいません、できれば、User-Agentとかを変える方法の
ヒントとかお願いできないでしょうか

**738、746** · NG

オレが738の書き込み時間から今の時間までに試したり思ったりしたこと。
-------------------------------------------------
実験1
Dim i As Integer
Dim Ary() As Integer
i = 1
ReDim Ary(i) '動的配列のサイズ指定に変数iを使うことができた。
Dim sAry(i) As Integer '静的配列の宣言にはこの便利な方法は使えなかった。
------------------------------------
実験2
Dim j=5 '変数の宣言と同時に値を代入することはできなかった。
------------------------------------
思ったこと1
>>754のようなかんじのプログラム。
For i=1 to 10
Dim BaseName & i as integer'たぶんエラーがでるけど、こんなかんじで変数を宣言できたら便利
Next

754やこのようなことは配列やコレクションでないとできないのかも。
---------------------------------------
初心者がほえてるのは見苦しいが
まあ勝手にムカついてくれ

**デフォルトの名無しさん** · NG

>>770
１０時５０分から１４時２７分まで考えてたのか。
ヒマだね～～～。

**デフォルトの名無しさん** · NG

>>771
暇そうだな。お前。

**デフォルトの名無しさん** · NG

VB使うくらいならDelphi使いたいよな

**デフォルトの名無しさん** · NG

>>773 使えばいいだろ

**デフォルトの名無しさん** · NG

いいよね

**デフォルトの名無しさん** · NG

>>773
使う言語の指定がなければＤｅｌｐｈｉを使いたいぜーーー。

ホントＶＢしかしらねぇやつばっかで困っちまうぜ。

**デフォルトの名無しさん** · NG

こまるよね

**738** · NG

そうでもないよ

◆ExGQrDul2E · NG

↑にせものをにせものと見抜けないとレスを返すのも難しい。

**777** · NG

そうだよ

**776.5** · NG

そうかな

**デフォルトの名無しさん** · NG

DataGridコントロールにRecordSetを連結させたあと、
DataGridをクリックした場合、その行のレコードの内容を取得したいのですが、
どうしたらいいのか教えてください。

**>782** · NG

Private Const SELECT_STRING As String = _
"SELECT * FROM Contacts ORDER BY LastName, FirstName"
Private Const CONNECT_STRING As String = _
"Data Source=Bender\NETSDK;Initial " & _
"Catalog=Contacts;User Id=sa"

Private m_DataSet As DataSet
Private Sub Form1_Load(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
Dim data_adapter As SqlDataAdapter

data_adapter = New SqlDataAdapter(SELECT_STRING, _
CONNECT_STRING)

data_adapter.TableMappings.Add("Table", "Contacts")

m_DataSet = New DataSet()
data_adapter.Fill(m_DataSet)

dgContacts.DataSource = m_DataSet.Tables("Contacts")
End Sub

**デフォルトの名無しさん** · NG

>>783みたいに
本当のプロもいるのよね

**デフォルトの名無しさん** · NG

この程度でプロなら自称素人の私はプロ中のプロだな

**デフォルトの名無しさん** · NG

>>784
マジレス。どの辺がプロ？

**デフォルトの名無しさん** · NG

弱い犬ほどよく吠える

**デフォルトの名無しさん** · NG

>>786
データベースをやってるとプロの気配がただようんだ。

**769** · NG

ぼけぼけですた

>>765
めっちゃどうもありが㌧

**デフォルトの名無しさん** · NG

>>786
VBって、とっつきやすいから他言語を使っている人から見れば想像を
絶するような初心者が多い。

このスレの趣旨であり大部分を占める初心者質問からみれば十分まと
もなコードだと思うよ。

**デフォルトの名無しさん** · NG

>783
つーかこれあきらかにMS系のサンプルコードだと思うんだが。

**デフォルトの名無しさん** · NG

>>782
DataGridコントロールにRecordSetを連結しているという事は、
そのレコードの内容は既にグリッドに表示されてると思うのだが。

**デフォルトの名無しさん** · NG

たぶんこのスレ、気が弱い人は質問できない。

**VB信者** · NG

>>793がｲｲ事逝った

**デフォルトの名無しさん** · NG

そもそも気の弱い人は２ちゃんに来ない。

**デフォルトの名無しさん** · NG

ひろゆきが好きでないと2ちゃんに来れない

**デフォルトの名無しさん** · NG

vb6のdirlistboxやfilelistbox等を使用して
ftp接続したサーバー(linux)のディレクトリを
表示することはできますか？

**デフォルトの名無しさん** · NG

正直ＶＢを全くのド素人の状態から初めて１ヶ月チョット。
このままＶＢを頑張るか、他の言語へ乗り換えるか･･･。

なんか色んなスレＲＯＭってると、
ＶＢでは難しいこと出来ないみたいなことばっかかいてあったし。
どうなんでしょう？

**デフォルトの名無しさん** · NG

自分が何作りたいかによるだろ。

**デフォルトの名無しさん** · NG

そもそも難しいことが何かわからない。

VBで出来ないことも実際あるけどそれが難しいこととは別の話しだし。

**デフォルトの名無しさん** · NG

VisualBasic6.0上では、隠しファイル（フォルダも含む）を参照することが出来ません。
そこで、getattr関数を使って、ファイルの属性を調べ、隠しファイルであれば
setattr関数を使って属性を変更してまた戻しています。

で、質問なのですが、
「最近使ったファイル」を調べたいのですが、これは「隠しフォルダ」になっています。
MSDNで調べてみると。setattr関数って、ファイルしか属性変更できないみたいなんですけど、
どのように、フォルダの属性を変更すればよいのでしょうか？

あるいは、属性変更せずに隠しフォルダの中身を参照することはできるのでしょうか？

どなたか分かる方ご教授願います。

**デフォルトの名無しさん** · NG

>>801
参照ってなにで参照してんのよ？

> そこで、getattr関数を使って、ファイルの属性を調べ、隠しファイルであれば
> setattr関数を使って属性を変更してまた戻しています。
つか、やめれ。

**801** · NG

802様
>参照ってなにで参照してんのよ？
フォルダの中身を調べて、中のファイルのパス名を取り出したいのです。

>> そこで、getattr関数を使って、ファイルの属性を調べ、隠しファイルであれば
>> setattr関数を使って属性を変更してまた戻しています。
>つか、やめれ。
申し訳ございませんが、なぜ駄目なのか教えていただけないでしょうか？

**追記@801** · NG

質問の回答にはなってませんでした。
>参照ってなにで参照してんのよ？
フォルダの中身を調べて、中のファイルのパス名を取り出したいのです。
ですから、Dir関数を使おうかなと

**デフォルトの名無しさん** · NG

>>798
ハードウェアよりのことはCやアセンブラ。
データベース系はVB。
VBやってるとVBscriptが使えるASPの習得も楽で、
ASP + SQL Server を運営して2ちゃんのようなサイトを作ることもできる。

**デフォルトの名無しさん** · NG

（　´_ゝ｀）ﾌｰﾝ　

**デフォルトの名無しさん** · NG

駄目だこりゃ

**デフォルトの名無しさん** · NG

>>805
なるほど、これはもう少し慎重に選択してみたいと思います。
ありがとうございました。

**デフォルトの名無しさん** · NG

ここはとても温和で気軽にカキコめるスレだと思うがな
他に比べれば

**デフォルトの名無しさん** · NG

>>804
ヘルプでDir関数の第2引数を調べろ

**デフォルトの名無しさん** · NG

なんでも知ってる人は聞かれなくても自分からどんどん教えたくなるもんさ

**デフォルトの名無しさん** · NG

>>797
不可能。

**デフォルトの名無しさん** · NG

>>797
そｎ二つで出来るかは知らないが、普通のリストボックスじゃダメなん？

FTP接続は、アップロード、ダウンロード、ディレクトリ表示などどれも超簡単。

**デフォルトの名無しさん** · NG

>>801-803
801のプログラムが実行中に、OSが落ちようとも電源が落ちようとも
どんな事態が起きようとも絶対に、ファイルの属性を元に戻す自信があれば、
別にそのように作ってもいいんじゃない。

**デフォルトの名無しさん** · NG

>>798
VBを一ヶ月ちょっとやって、まだまともに出来ないのであれば、
他の言語に移るのは止めておいた方がいい。

かつ、難しいといわれるプログラムもしない方がいい。

**デフォルトの名無しさん** · NG

>>814
マルチタスクって知ってるか？

**デフォルトの名無しさん** · NG

814 名前：デフォルトの名無しさん[sage] 投稿日：02/10/08 22:07
>>801-803
801のプログラムが実行中に、OSが落ちようとも電源が落ちようとも
どんな事態が起きようとも絶対に、ファイルの属性を元に戻す自信があれば、
別にそのように作ってもいいんじゃない。

816 名前：デフォルトの名無しさん[sage] 投稿日：02/10/08 22:23
>>814
マルチタスクって知ってるか？

**801** · NG

810様　レスありがとうございます。
ヘルプを調べました。フォルダに関する記述は「vbDirectory」のみです。
これはつまり、「隠しフォルダ」については、
普通のフォルダに属性を変更することができない、ということをあらわしているのでしょうか？

814、817様レスありがとうございます。
よく分かりました。なぜ隠しフォルダなのか分からないまま
突発的なエラーが出たときにきちんと対処できるか
どうかという問題ですね。

**デフォルトの名無しさん** · NG

VBで出来ないことって何━━(ﾟ∀ﾟ)━━ｯ??

**デフォルトの名無しさん** · NG

816は何が言いたいのか？

**デフォルトの名無しさん** · NG

>>818
んーと、そろそろアレなので解答というか…。
「vbDirectory or vbHiddon」とか。
罠があるのでgetattrしてチェックした方がいいとか、そのgetattrには罠があるとか。
こそらへん調べるといいかな。

**デフォルトの名無しさん** · NG

>>819
大抵のことはできるでしょ。
VBの基本コンポーネントだけでAPI使用禁止、とか言われたらかなり無理が
出るけど…。
ただ、APIを大量に使い出すとVBである意味がなくなる罠。
まぁ、VBにも他の言語にも向き不向きがあるってこった。

**デフォルトの名無しさん** · NG

>>819
OSがWindows以外で動作させる事。
つまり、最高精度でWindowsだからあんまり精度を求める処理は無理。
また、高速なスピードを要求する処理。

マルチスレッドは無理すれば何とか。

**801** · NG

821様。レスありがとうございます。
どうやら私的にもう少しヘルプの熟読と、VisualBasic解説HPの検索が必要みたいです。
第２引数の複数選択が出来るみたいですね。
getattr関数、dir関数ともに勉強し直してきます。

ここのスレの皆様、ご教授大変ありがとうございました。
またどうしても分からないことがありましたら、
よろしくお願いいたします。

**816** · NG

>>820
そのプログラムが属性変更して動いている最中でも
別のプロセスが動く可能性があるということですが。

これでもまだ理解できませんでしょうか？

**デフォルトの名無しさん** · NG

排他ロックが必要か

**デフォルトの名無しさん** · NG

ファイルリストボックスやコモンダイアログでファイルを複数選択して、同じ操作を
させたいのですが、どのような記述をすればいいでしょうか？
内容は、バイナリデータをデコードして、CSVファイルにして出力させるというものなのですが。
よろしくお願いします。

**729** · NG

>動作中のVBアプリがタスクマネージャのアプリケーションの項目に表示されないようにしたいのですが、可能でしょうか？

自己レスです。
過去ログにShowWindowで出来るようなことが書かれていたので試してみました。
hWnd = FindWindow(vbNullString, "キャプション")
ShowWindow hWnd, SW_HIDE
で、"キャプション"に自分以外のアプリのキャプションを指定するとそのアプリはタスクマネージャに表示されなくなりました。
しかし、自分自身のキャプションを指定すると、画面上には表示されなくなるのですがタスクマネージャには相変わらず表示されていました。
これはこういうものなのでしょうか？ご存知の方教えて頂けないでしょうか。よろしくお願いします。

**デフォルトの名無しさん** · NG

>>828
オーナーウィンドウの方を操作すればできそうだが。

**729** · NG

>>829 さま
アドバイスありがとうございます。
オーナーウィンドウのハンドルを取得してShowWindowしたところ、願っていた動作をするようになりました。
ほんとに助かりました。やっと眠れます。
オーナーウィンドウの意味がまだよく分かっていませんが、ぼちぼち勉強していきたいと思います。
ありがとうございました。

**デフォルトの名無しさん** · NG

>>798
むずかしいことをすれば、むずかしいこともできる。

>>811
能ある鷹はチンコを隠す

**デフォルトの名無しさん** · NG

ちんこみたい

**デフォルトの名無しさん** · NG

クラスに開始メソッドと停止メソッドを追加したいんですが
予約語で命名出来ません。この場合何てつけますか？

ダメな例 start stop, start end, begin end, open close

**デフォルトの名無しさん** · NG

質問です。
ダイヤルアップ環境で、オフライン中にインターネットに接続しようとすると
ダイヤルアップのウィンドウが表示されますが、
これを画面に表示させないでWebアクセスなどを試みることは可能でしょうか？
(バックグラウンドで無理やりダイヤルアップ接続する方法とかではありません。)
繋がっていなかった場合はなんらかのエラー検出が出来る方法であればありがたいです。
どなたかご存知でしたら教えてもらえないでしょうか。よろしくお願いします。

(*´д`*)ウッ… VB初心者質問スレ Part15

(´д`)ウッ…　VB初心者質問スレ Part15