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

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

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

ListViewコントロールで、アイテムを選択した時を検出したいのですがうまくできません。
エクスプローラーみたいに、ファイルを選択すると容量とか表示されるようにしたいです。
もちろん、マウスでドラッグしての複数選択や、Shift,Cｔｒｌキー押しながらの複数選択も検出します。
どうやればよいでしょうか？

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

>>36
> 例えばsin(180)は0のはずなのに-0.801152...となる

ねぇ、「ラジアン」って言う単位知ってる ?

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

知らないから聞いてるんですよ、たぶん

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

kanisawa.poti@nifty.com

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

>>39
> 知らないから聞いてるんですよ、たぶん

知らないなら調べろ。

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

ここに書き込んで調べてるんですよ、たぶん

39 · NG

「ラジアン」っていう言葉を知らなかったら調べようがないでしょう？

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

>>43
> 「ラジアン」っていう言葉を知らなかったら調べようがないでしょう？

MSDN 読んだことないの ? Sin 関数の一番下に...

角度の単位を度からラジアンに変換するには、度にπ/180 を掛けます。ラジアンから度に変換するには、ラジアンに 180/πを掛けます。

と書いてある。これでわからないなら、プログラマー辞めたほうがいい。

39 · NG

>>44
私は37ではありませんよ、一応。

**nobukiti** · NG

VB6 + Oracle　で本社と各拠点をOCNエコノミーの128kbpsで常時接続し
普通のクライアントサーバーシステムを作りたいのですが、問題点等は
ありますでしょうか？
本社にOracle Serverを置いて、各拠点からoo4oで繋いでデータの参照、
更新等するつもりです。データ件数的には1000件未満を想定しています。
速度面、パフォーマンス等で遅かったりするのでしょうか？
今までLANでの普通の10Base-Tで使用する事を前提とした開発しか経験した
ことがないので、128kbps程度の回線速度だとどうなるかよくわからないのです。
ご面倒でしょうが、お知りの方おられましたらお教え下さい。

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

ADOでMDBにアクセスするVBアプリ作ってマス！
日付型の項目がNULLの場合のSQL文書いてるンですけど

WHERE 日付 = ##

ではないのですか？

**nobukiti** · NG

答えろオラ

46 · NG

>>48
名前がかぶってますよ。

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

>>46
そりゃ、LANよりは遅いけど、気を配って作れば問題なし。

**nobukiti** · NG

>>50
ご返答ありがとうございます。
ちなみに 48は私じゃないです。

そうですか、、、
＞気を配って作れば問題なし。
この、気を配ってというところはストアドとかを使って
できるだけネットワーク上のトラフィックを減らした
作り込みが必要という意味ですかね？
ストアドはあまり組んだことがないので不得意なので
どうしようか迷っています。

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

>47
Is Nullじゃないの？

**nobukiti** · NG

私という戦うバディ♪

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

質問があります。
VBSでGifヘッダーを取得したいのですが、セーフアレイなバイト配列を
どうしても文字列にする事が出来ません。
s(0)～(5)までを6文字の文字列に変換したいのですが。

Set astImage = WScript.CreateObject("ADODB.Stream")
Set oFS = WScript.CreateObject("Scripting.FileSystemObject")
Const adTypeBinary = 1
astImage.Type = adTypeBinary
astImage.Open
WScript.CreateObject("WScript.Shell").CurrentDirectory = oFS.GetParentFolderName(WScript.ScriptFullName)
astImage.LoadFromFile ".\fileStock\test.gif"
Dim s()
ReDim s(12)
For i = 0 To 12
s(i) = astImage.Read(1)　'←これ
Next

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

>>51
もちろんストアドにするのも大事だ。
例えばOO4Oをよく理解してる？
ダイナセットひとつとってもいろいろパラメータあるでしょ？
あれも、最適なものを指定してやるとか。

**nobukiti** · NG

>>55
やはり、色々あるんですねー
パラメーターとか調べてみます。
ありがとうございました

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

>56は苦労しそう

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

>>54
一文字ずつ格納汁

25 · NG

ぎゃーだめだー。
バックアップはサーバ機のみで取れるという仕様にしよう！

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

>58
ありがとうございます。
For i = 0 To 12
s(i) = AscB(astImage.Read(1))
Next
で、出来るようになりました。

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

NULLで埋めるってどういうことですか？
NULLってなんですか？

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

タクスバーのプロパティ「自動的に隠す」を切り替える、VB関数か、
APIを教えてください。見つからないよぅ(つд｀)

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

WINSHELLAPI UINT APIENTRY SHAppBarMessage(
DWORD dwMessage,
PAPPBARDATA pData
);

Parameters
ABM_ACTIVATENotifies the system that an appbar has been activated.
ABM_GETAUTOHIDEBARRetrieves the handle of the autohide appbar associated with a particular edge of the screen.
ABM_GETSTATERetrieves the autohide and always-on-top states of the Windows taskbar.
ABM_GETTASKBARPOSRetrieves the bounding rectangle of the Windows taskbar.
ABM_NEWRegisters a new appbar and specifies the message identifier that the system should use to send notification messages to the appbar.
ABM_QUERYPOSRequests a size and screen position for an appbar.
ABM_REMOVEUnregisters an appbar, removing bar from the system's internal list.
ABM_SETAUTOHIDEBARRegisters or unregisters an autohide appbar for an edge of the screen.
ABM_SETPOSSets the size and screen position of an appbar.
ABM_WINDOWPOSCHANGEDNotifies the system when an appbar's position has changed.

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

>>63
ｷﾀ━(ﾟ∀ﾟ)━( ﾟ∀)━( 　ﾟ)━(　　)━(　　)━(ﾟ　)━(∀ﾟ )━(ﾟ∀ﾟ)━!!!!!
ありがとうございます。
現在実験中です、AppBarDataがちょと難しいです・・・がんばります。

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

>>61
その文字列をすべてChr(0)の文字にする、ということだと思われ。

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

>>63
君の資料は古いと思われ。

>>64
ABM_SETSTATUSを使う。ただし、WinXPでしか効かない。
Win95、98、NT4、2000でダメなことは確認済み。

それ以外の環境だと10個くらいのAPI駆使して、
無理やり設定ダイアログだして「自動的に隠す」を切り替える方法を
取ろうとしていた人もいたがうまくいったかどうかは知らない。

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

>61
ttp://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=utf8&oe=utf8&q=NULL%E3%81%A8%E3%81%AF

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

>>66
win98です、だめそうですね・・・
あきらめます、ありがとうございました。

NG

ＶＢってさ、メモリリークを起こすかな？

配列とか確保しても解放しなくてもいいよね？

誰か教えて。

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

循環参照がだめなんじゃなかったっけか。

NG

ＶＢ６のＳＰ５を入れてます。

画面を作るときに、リストボックスの大きさをＦＯＲＭの大きさにより
変更したいのですが、標準でそのようなコントロールは、あるのでしょうか？
教えてください。

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

>>69
その配列を private で使用しているフォームのunload時に、
set frmXXX = Nothing
とすればそのfrm内の配列は開放される。
逆にこれを入れないとform内の全ての保持値がメモリに残ったままになっているので
（ＶＢアプリを終了するともちろん解放されるが）
保持しておく必要がないなら入れるべきだろう。

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

>>66
WinAPI使うたびに思うんだけど、なんでもっと便利関数にしないのかな。

TaskBarAutoHide(TRUE);

みたいなAPIを用意してくれればいいのに。

NG

追記
フレームみたいに二つのリストボックスの大きさを調整したいんです。

74 · NG

追記は 71に対してです。

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

>>72
ﾌﾟ

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

VB.Netでつくったアプリは、
Win98以下は対応にならないんですか？

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

>>72
勝手に仕様を作るな

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

>>71 >>74 >>75
何をやりたいのか意味不明です。

＞画面を作るときに、
もしやデザイン時に、って事？

＞リストボックスの大きさをＦＯＲＭの大きさにより変更したいのですが、
普通に変更すればいいんじゃ・・・

＞標準でそのようなコントロールは、あるのでしょうか？教えてください。
どのようなコントロールかわからないので答えられないです。

＞フレームみたいに二つのリストボックスの大きさを調整したいんです。
フレームもリストボックスもサイズ変更の仕方は同じでは。

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

>>78
じゃあどういう仕様だよ。
教えれ.

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

>>72 >>80
Unload時にNothingを代入しても配列は解放されていませんが何か？
ヒント Main関数のDim～の行をコメントアウトすると解放されるけどね。

<Module1>
Sub Main()
　　Dim Form1 As New Form1
　　Form1.Show vbModal
　　MsgBox Form1.arraysize
End Sub

<Form1>
Private m_a() As Long
Public Property Get arraysize() As Long
　　On Error Resume Next
　　arraysize = UBound(m_a)
End Property

Private Sub Form_Load()
　　ReDim m_a(100)
End Sub

Private Sub Form_Unload(Cancel As Integer)
　　Set Form1 = Nothing
End Sub

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

誰か教えてください…
マウスの右クリックとctrlｷｰの使用が禁止されているアプリケーションから、
ﾃｷｽﾄデータをコピーするプログラムを作成中です。
しかし、上記の禁止事項の為に、クリップﾎﾞｰﾄﾞの中にﾃｷｽﾄデータを持ってくることが
出来ません。
コピーを行いたいﾃｷｽﾄを反転させる事までは可能です。

使用言語はVB6.0とVC++６。０です。

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

上記の禁止事項に引っかからずにクリップﾎﾞｰﾄﾞの中にﾃｷｽﾄデータを持ってくるような仕組みを作りなされ。

NG

>>79

エクスプローラーとかでフォルダが出てる部分とファイルが出てる部分がありますよね。
そのフォルダのフレームの大きさとファイルのフレームの大きさは、
両方の真中にある区切りで調整できます。
また、エクスプロラー自体の大きさを変えても、
フォルダやファイルの部分の大きさが変わります。

こういうのをやりたいのですが、その真中の区切りみたいなのは
何かコントロールでできないかということです。

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

>>84
アプリケーションウィザードで、エクスプローラースタイルのを
作ってみてコード見てみ。やってること分かるから。

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

>>84
真中の区切りというのは左右のコントロールの境い目という事ですね。理解しました。
左のコントロールのWidthプロパティ、右のコントロールのLeft及びWidthプロパティを調節すればOKです。

ちなみに「フレーム」というと通常VB組み込みのフレームコントロールの事を指すと思います。
混同するので>>74 >>84のような意味では使わない方がよろしいかと。

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

あぅ

**82です** · NG

>>83
教えて貰えませんか？

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

Split 関数のデリミタに２個以上の文字を指定する事は可能ですか？
１個ずつ指定した Split 関数を何回か呼ばないとダメかな？

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

誰か教えてちょー。
画像をクリックしたりして移動させたり特定の場所にくると吸い付いたり
その他の場所だと元にもどたっりするようなソリティアみたいな感じの・・

83 · NG

>88
教えるもなにも、仕様の問題だから何ともいえないよ・・・
パッと思いつく方法としては、テキストを選択すると、その周辺にコピーボタンが表示されるとか。
Officeみたいな奴ね。

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

>>91
他のアプリケーションって書いてあるだろ。ちゃんと読んでやれよ。

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

Shift+Deleteの切り取りを使えるならそれ

？ · NG

>>89　一方の区切り文字をReplaceでもう一方の区切り文字に置き換えてからSplit

83 · NG

>92
取得元が他のｱﾌﾟﾘだと何か不都合でもあるの？
どっかのパッケージで中身が一切さわれません、ってならともかく。

89 · NG

>>94
おおっ！　かしこい！
そんなやり方があったんだ。感謝。

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

>>95
だからどっかのパッケージで中身が一切さわれないんだろ。

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

プロージャ内で
Dim str as String
などと宣言しておいてからにまったく使用していなければ、
コンパイル時にこの str の領域をわざわざ確保しないようにしてくれますか？

**82です** · NG

ええと、ctrlキーまたはshiftキーを押下げ、または
右クリックをすると、｢そのキーは使えません｣、
と言ったメッセージボックスが出るようになっていて、
コピーをすることが出来ません。今のところ、
clipboard.settext screen.activecontroll.seltext
でやってみようと思って居るのですけど、このままでは動かないみたいです。
フォーカスがあっていないみたいなのですが、それに関する記述が
必要なのでしょうか？

？ · NG

>>82 = 99
著作者がコピーさせたくないと思ってるであろうものをコピーしようとするのはどうなんでしょう・・・
てのは置いといて、パッと思いつくのは
そのアプリが使用しているデータファイルを直接読み込んでそのアプリの機能も統合したソフトを作る(w

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

>ええと、ctrlキーまたはshiftキーを押下げ、または
>右クリックをすると、｢そのキーは使えません｣、
>と言ったメッセージボックスが出る

そのてのキーを無効にするってんならともかく、いちいちメッセージ出すあたり
そのへんの糞シェアウエア並みの仕様だなｗ

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

>>101 別に普通の仕様じゃん。

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

配列はEraceで消すんだよ

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

× Erace
○ Erase

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

37なんですが。
誰か教えて。。

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

>>105
ヘルプみろ

37 · NG

とっくにみてますよぉ。

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

>>107
リストボックス特有のイベントになにがあるか言えるか？
それを全部試せ。

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

>>107
ListView_ItemClickかな。
罠があった気がするけど。

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

>>81
> Unload時にNothingを代入しても配列は解放されていませんが何か？

ったく、VB 厨はいつまでたっても進歩しないな。
お前が、Form1 の Form_Unload() で代入している、Form1 は Module1 の Form1 じゃねーぞ、ヴァカ。

81 · NG

>>110
わかってるよ。お前は文章も読めないのか？勝手に三行目を消すな。

**ヴァカはお前** · NG

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

66 · NG

>>73
そうするとAPIの数が数十倍に膨れ上がる罠。

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

>>77
>VB.Netでつくったアプリは、
>Win98以下は対応にならないんですか？

Win98は対応している。Win95が対象外。

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

>>82
その糞ソフトの名前晒せ

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

BorderStyleを可変や固定-実線にすると、
タスクバーに切り替えボタンが表示されますよね？
BorderStyleをなしにしてそのボタンを表示させたいのですが、
どうしたらいいでしょうか？

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

>>111
> わかってるよ。お前は文章も読めないのか？勝手に三行目を消すな。

真からヴァカだな。大体、VB 厨の >>81 が Set Form1 = New Form1 なんてことするから、わからなくなるんだよ。
Set FormX = New Form1 とかしてみれ、ヴォケ。
念のために言っとくけど、その下もちゃんと修正するんだぞ。その行だけ変えて、ププッとか書いてくるなよ。
(Form1 の Form_Unlaod の中をどう修正するのかが、楽しみだよ。)

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

>>117
お前>>72読んでないだろ。だから文章読めないって言われるんだ。
>>81は>>72に対する皮肉。わざと問題のある例をだしてるんだよ。
日本語から勉強しなおして来い。

**デフォルトの名無しさん** · 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

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

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

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