VBプログラマ質問スレ(6.0以前) Part38
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNG質問者は使用しているOS、VBのバージョン、サービスパック
何がしたくでどうしたけどどう困っているのかを明確に書きましょう。
○関連スレッド
VB.NETは別物なので、基本的に質問はこちらへ
VB.NET質問ｽﾚ (Part6)
http://pc5.2ch.net/test/read.cgi/tech/1088812165/
API関連の質問はこちらへ
Win32API質問箱 Build23
http://pc5.2ch.net/test/read.cgi/tech/1095534704/
MSDN Online Japan ホーム
http://www.microsoft.com/japan/msdn/default.asp
Visual Studio 6.0 Service Pack 6 正式リリース
http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx
API 技術関連 - VBでのWin32APIのサンプル
http://homepage1.nifty.com/MADIA/vb/VBKANREN.htm
http://www.google.co.jp/
※「まず自分で調べる」を身につけよう。
○VB以外の質問スレ
C++相談室 part35
http://pc5.2ch.net/test/read.cgi/tech/1093958200/
C++Builder相談室 Part11
http://pc5.2ch.net/test/read.cgi/tech/1094749339/
★初心者にVisual C++を教えるスレ★ Part14
http://pc5.2ch.net/test/read.cgi/tech/1093672937/
0002デフォルトの名無しさん
NGNGhttp://pc5.2ch.net/test/read.cgi/tech/1092906058/
0003デフォルトの名無しさん
NGNG削除依頼をだしてください。
0004溝田 千壽喜
NGNGつーか重複？
0005デフォルトの名無しさん
NGNG0006デフォルトの名無しさん
NGNG0007デフォルトの名無しさん
NGNG0008デフォルトの名無しさん
NGNG0009デフォルトの名無しさん
NGNG当然読み込んだデータの末端に余計な改行が入るのですけど、
不要な改行を付加することなく、スマートに
テキストファイルを読み込む方法はないでしょうか？
Open TextFilePath For Input As #1
Do Until EOF(1)
Line Input #1, Temp
ReadData = ReadData & Temp & Chr(13) & Chr(10)
Loop
Close #1
Text1.Text = ReadData
0011溝田 千壽喜
NGNGを消しても入るの？
改行
0012デフォルトの名無しさん
NGNGこっちは重複スレです。削除依頼出してください。
0013デフォルトの名無しさん
NGNG自分で出せ
0014デフォルトの名無しさん
NGNGこっち本スレでいいよ。
00151
NGNG0016デフォルトの名無しさん
NGNGあっちのスレの１だけど、こっちが本スレでいいよ。
すべて悪いのは、溝田だから。
0017デフォルトの名無しさん
NGNGOpen TextFilePath For Input As #1
Do Until EOF(1)
Line Input #1, Temp
If ReadData="" Then
ReadData = Temp
Else
ReadData = ReadData & Temp & Chr(13) & Chr(10)
EndIf
Loop
Close #1
Text1.Text = ReadData
0018デフォルトの名無しさん
NGNG× ReadData = ReadData & Temp & Chr(13) & Chr(10)
○ ReadData = ReadData & Chr(13) & Chr(10) & Temp
0019デフォルトの名無しさん
NGNG馬鹿じゃねえの？
0020デフォルトの名無しさん
NGNG0021デフォルトの名無しさん
NGNG馬鹿でごめんね
0022デフォルトの名無しさん
NGNGこっちは重複スレです。削除依頼出してください。
0023デフォルトの名無しさん
NGNGi = FreeFile
Open "hoge.txt" For Binary As #i
Text1.Text = Input(LOF(i), #i)
Close #i
0024デフォルトの名無しさん
NGNGこっちは重複スレです。削除依頼出してください。
0025デフォルトの名無しさん
NGNG0026デフォルトの名無しさん
NGNGVisualBasic逆引き大全500の極意(秀和システム)の069、070 ページ97、98を参考にして ①メニューからプロジェクト⇒フォームモジュールを追加でログオンダイアログを選択し次のようにコードを書きました。
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click() 'ﾛｸﾞｵﾝに失敗したことを示すために，ｸﾞﾛｰﾊﾞﾙ変数を Flase に設定します。
LoginSucceeded = False 改行して Me.Hide
End Sub
Private Sub cmdOK_Click() '正しいﾊﾟｽﾜｰﾄﾞかどうかを調べます。
If txtUserName.Text = "suzuki" And _
txtPassword.Text = "123abc" Then 'ここにﾊﾟｽﾜｰﾄﾞが一致したことを呼び出し元に通知するｺｰﾄﾞを記述します。ここでは簡単にｸﾞﾛｰﾊﾞﾙ変数を True に設定します。
LoginSucceeded = True 改行して Me.Hide
Else
MsgBox "ﾊﾟｽﾜｰﾄﾞが正しくありません。もう一度入力してください !", , "ﾛｸﾞｵﾝ"
txtPassword.SetFocus 改行して SendKeys "{Home}+{End}"
End If
End Sub 次にForm1に4つCommandButtonwonを配置し
Option Explicit
Private Sub Form_Load() 'ログオンダイアログボックスを表示
frmLogin.Show vbModal 'ログオンに失敗していたらプログラムを終了
If frmLogin.LoginSucceeded = False Then
MsgBox "ログオンできませんでした。"
End
End If 'ログオンダイアログボックスをメモリから消去
Unload frmLogin
End Sub
これで、実行をかけるとfrmloginでとまってしますのですが？どのようにしたら良いでしょうか？
0027デフォルトの名無しさん
NGNG高いよね。分厚いけど。
0028デフォルトの名無しさん
NGNG0029デフォルトの名無しさん
NGNG続きのコードを入力
0031デフォルトの名無しさん
NGNGリファレンスに使える奴だと5000-10000円、それ以上のも普通にあるし。（APIバイブルとか）
で、とまっちゃうって何が？何処で？
0032デフォルトの名無しさん
NGNGデータの意味は値12345.67なのですが
"12345.6"と表示させたいので
Format$("1234567" / 100, "0.0")
というような風にしたところ
"12345.7"と四捨五入されてしまいます。
マニュアルによると四捨五入をするのが仕様のようなのですが
四捨五入させないで小数点第二位以下切り捨てを行いたい場合
どのようにしたらよいでしょうか？
0033デフォルトの名無しさん
NGNG現在、２台のPCを使って作業をしているのですが、参照設定にチェックをつけようとしているのですが
Win2000(Office2000)には参照設定の
Microsoft Excel 9.0 Object Library にチェックがついているのですが、
WinXP HomeEditionのマシンには(Word ExcelがOfficeXP その他Officeが2000)
には Microsoft Excel 9.0 Object Libraryがなくかわりに
Microsoft Excel 10.0 Object Libraryがあるのですがこちらを使用してかまわないでしょうか？
0034デフォルトの名無しさん
NGNGそういう場合は参照設定をせずに、CreateObjectからExcelオブジェクトを起こしたほうが良いとは思う。
最終的な動作環境で複数のExcelバージョンを相手にするなら、それぞれごとにテストを行うのは必須ですよ。
EXEも最悪はそれぞれごとか、外部設定で2000かXPかを指定してもらう形になると思います。
>>32
ベタなやり方としては、100倍して10で割った商（小数点２位の切捨て）を、さらに10で割ると。
CINTの仕様が手元で調べられないんだけど、10倍して小数点以下切り捨てて10で輪ってもいいかも。
0035デフォルトの名無しさん
NGNG0036デフォルトの名無しさん
NGNGすみません、おねがいします
実行をかけ ユーザー名 suzuki パスワード 123abc を入れると
コードの画面に行くのです
初心者で申し訳ございません。
0037デフォルトの名無しさん
NGNGそれは・・・。
１．何らかのエラーが発生して、デバック待ちになっている。
２．あなたがブレークポイントを張っている。
のどちらかではないのでしょうか？
止まったときにVBたんは何か言ってません？
003836
NGNG早速の返信ありがとうございます。
とくにVBはなにかあしら文句はいいません。(言ってほしい。。。)
2.のブレークポイントを張っているは該当しないですね。。。
デバック待ちの場合ですとどのような対処方法がありますか？
0040デフォルトの名無しさん
NGNGその本はあなたには早過ぎるので、別の本からやるといいよ
0041デフォルトの名無しさん
NGNGどこかのUploaderにソース上げれば診てもらえるかもしれないがね
0042デフォルトの名無しさん
NGNGそういうサンプルコードだから。
最後に無条件でUnload frmLoginが実行される。
0043デフォルトの名無しさん
NGNG以後レスした人がいる場合、スレスト食らうので注意。
0044デフォルトの名無しさん
NGNGへえ。
0045デフォルトの名無しさん
NGNGありがとうございました。
Format$(Int("1234567" / 10) / 10, "0.0")
という風にすることにしました。
0046デフォルトの名無しさん
NGNGなぜかわからないんですが、
突然PictureBoxのプロパティウインドウのHeightとWidthの単位が
ピクセルになってしまいました。
通常HeightとWidthの単位はTwipですし、
単位を変えることは出来ないと思ったんですが、
もしかしたら変えることが出来、私がそれを触ってしまったんでしょうか？
もし戻せるのであれば、どのようにして戻せばいいのでしょうか？
0047デフォルトの名無しさん
NGNGピクセルになってるとわかってるんなら、そこをいじればTwipになるさ
0049デフォルトの名無しさん
NGNGformの。
0051デフォルトの名無しさん
NGNG0052デフォルトの名無しさん
NGNGSetWindowRgnとか
境界のないピクチャボックスの中においてみるとか
0053デフォルトの名無しさん
NGNGスマソ
下二つのような方法をとらんで出来ないものかと思っていたがなんかムリっぽい
あきらめるよ
0054デフォルトの名無しさん
NGNGテーブル(DB)のフィールドに「Book」で入ってるか「本」で入ってるかわからない(両方存在することはないが両方存在しないことはある)
Recordsetに「Book」で入ってるか「本」で入ってるかわからない(両方入ってることはないが両方入ってないことはある)
そうやってやりとりしたデータを配列strArr() as String(の１つに)に「Book」か「本」の値を入れたい。
というようなことがテーブルの仕様がよく変わるわたしは結構あるのですが解決する名案はないでしょうか？
「Book」のエイリアスを「本」というようにうまく定義できればいいのですが(実際には「Book」以外の列もいろいろエイリアスをつけたい)
どうやって実装すればいいのか案が思い浮かびません。
知恵を貸して下さい。
0055デフォルトの名無しさん
NGNGたのむ。日本語勉強してくれ。
現状どうなっているのか、どうしたいのか、なにが問題なのか。
人に伝える文書で頼む。
0056デフォルトの名無しさん
NGNGﾜﾗﾀ。
PG辞めてお笑いblog職人として生きるって手はどう？
0057溝田 千壽喜
NGNG彼の言うことを要約すると、嫁が憎いてなことを言ってます。
そんなことはどうでもいいんだが、
テキストボックスにセットフォーカスやろうとすると、
「プロシジャーの呼び出しまたは引数が不正」とか
わけの分からん事言われてエラーになるんだけど、
どうしたらいいですか。
ちなみに、プロパテイは、Visible、Enabled共にトルーに
なってます！
0058溝田 千壽喜
NGNGF10キーが押されたら、処理が実行されるな画面を作ってるんだけど、
当然F10キーが押されると、メニューバーにフォーカスが行ってしまって、
困ってるんでるんですけど、どうしたらいいですかね。
0059デフォルトの名無しさん
NGNG知ってるが お前の態度が 気に食わない
0060溝田 千壽喜
NGNGえぇーー！
そんなこと言わずに教えてください。
0061デフォルトの名無しさん
NGNGOption Explicit
Private Sub cmd_Click(Index As Integer)
On Error GoTo cmd_Click_Err
Select Case Index
'Case 0 '新規作成ボタンを押下
'新しいテキストを追加する
'Case 1 'Lookボタンを押下
'登録されているテキストを呼び出す
'Case 2 '検索ボタンを押下
'DBにつなぐ検索エンジンらしきもののテキストにつなぐ
Case 3 '終了ボタンを押下
'閉じる
Unload Me
EndSelect
Exit Sub
cmd_Click_Err:
Call ErrMsgDisp("cmd_Click_Err")
End Sub
これってどうやって解けばいいのですか？？？
すみません、教えてください
0062デフォルトの名無しさん
NGNG0063溝田 千壽喜
NGNGテキストボックスにセットフォーカスやろうとすると、
「プロシジャーの呼び出しまたは引数が不正」とか
わけの分からん事言われてエラーになるんだけど、
どうしたらいいですか。
ちなみに、プロパテイは、Visible、Enabled共にトルーに
なってます！
F10キーが押されたら、処理が実行されるな画面を作ってるんだけど、
当然F10キーが押されると、メニューバーにフォーカスが行ってしまって、
困ってるんでるんですけど、どうしたらいいですかね
0064デフォルトの名無しさん
NGNG仕様が伝わってこないので、こちらとしても何ともし難い。
006561
NGNGオブジェクト内の
新規ボタンを押したら 新規作成画面へ
Lookボタンを押したら登録されているテキストの画面へ
検索ボタンを押したら検索画面へ
終了ボタンを押したら 終了です・・・
仕様とかいう言葉もあんまりわかってないのですみません
よろしくお願いします
0066デフォルトの名無しさん
NGNG新規作成画面と言われても。
あなたがわからないのに、どうやって作ればいいと言うのか・・・
0067デフォルトの名無しさん
NGNG自称天才の割には・・・。
前半、デバックで実行すれば、どのプロシジャの呼び出しで引数不正かでるでしょ？
それ見れば。
後半、一般的にはWindowsのデフォルトは尊重すべき。
逆らうならKeyPressかKeyDownだったかで、F10キー押下時にKeyCodeかKeyAsciiを0（など）にしてしまう。
副作用は自分でどうにかしろ。
006865
NGNGたびたび申し訳ないです。
新規作成 Look 検索はとりあえずは新しいFormに行くような形にしたいのです。
さっぱりわけがわかんなくて困っているのです。。。
ほんと、すみません
0069デフォルトの名無しさん
NGNG相手をするなよ
0070デフォルトの名無しさん
NGNG本屋にいって入門書を買って来い。
または入門系のHPを見る。
最近入門の話題があったとおもうからそこを辿れば？
質問以前の問題です。
0071デフォルトの名無しさん
NGNG学校の宿題か何かでしょうか。でしたらご自身のノートを見てください。
いいかげんな解答してあなたを困らせたくもないですから。
0072溝田 千壽喜
NGNG氏ね
>>67
前半の件
それが、
txtText.SetForcsなの。
そこの場所でエラーになってます。
先ほども申し上げましたが、プロパテイは
Visible、Enabled共にトルーに
なってます！
後半の件
スゴイ！直った！君天才！
でも、その副作用って例えばどんなのがあるの！
0073デフォルトの名無しさん
NGNG│あ、どうもｽｲﾏｾﾝ、>>72がお騒がせしました･･･
└───v───────────────
／⌒＼ っ ／＼
/'⌒'ヽ ＼ っ／＼ |
（●．●） ）／ |: | すぐ連れて逝きますんで･･･
>冊/ .／ |: /
/⌒ ミﾐ ＼ 〆
/ ／ |::|λ| |
|√7ミ |::| ﾄ、 |
|:／ V＿ハ |
／| i | ∧|∧
и .i Ｎ /⌒ ヽ） >>72
λﾍ、| i .ＮV | | |
Ｖ＼Ｗ （ 、 ∪
|｜ |
∪∪
0074溝田 千壽喜
NGNG氏ね荒し！
0075デフォルトの名無しさん
NGNG>>74
あんたもう少し”普通”の会話覚えたほうがいいよ。
さっき少し答えたけど、あんた>>72見てナチュラルにムカついたので、後は自分で勝手に調べれば？って思った。
0076溝田 千壽喜
NGNGいや、漏れは少し口は悪いがいい奴です。
txtText.SetForcsなの。
そこの場所でエラーになってます。
先ほども申し上げましたが、プロパテイは
Visible、Enabled共にトルーに
なってます！
0077デフォルトの名無しさん
NGNGテキストボックスの表示文字数や行数の限界は有るのでしょうか？
テキストファイル読み込み、それをテキストボックスに表示させるプログラムを書いたのですが
90kbのテキストファイルを表示させようとした場合3分の2程度表示され、それ以降がなぜかカットされてしまいます。
全てを表示させる手があれば教えてほしいです。
ソースは以下です。
Private Sub Command1_Click()
' テキストを読みこむ
Dim fn As Integer
fn = FreeFile
Open "サンプル.txt" For Input As #fn
Text1.Text = StrConv(InputB(LOF(1), #fn), vbUnicode)
Close #fn
0078デフォルトの名無しさん
NGNGMSDNのコントロールの制限を参照
0079デフォルトの名無しさん
NGNG0080デフォルトの名無しさん
NGNGスクロールと連動して表示内容かえるような構造にするしかないんでない？
008177
NGNG>79
「Text プロパティ テキスト ボックス(ＴｅｘｔBox)コントロール 最大 64KB までに制限されています。 」
と書いてありました。明確なお返事ありがとうございます。
リッチテキストを使用してみますね。
>80
まだ未熟なもので、「符号付３２ビット」「構造」など用語がいまいちわかりません。
今後調べながらそれもやってみようと思います。
0082デフォルトの名無しさん
NGNGいくつもピックアップして貰えたほうが嬉しいです。
我がまま言うと値段が安いのを希望してます。
0083デフォルトの名無しさん
NGNGVisual Basic6.0 入門編 ＆ 実践編 とかどう？
0084デフォルトの名無しさん
NGNG使用して、階層表示は出来るのですが、始めから
展開されている状態なので、初期表示時は折りたた
まっているようにしたいのですが、何か設定方法
はありますでしょうか？
環境はWindowsXP
VB6.0
access2000
です。
プロパティ類は全部見ました。
宜しくお願いいたします。
0085デフォルトの名無しさん
NGNG＞いや、漏れは少し口は悪いがいい奴です。
昔一緒にやってたバカが同じことで悩んでて、笑っちまったい。
頭は悪いが調子がいい奴だったぜｗ
TextBoxのコンテナのEnableがFalseとかじゃねーの。
フォームが表示されてない状態でもそーなるしな。
間違いなくてめーの恥ずかしいような凡ミス。
黙ってコードおっかけてろ。
0086デフォルトの名無しさん
NGNGプロキシが切り替わりません。
一応、StateChangedイベントでicDisconnectedがわたったのを確認してから
プロキシを切り替えてExecuteしてるんですが、それでもダメです。
どうすればいいですか。
0087デフォルトの名無しさん
NGNGしらないなら黙ってればいいのに。
0088デフォルトの名無しさん
NGNGINTERNET_OPEN_TYPE_PROXY とかでぐぐればでてこない？
0089デフォルトの名無しさん
NGNGおまぇ、日本語が読めねぇのか？
>>76で、
＞Visible、Enabled共にトルーに
＞なってます！
言ってるでしょ。
ちなみに、SetForcs直前で、Visible、Enabled共にトルーに
しています。
さあさあ答えなさい
0090デフォルトの名無しさん
NGNGおい基地害。
85を100回音読しろ。ちゃんと答え「も」書かれてる。
0091デフォルトの名無しさん
NGNGフォームは表示されていない。
0092溝田 千壽喜
NGNGがちょーん！
そのとうりですた・・・・。
しかし、インターネットってすごいですね。
そんな事まで分かっちゃうんですね。
ところで、Form_Initalizeってイベント何なんですか？
なんかForm_Loadの前に実行されてるみたいですけど。
0093デフォルトの名無しさん
NGNGで、おまえ口の聞き方を覚えるのと、入門書買って来るのと、MSDNぐらい見ろ。
0094グレープ町
NGNGdenpyomanに入力して、datacenterに配列として渡したデータを、追加ボタン押下時に
SQLサーバーなどのDBに入力するにはどうしたらいいのですか？？
denpyomanを使っているかたどのようにされているのでしょうか？
0095デフォルトの名無しさん
NGNGユーザーサポートに聞いたら？
009693
NGNG○皆様、相手をしないでください。
0097デフォルトの名無しさん
NGNG(MainFrom)
Private Sub cmdNURUPO_Click()
Dim ぬるぽ as string: ぬるぽ=txtNURUPO.Text
Call sub_OpenFile(ぬるぽ)
End Sub
(標準モジュール)
Sub sub_OpenFile(FileName as string)
Open FileName For Input As #1
For I = 1 To 10
Input #1, tempX(I)
Next I
For I = 1 To 10
Input #1, tempZ(I)
Next I
Close #1
End Sub
(続く)
0098デフォルトの名無しさん
NGNGMsgBox"ガッ"
Eles
MsgBox"ガッガッガッ"
End Sub
0099デフォルトの名無しさん
NGNGここで、txtNURUPOにファイルのフルパスを入れるとうまくファイルを読み込みます。
しかしパスが C:\Documents and Settings\Ore Desu\デスクトップ\データ.txt
のように、たぶん反角スペースが含まれていると、
「実行エラー52 ファイル名、または番号が不正です」
と出てきます。どうすればこのようなパスのファイルでエラーが出ないようになりますか？
あと、
Open "データ.txt" For Input As #1 にして、
実行ファイルを作成してから同じフォルダにデータ.txtを入れておくとうまく読み込むのですが、
そうしないで、txtNURUPO.Textに データ.txt って書いておいても
「実行エラー52 ファイル名、または番号が不正です」
とでてきます。どうすればよいですか？
ご教授お願いします。
0100デフォルトの名無しさん
NGNG0101デフォルトの名無しさん
NGNGIf Dir(FileName) = vbNullString Then
strMsg = "["
If InStr(1, FileName, "\") = 0 Then
strMsg = strMsg & App.Path & "\"
End If
MsgBox strMsg & FileName & "]はない"
Exit Sub
End If
■ このスレッドは過去ログ倉庫に格納されています