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

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

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

> その行だけ変えて、ププッとか書いてくるなよ。

（　´,_ゝ`）ﾌﾟﾌﾟｯ

**118** · NG

皮肉というより問題定義と言った方がいいな。

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

> 真からヴァカだな。大体、VB 厨の >>81 が
仲間割れですか？

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

>>121
ヴァカは仲間ではありません。

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

ていうか、Unload時にちゃんと = Nothing しても、
そのフォーム以外からの参照されるコーディングがあれば
= Nothing
の記述の時点では実は解放されていないだけ。
他から参照されるコーディングがなければちゃんと解放されてる。

formsコレクションでどういう場合にフォームが残っているか確認してみそ。

**123じゃないけど** · NG

UnloadでSet FormX = NothingなんてしなくてもFormsコレクションを含め
参照しているものがなくなればフォーム内の配列なんかは自然と解放される。

自分のフォームがたまたまグローバルなFormXで作成されているときはUnload時に
グローバルな参照を解放することによりその時点でフォームが削除されるけど、
自分のフォームがグローバルなFormXじゃない時にグローバルなFormXにNothingを
代入するのは意味ない。むしろ関係ないものをNothingしているからバグといってもいい。

Set FormX = Nothingで万事解決みたいな言い方をするのはよくわかってない奴の言うことさ。

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

>>72
1つ賢くなったね

37 · NG

ItemCheckだとそれらしい感じだけど
選択数を増やしていくのは問題ないけど減らしていくときイベントが起きないです。
あと、なんか選択している数分イベントが起きてしまいます。
MouseMoveでやろうとしたら、なんかドラッグしても最初しかイベントが起きなかったです

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

VB.NETについて質問させてください。

.NET FrameworkのCLR上で動作する.NETアプリケーションでは、
VB6.0まではレジストリに記録していたパラメータを「メタデータ」
なるものに記録することで、レジストリの操作が不要になったと本で
読みました。これは、どのような手法によって実現するのでしょうか。
例えば、ウィンドウの位置や大きさなどを、レジストリに頼らずに
起動時などに読み込みたいのです。基本的な記述方法を教えて
いただけるとありがたいです。よろしくお願いします。

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

>>126
とりあえず、Timerと組み合わせて誤魔化せ。漏れはそうした。

37 · NG

Timerはさけたいなぁ

？ · NG

>>129
要はやりたい事がListViewの仕様と合ってないんでしょ。
なら違うコントロール探すか、無ければ作るか、
または他のもので代用するか、やりたい事をある程度妥協するか。

**nobukiti** · NG

画面を常に最前面に表示ってSetWindowPos使うしかないんでしたっけ？
プロパティちょちょっといじってできませんでしたっけ？

？ · NG

>>130補足
③表形式のコントロールを使うに0.7票　④に0.3票

**nobukiti** · NG

答えろオラ

**nobukiti** · NG

>>133は僕ではありません。

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

自分で調べろオラ

NG

>>98

先頭に ' をつけとけば大丈夫（ｗ

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

>>131
何故SetWindowPosじゃダメなの

**135** · NG

>>135は僕ではありません。

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

∧　　　　　　　　　　　　 ∧
　　　　　　/.::ヽ　　　　　　　　　　　/.:: ヽ
　　　　　　/.:::　ヽ　　　　　　　　　 /.::::　ヽ
　　　　　 /.:::　　ヽ　　　　　　　　 /.::::　　ヽ　　　　　このスレは一体
　　　　　/.::::::.　　ヽ,,,,,,,,,,,,,,,,,,,,,,,,,,,/.::::::::.　　ヽ
　　　　/.:::::::::::　　　　　　　　　　　　　　　　ヽ　　　　　　　何なのですか　　　　　　　　　
　　　 /.:::::::::　　　/　　　　　　　　ヽ　　　　　ヽ
　　　/.:::::::　　／ ‐･‐　　　　　‐･‐＼　　　　ヽ
　　ヽ.::::::　　　　　　　.::::　　　　　　　　　　　 /
　　　ヽ.:::::　　　　　 .:::::　　　　　　　　　　　/
　　　　ヽ.::::　　　　　＼＿＿／　　　　　　/
　　　　　ヽ.::::　　　　　＼／　　　　　　 /
　　　　　　＼.:::::　　　　　　　　　　　／

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

>139
その耳のズレは一体何なのですか？

**135** · NG

frm_呼び先.Show 1, frm_次画面

で最前面表示できるべヨ？

**135** · NG

>>141
これ僕です。

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

自分がつくってるソフトにいつのまにか
Microsoft Data Formatting Object Library( MSSTDFMT.DLL)
に参照設定がついてしました

ランタイムにはこれがはいってないものもあるらしくつかわないで済むなら
使いたくないのですが　どのようなものに必要とするのでしょうか？
また参照設定をはずしても問題なさそうなのでそのままコンパイルしましたが
環境によって　MSSTDFMT.DLL　がないとエラーがでて起動しませんでした

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

前なったことがあるけど普通に切った。なんとも無い。

**nobukiti** · NG

ちんこ

NG

ＶＢで作ったＡｃｔｉｖｅＸのＤＬＬなんですが、ＶＢでは使用するとちゃんと
ＤＬＬ内でイベントを発生するんですが、ＥｘｃｅｌのＶＢＡで用いると
イベントが発生しません。
どうしてかどなたかわかりますでしょうか？

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

質問させてくださいませ。
chck_cntの値が◆の時点で消えちゃうんだけど、
原因は何なんですかね？こんな現象初めてで、
困ってます。。。

function checkbox()
　　　dim iDatLoop
　　　dim iDatArray
　　　dim chck_cnt
　　　chck_cnt = 0
　　　Response.Write chck_cnt▲
　　　iDatArray=session.Contents("GHERLST_Dat")
　　　for iDatLoop = 0 to session.Contents("GHERLST_Cnt")-1
　　　　　　if request("ErrSend" & iDatLoop)="1" then
　　　　　　　　　iDatArray(iDatLoop,0)=1
　　　　　　　　　chck_cnt = chck_cnt + 1
　　　　　　　　　Response.Write chck_cnt◆
　　　　　　else
　　　　　　　　　iDatArray(iDatLoop,0)=0
　　　　　　end if
　　　next
　　　Response.Write chck_cnt○
　　　session.Contents("GHERLST_Dat")=iDatArray
　　　checkbox=chck_cnt
end function

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

取り敢えずLongとか型宣言しろ

**147** · NG

ASPなんですが・・・。

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

「消えちゃう」ってｽｹﾞｪよ。
次はハトが出そうだなｦｲｗ

**nobukiti** · NG

>>147
？さんの登場を待て。
彼ならなんとかしてくれる

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

ずびばぜん、
フォーム上でExcelのワークシートを表示したいのですが、
どういう方法で実現できるのでしょうか。。

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("hogehoge.xls")
Set xlSheet = xlBook.Worksheets("Sheet1")
xlApp.Visible = True

↑これだと、Excelが起動してシートがひょうじされますが、
そうでなくて、フォーム上にグリッドのように表示したいのです。
全ての値をグリッドに放り込むしかないのでしょうか？？

**146** · NG

解決しました。
エクセル側での入力ミスでした～～

宣言した時に設定したオブジェクト名が間違えてました。

？ · NG

>>147
消えちゃう、でなくてゼロになるとかNullになるとか具体的に言う癖付けたほうがいいかも。

で、こんな感じになってないかな？
Option Explicit
Dim flg As Boolean

Sub a()
　　Dim cnt As Long
　　cnt = 0
　　If flg = 0 Then
　　　　cnt = cnt + 1
　　　　b cnt
　　End If
　　MsgBox cnt
End Sub

Sub b(cnt As Long)
　　flg = 1
　　a
End Sub

**147** · NG

>>154
自己解決しますた(*´д`*)

IISの環境にデバッガが導入されてなかったから
見つけ出すのに苦労しました(*´д`*)

session.Contents("GHERLST_Dat")に代入する
変数のRedim時に値の入ってない変数を使ってた(*´д`*)
変えたの誰だよ！って感じです(*´д`*)

NG

ＯＤＢＣ経由（ＤＡＯ３．６）でＡｃｃｅｓｓのＭＤＢを使用しています。

この時、このＭＤＢに含まれるテーブル名をすべて取得するには
どうしたらいいのでしょうか？

37 · NG

う～ん、そうか。
実現できないわけはない気がするけど。

NG

ListBoxでリストに加えた文字列がリストボックスからはみ出すほど長い
場合、下にスクロールバーとか出ればいいなと思うのですが、出せないでしょうか？

また、このようなコントロールはありますでしょうか？

37 · NG

>>158
わしが今悩んでるListView使えばいいんでないかいな？

**教えて！！** · NG

ＡＣＥＥＳＳでフォームを開く時に最大化するモジュールを教えて！！

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

>>158
SendMessage分かる？
ListBoxに「横スクロールバー表示しろやｺﾞﾙｧ!!」ってSendMessageすれば表示されるよ。

**156** · NG

156の続き

オラクルでテーブル名を取得する場合、
select * from tab;
とかやります。
こういうのないでしょうか？

**nobukiti** · NG

>>162
これちゃうのン？
http://www.google.co.jp/search?q=cache:Gj89wtoK65AC:www.accessclub.org/samplefile/samplefile_69.htm+ACCESS+%E5%85%A8%E3%83%86%E3%83%BC%E3%83%96%E3%83%AB%E5%90%8D&hl=ja&ie=UTF-8

**ぽん太** · NG

>>162
http://www.google.co.jp/search?q=cache:w1Mfjkp9pZoC:keep-on.com/~excelyou/1999lng4/199911/99110152.txt+ACCESS+%E5%85%A8%E3%83%86%E3%83%BC%E3%83%96%E3%83%AB%E5%90%8D&hl=ja&ie=UTF-8

**nobukiti** · NG

ぽん太氏ね

**158** · NG

>>161
おおっできた！
さんきゅ～～

http://www2.synapse.ne.jp/waka/Tequ02.htm

**162** · NG

>>162

ADODB.ConnectionとADODB.Recordset を使っては可能でしょうか？

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

Windows2000とかXPだと、確か英語版のランタイムがインストールされていましたよね？
ときどき文字化けしますってメールとかくるので、英語版のランタイムが入っていたら
「日本語版にしろやゴルァ」ってメッセージをだしたいのですが、
どうやったら判断できるでしょうか？
表示先ですけど、MsgBoxなら化けないですよね？

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

教えてください。
フレキシブルグリッドコントロールってＭＡＸ何行まで逝けるんですか？
１２５０１行目に行を追加しようとするとあぼーんしてしまいす。

**のの太** · NG

12500件も一度に表示させる必要あるの？
表示件数の上限を超えましたとかﾒｯｾｰｼﾞだして
アプリ側で表示件数制御させたら？

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

>>167
SELECT MSysObjects.Name FROM MsysObjects where type=1;
で出来ると思います。

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

よ～しらんけど、表示も遅くなりそうだし、
配列で保存しておいてある程度スクロールしたら書き換えるようにするもんじゃないの？
＞フレキシブルグリッド

**分かる人お願い** · NG

花見.bmpをPicture1.pictureにセット
"a"をかく
Picture1.ScaleMode = 3
Picture1.FontSize = 100
Picture1.CurrentX = 0
Picture1.CurrentY = 0
Picture1.Print "a"

'Picture2にPicture1をコピーする
Picture2.PaintPicture Picture1, 0, 0

このときPicture2には花見.bmpだけで、
プリントした"a"が表示されません。
どうしたら"a"も表示できるか教えてください。

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

すいません、質問させて下さい。
test.mdbというMDBにTESTとTMP_TESTという２つのテーブルがあります。
（二つのテーブルはまったく同じ形です）
TESTには一件のレコードがあり、SELECT文の実行でrs_testに取得します。
rs_testに格納されたレコードをrs_test2にコピーして
TMP_TESTテーブルにINSERTを行いたいのですが、どうしたら良いのでしょう？
色々試行錯誤してみたのですが、駄目でした。
どなたかアドバイスお願いします

**１７４** · NG

これがソースです。

Dim cnn As New ADODB.Connection ' ADOコネクションオブジェクト
Dim rs_test As ADODB.Recordset
Dim rs_test2 As ADODB.Recordset
Dim str_SQL As String

' 接続
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test\test.mdb;"

Set rs_test = New ADODB.Recordset
Set rs_test2 = New ADODB.Recordset

str_SQL = ""
str_SQL = "SELECT * FROM TEST"

rs_test.Open str_SQL, cnn, adOpenStatic, adLockPessimistic
rs_test2.Open "TMP_TEST", cnn, adOpenStatic, adLockPessimistic

Set rs_test2 = rs_test.Clone

rs_test2.AddNew
rs_test2.Update

rs_test.Close
rs_test2.Close

' 切断
cnn.Close

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

>>126
正直に言えよ。ホントはItemCheckじゃなくてItemClickなんだろ？

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

>>127
VB.NETネタは専用スレにお願いしまふ。
でもって、マルチポスト先でレスついてまふ。

37 · NG

>>176
うぉ、ホントじゃん。その通りって言うかなんでItemCheckなんて書いたんだか全く分けわからんです

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

>>178
何で書いたかわからないだと？ただの誤植だろ。heとliの違いしかないからな。
間違えても当然だ。それくらいわからんのか。

37 · NG

うむ、まぁそうではありますが。。

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

>156 (= >162)
SQLDMOでも使ってくれい。

？ · NG

>>174
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test\test.mdb;"
cnn.Execute "insert into TMP_TEST select * from TEST"
cnn.Close

**162** · NG

>>171

これが一番妥当そうですね。
http://www.zenko3.com/tips/access_system_object.html
に詳しくかかれてました。

NG

[Access2000]

VBからMDBへADOで接続し、
MSysObjects内のNameプロパティ値を取得しようと思ったのですが、
「MSysObjectsの読み取り権限がない」
というエラーメッセージが表示されてしまいます。
全てのオブジェクト名（テーブル、レポート、モジュール）を取得したかったのですが、
なにかよい方法はありませんか？

NG

テーブル名一覧取得

Dim cnnDB As ADODB.Connection
Dim rstList As ADODB.Recordset

Set cnnDB = New ADODB.Connection

' 接続を開きます。
With cnnDB
.Provider = "MSDASQL"
.Open "DSN=ＤＳＮ名を書く"
End With

' テーブルスキーマ行セットを開きます。
Set rstList = cnnDB.OpenSchema(adSchemaTables)

' 結果をループして、イミディエイトウィンドウ
' に名前と種類を出力します。
With rstList
Do While Not .EOF
If .Fields("TABLE_TYPE") <> "VIEW" Then
Debug.Print .Fields("TABLE_NAME") & vbTab _
& .Fields("TABLE_TYPE")
End If
.MoveNext
Loop
End With
cnnDB.Close
Set cnnDB = Nothing

**184** · NG

答えろオラ

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

DAOﾂｶｴ
DAO最強
DAOﾏﾝｾｰ

？ · NG

>>184
Dim str As String
Dim ac As Access.Application
Dim ag As Object

Set ac = New Access.Application
ac.OpenCurrentDatabase "c:\db1.mdb"
For Each ag In ac.CurrentDb.TableDefs
　　str = str & ag.Name & vbNewLine
Next
For Each ag In ac.CurrentProject.AllReports
　　str = str & ag.Name & vbNewLine
Next
For Each ag In ac.CurrentProject.AllModules
　　str = str & ag.Name & vbNewLine
Next
MsgBox str

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

アクセスが入ってないとダメぽ？

？ · NG

>>189 = >>184？
持ってないんですか？

**184** · NG

>>189
>>190

オフィス２０００がインストールしてあります。
あと、ＯＳは　ＸＰです。

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

DataGridの列数はどうやって増やすのですか？
プロパティ上にColumnなどのプロパティが見当たらないんです。
どなたかよろしくおねがします。

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

TWAINを使ってしてスキャナーを操作したいのですが、どうしても上手くいきません。
プレビューは出来たのですが、パソに取り込む事が出来ません。
取込する前に関数から戻ってきてしまっているみたいです。
よろしくお願いします。

また、TWAINの操作方法のサンプル等が有りましたらこちらも教えて貰いたいのですが・・・

**うきくん** · NG

自分のＰＣのシステム秒が５０になったときに、
実行させてる画面で、テキストボックスと
コンボボックスが消えちゃうんですけど。。。
visibleがfalseになる感覚です。

助けてください。

**184** · NG

システム病ってなによ？

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

いまさらですが．．．

>>120 ：118 ：02/09/24 23:53
>>皮肉というより問題定義と言った方がいいな。

問題提起の間違いですか？ﾌﾟﾌﾟ

NG

? len("３３３３123")
とやると
7が表示されます。

? lenb("３３３３123")
とやると
14となります。

実際、バイト数は11のはずなんですが、どうしたら１１と取得できるのでしょうか？

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

>>197
VBはUnicodeで文字を管理しているので半角も2バイトです。

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

>>188
どうでもいいことだが、strという変数名はいやだなあ。

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

>>197
FAQだけど
LenB(StrConv(文字列, vbFromUnicode))

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

>>197
普通は LenB(StrConv("hogeほげ",vbFromUnicode)) かな。
他に方法あったかな？

NG

ＡｃｔｉｖｅＸＤＬＬ側で、そのＤＬＬを呼び出した側のウィンドウのハンドルを
取得できるのでしょうか？

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

スタンダード版を買ってきてインストールしようとしたのですが、
最初の方のコンポーネントチェックでIE6でなと駄目と言われて
無理矢理インストールされそうになります。

2chのAAの関係でどうしても今使ってるIE5.01を残したいのですが、
IE6を入れてからIE5.01に戻すなんてことはできるのでしょうか？
ひょっとしてIE6を入れなくてもインストールできる方法があったりします？

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

>>203
VMwareで解決!

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

>>203
.NET?

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

>>204
何のことか分からないので検索してみます。

>>205
はい、VisualBasic.net　Standard　です　

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

>>203
.NETって事は、OSは2000かXP使うんだろ？
だったらIE6でも何もせずにフォント設定できるからAA問題なしじゃん。

仮に9x系でもズレを直すパッチってあるぞ。

つうわけで、IE6いれなされ。

**203** · NG

え、IE6でもずれないんですか？
OSはWindows2000の英語版使ってます。
とりあえず試してみますね。
駄目だったらそれまでということで(^^;
みなさんありがとうございました。

**みやさん** · NG

ＶＢ（Access）ではNULLと空の文字列（""）って同じですか？

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

･ｵ･ﾖ･ﾍ･ﾃ･ﾈ･ﾞ･ｹ･ｯ､霹ﾀ､ｹ､�ﾋ､ﾏ､ﾉ､ｦ､ｷ､ｿ､鬢､､､､ﾎ､ﾇ､ｷ､遉ｦ､ｫ｡｣

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

>>209
　「ＶＢ（Access）では」っていう書き方が気になるが
　違うものだろ　普通　＜NULLと空の文字列（""）

ふぅ · NG

VBで、FlashGetや、Irvineにあるような
分割ダウンロードを実装するにはどうしたらいい？
ちなみにもう普通のダウンロード部分は出来てるんですが・・・。

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

まず最初に普通にGET投げてContent-Lengthを得る。
その値を分割数で割り、
それぞれRangeヘッダ付けて分割数ぶんだけコネクション張りってな感じでは。

ふぅ · NG

>>213
あんたデキるナ？

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

サブネットマスクを得るにはどうしたらよいのでしょうか。

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

そりゃやろう思えばできるんじゃないかな。
でも既存のソフトに対抗できるクラスのものをVBで作ろうとしたら、
無謀とういうもので、やろうとは思わん。

ふぅ · NG

>>213
どうもです。
＞Rangeヘッダ付けて分割数ぶんだけコネクション張り
ここが私が知りたかった核心部分でした。助かります。

ちなみに、こんなことしてる理由はといいますと、実は
ダウンロードツールを作ろうとしているのでは無いです。
とあるオンラインゲームを作ってるんですが、そういうのってソフト側から
自動でパッチ落としてきて適用しますよね。
そのパッチを落とすときに必要っぽいんですわ。

**216** · NG

あ、>>214は「あんたデキるナ？」って書いてあったのか。
「あんたデキる？」って聞かれたのかとｵﾓﾀ。

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

>>217
なあVB初心者スレだぜ。

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

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