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

[0001 エロチカセブン NG NG]

　　Part 1 http://piza.2ch.net/tech/kako/968/968328471.html
　　Part 2 http://piza.2ch.net/tech/kako/990/990793224.html
　　Part 3 http://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
　　Part 4 http://pc.2ch.net/tech/kako/1006/10069/1006922992.html
　　Part 5 http://pc.2ch.net/tech/kako/1010/10106/1010624646.html
　　Part 6 http://pc.2ch.net/tech/kako/1013/10138/1013844542.html
　　Part 7 http://pc.2ch.net/tech/kako/1015/10158/1015836357.html
　　Part 8 http://pc.2ch.net/tech/kako/1018/10187/1018794901.html
　　Part 9 http://pc.2ch.net/tech/kako/1020/10208/1020830472.html
　　Part10 http://pc.2ch.net/tech/kako/1022/10221/1022127528.html
　　Part11 http://pc.2ch.net/tech/kako/1024/10243/1024380249.html
　　Part12 http://pc3.2ch.net/test/read.cgi/tech/1026642565/
　　Part13 http://pc3.2ch.net/test/read.cgi/tech/1029241786/l50
Win32 API関連スレ
　　Win32API 質問箱 Build4
　　http://pc.2ch.net/test/read.cgi/tech/1023361418/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでOK。
４．インストーラーなどの質問もOK。
五．下ネタもたまにならOK

[0002 デフォルトの名無しさん NG NG]

(ﾟДﾟ≡ﾟДﾟ)

[0003 デフォルトの名無しさん NG NG]

ドピュ

[0004 前スレ990 NG NG]

もたもたしてる間に勃ってしまった……手を煩わせてスマソ>>1&ﾓﾂｶﾚｰ

一応前スレ
Part14 http://pc3.2ch.net/test/read.cgi/tech/1030947162/

[0005 デフォルトの名無しさん NG NG]

　　　　　　　　　|　　　｜　　　　　　＼
　　　　　　　　　|　　￣|￣　　　　＼
　　　　　　　　　|　　＿|＿　　　　　｜　　　　　　　＼
　　　　　　　　　|／|／　　　　／　/　　＼　　　￣|
　　　　　　　　　　　　　　　　　　　　　　　　　　　/
　　　　　　　　　　　　　　∧ 　　　　　　　　　　　 ∧
　　　　　　　　　　　　 　/　・　　　　　　　　　　　/　';,
　　　　　　　　　　　　. /　　';　　　　　　　　　　./　　';
　　　　　　　　　　　　/　　　；＿＿＿＿＿＿/　　　；
　　　　　　　　　　／　　　　　　　　　　　　　　　　　　＼
　　　　　　　　 ／　　　 ／　　　　　　　　　　＼　　　　　＼
　　　　　　　 /´　　　　　　　|＿＿＿＿|　　　　　　　　　　｜
　　　　　　　 | 　///// 　　 |　　　　　| 　　　/////　　　 ｜
　　　　　　　｜　　　　　　　 .| 　　　　|　　　　　　　　　　　｜
　　　　　　　 |　　　　　　　　 |　　　　|　　　　　　　　　　　 ｜
　　　　　　　　|　　　　　　　　'; 　　 /　　　　　　　　　　　／
　　　　　　　　 ＼　　　　　　　 ＼／　　　　　　　　..　／
　　　　　　　 　　　ヽ　　　　　　　　　　　　　........:::::::＜

[0006 デフォルトの名無しさん NG NG]

VBの小ネタとかTipsとかもOK。前スレ1000は綺麗に終わったね。

[0007 前スレ979 NG NG]

とりあえず、スレの最後だったので途中になってしまったみたいなので、
前スレでの質問を答えると同時に、もう一回載せます。
−−−−−−−−−−−−−−−−
A,B,C,Dという四つの変数(整数型)を作って、(1 ≦ A, B, C, D ≦ 100 )
それぞれを乱数にして
A>=B And A>=C And A>=D And A+B+C+D=100
の条件を満たすA,B,C,Dの値を作りたいのですが

Do While A>=B And A>=C And A>=D And A+B+C+D=100
A=int(rnd*100)+1
B=int(rnd*100)+1
C=int(rnd*100)+1
D=int(rnd*100)+1
loop
と書くと非常に効率が悪いです。
もっと効率のいいプログラムってあるでしょうか？
私にはどうしてもこれしか思いつきません…
−−−−−−−−−−−−−−−
是非とも知恵を貸してください

[0008 デフォルトの名無しさん NG NG]

(*´д`*)ｱﾊｧ…　のほうがよかった

[0009 デフォルトの名無しさん NG NG]

Winsockコントロールについて質問があります。
サーバと複数のクライアントとの間でデータのやり取りをしているのですが、
ループなどを使ってサーバから複数のクライアントに一気にデータを送りたい
のですが、どのような方法があるでしょう？
例えば、
For i = 0 To 5
　　Winsock( i ).SendData "test"
Next i
みたいに書いても、最後のクライアント（５個目）には送られるのですが、
それ以前のクライアントには送られないのです。

[0010 デフォルトの名無しさん NG NG]

前スレ>>984
977ではないが、VBのCurrency型はかなり癖があるぞ。
VB5では「Int(100@/1@)」がP-Codeでは100,ネイティブでは99になったりする。
（開発環境か実行環境かの判断に使えたりするｗ）
ちなみにVB6ではどっちも100なんだよな。（まぁ仕様らしいが）
その他にもCurrency型の挙動不審はあったとおもう。（まぁ仕様だろうが）

・Currency型は保存と計算以外には使わない。
・Currency型以外と計算させない。（変換させるときは細心の注意）
・ネイティブできっちり検証する。
ってのがおいらの脳内ルールだな。
（Currencyに限らんがな。ヘルプに書いてあったと思うし）

[0011 デフォルトの名無しさん NG NG]

>>1
そのAAはｱﾊｧ…だろ。
文字変える余裕あるならAA変えてみせろ。

[0012 デフォルトの名無しさん NG NG]

>9
Winsock( i ).SendData "test"
の後にDoEventsいれたら？

[0013 デフォルトの名無しさん NG NG]

>>7
サンプルを作ってみた。

Private Sub Command1_Click()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim n As Integer

Dim datenow As Date

A = Int((100 - 0 + 1) * Rnd() + 0)
B = Int(((100 - A) - 0 + 1) * Rnd() + 0)
C = Int(((100 - (A + B)) - 0 + 1) * Rnd() + 0)
D = 100 - (A + B + C)

datenow = Now()

Debug.Print datenow; "A ="; A
Debug.Print datenow; "B ="; B
Debug.Print datenow; "C ="; C
Debug.Print datenow; "D ="; D
Debug.Print datenow; "A + B + C + D ="; A + B + C + D
End Sub

これじゃだめなのかな？

[0014 13 NG NG]

やべえ、nが意味ないよ・・・
Dim n As Integer
を脳内あぼーんして読んでください。
ｽﾏｿ

[0015 前スレ977 NG NG]

前スレの978、984へ
>Currency型の変数をFor文の制御変数に使っちゃだめよん。
の理由は、正常にループできない範囲があるから。

214748辺りの値からおかしくなるらしい。(V友より)
以下のコードを試すと暴走します。

Dim i As Currency
For i = 214747 To 214748
Debug.Print i
Next

[0016 デフォルトの名無しさん NG NG]

前すれ >>999
> A,B,C,Dが自然数だったら、
> n = 100
> A = int( rnd * ( n - n / 4 -2 )) + n / 4
> B = int( rnd * iif( A >= n / 2 - 1, n - A - 2 , n / 2 - 1 )) + 1
> C = int( rnd * iif(( A + B ) >= n / 2, n - ( A + B ) - 1, n / 2 - 1 )) + 1
> D = n - A - B - C
> かな ?

ダメ。A = 25, B = 1, C = 1, D = 73 とかなるよ。B, C, D の下限値も必要。
A が決まっている時は、n = A + B + C + D ≦ 3A + B だから、n - 3A ≦ B が下限値となる。(もちろん 1 ≦ B も必要だよ。)
同様に、A, B が決まっている時は、n = A + B + C + D ≦ 2A + B + C だから n - 2A - B ≦ C が下限値。

[0017 前スレ978 NG NG]

>>10 >>15
ありがとう。（まず使わないけど）覚えとく。

[0018 デフォルトの名無しさん NG NG]

>>12
( ﾟДﾟ)お！出来ました。
ありがとうございます。

[0019 デフォルトの名無しさん NG NG]

>>15
おいおい今さら何を。

[0020 デフォルトの名無しさん NG NG]

>>19
＞前スレの978、984へ
これ読める？

[0021 前スレ999 NG NG]

>16
n = 100
D = int(rnd * (n / 2 - 1)) + 1
C = int(rnd * ( n / 2 - D )) + 1
B = iif((D + C) =< (n + 2)/ 3, int(rnd * (int((n - (D + C))/ 2))) + 1, int(rnd * (n - 2 * (D + C) + 1)) + 1)
A = n - D - C - B
これでどう？
心配なので50000回ぐらい試してみたけど、一度も例外なしだった。

[0022 デフォルトの名無しさん NG NG]

前すれの

1000 名前：デフォルトの名無しさん 投稿日：02/09/23 00:00
次スレ
http://pc3.2ch.net/test/read.cgi/tech/1032706491/l50

なんかすげー

[0023 前すれの1000 NG NG]

ありがとう。でも、その話題はもういいよ。

[0024 HAIRETU NG NG]

dim add(16*32) as byte
sub Fget
for l=0 to 15
call　Lget(l,add(l*32))
next
end sub
のように配列のN番目を引数にして、addのNからN+31にLgetで値を設定したいのですが
Lget(i,add())のように配列全体をわたすのはできますが、
配列の途中を渡すことができません。
Lget(i,add(),i*32)としてインデックスを別に引数として渡すことは
できますが、VBではこのような方法しかないのでしょうか？

[0025 デフォルトの名無しさん NG NG]

ＶＢ上からフォルダに共有をかけるっていうはいったいぜんたいどうすればいいんでしょうか？

[0026 １７ NG NG]

ぐぐって一発検索>>25

[0027 25 NG NG]

>>26
いや、
http://vbvbvb.com/jp/gtips/0251/gNetShareAddFolder.html
これは見つけたんだが、NT以上対象らしく、
98で試したらだめだったんだ。

[0028 デフォルトの名無しさん NG NG]

>>27
> これは見つけたんだが、NT以上対象らしく、

MSDN では...

Import Library: Use netapi32.lib (Windows NT) or svrapi.lib (Windows 95).

ってなってるから、単に API 定義している Declare 文の Lib オペランドを "svrapi.dll" にするだけじゃないの ?

[0029 デフォルトの名無しさん NG NG]

新山（へろぱ）さんを抱きたい

[0030 デフォルトの名無しさん NG NG]

きしょ。

[0031 デフォルトの名無しさん NG NG]

VBで作ったアプリを、、NT系等のタスクマネージャのアプリケーションの
タブの所に表示しない様にするにはどうすれば良いのでしょうか？
（プロセスのタブには表示されるが、アプリケーションのタブの、
　タスクと状態の表示に、アイコンや実行中、等の表示が無い様に）

例えば、タスクトレイに常駐しているアプリがタスクマネージャに
表示されないのと同じ様にしたいのですが…
色々プロパティやAPIを試してみたのですが、上手くいきません。
どうか宜しくお願いします。

[0032 25 NG NG]

>>28
svrapi.dllに置き換えていろいろ試してるんだけど、全然成功しないです。
SHARE_INFO_2 の構造体の定義が、上のURLとMSDNでは違う気がして
そこの部分を変えたりしてるんですが一向にうまく行く気配を見せないです。

[0033 デフォルトの名無しさん NG NG]

>>32
> SHARE_INFO_2 の構造体の定義が、上のURLとMSDNでは違う気がして

確かに違うね。svrapi.h と lmcons.h では..

#define LM20_NNLEN 12 // LM 2.0 Net name length
#define SHPWLEN 8 // Share password length (bytes)

struct share_info_2 {
char shi2_netname[LM20_NNLEN+1];
char shi2_pad1;
unsigned short shi2_type;
char FAR * shi2_remark;
unsigned short shi2_permissions;
unsigned short shi2_max_uses;
unsigned short shi2_current_uses;
char FAR * shi2_path;
char shi2_passwd[SHPWLEN+1];
char shi2_pad2;
};　/* share_info_2 */

となってる。netname[] なんかは、Unicode か Ansi かよくわからないので、両方試す必要があるかも...。

[0034 デフォルトの名無しさん NG NG]

>>21
> これでどう？

単純に数値を求めるだけなら OK だと思うけど、これでは n = 100 の時に A = B = C = D = 25 とかはでてこなくなるよ。

[0035 デフォルトの名無しさん NG NG]

新山（へろぱ）さんのことを抱かずにはいられない

[0036 デフォルトの名無しさん NG NG]

Sin(0)は0
Cos(0)は1をちゃんと返してくれるんだけど
ほかの数だと値がおかしくなる
例えばsin(180)は0のはずなのに-0.801152...となる
角度からsin,cosを求めるにはSin,Cosじゃだめなのか？
どうしたら求められるか教えてくれる親切な人、教えてください

[0037 デフォルトの名無しさん NG NG]

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

[0038 デフォルトの名無しさん NG NG]

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

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

[0039 デフォルトの名無しさん NG NG]

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

[0040 デフォルトの名無しさん NG NG]

[e-mail]

[0041 デフォルトの名無しさん NG NG]

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

知らないなら調べろ。

[0042 デフォルトの名無しさん NG NG]

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

[0043 39 NG NG]

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

[0044 デフォルトの名無しさん NG NG]

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

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

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

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

[0045 39 NG NG]

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

[0046 nobukiti NG NG]

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

[0047 デフォルトの名無しさん NG NG]

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

WHERE 日付 = ##

ではないのですか？

[0048 nobukiti NG NG]

答えろオラ

[0049 46 NG NG]

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

[0050 デフォルトの名無しさん NG NG]

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

[0051 nobukiti NG NG]

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

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

[0052 デフォルトの名無しさん NG NG]

>47
Is Nullじゃないの？

[0053 nobukiti NG NG]

私という戦うバディ♪

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

[0055 デフォルトの名無しさん NG NG]

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

[0056 nobukiti NG NG]

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

[0057 デフォルトの名無しさん NG NG]

>56は苦労しそう

[0058 デフォルトの名無しさん NG NG]

>>54
一文字ずつ格納汁

[0059 25 NG NG]

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

[0060 デフォルトの名無しさん NG NG]

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

[0061 デフォルトの名無しさん NG NG]

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

[0062 デフォルトの名無しさん NG NG]

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

[0063 デフォルトの名無しさん NG 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.

[0064 デフォルトの名無しさん NG NG]

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

[0065 デフォルトの名無しさん NG NG]

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

[0066 デフォルトの名無しさん NG NG]

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

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

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

[0067 デフォルトの名無しさん NG NG]

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

[0068 デフォルトの名無しさん NG NG]

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

[0069 NG NG]

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

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

誰か 教えて。

[0070 デフォルトの名無しさん NG NG]

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

[0071 NG NG]

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

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

[0072 デフォルトの名無しさん NG NG]

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

[0073 デフォルトの名無しさん NG NG]

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

TaskBarAutoHide(TRUE);

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

[0074 NG NG]

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

[0075 74 NG NG]

追記は 71に対してです。

[0076 デフォルトの名無しさん NG NG]

>>72
ﾌﾟ

[0077 デフォルトの名無しさん NG NG]

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

[0078 デフォルトの名無しさん NG NG]

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

[0079 デフォルトの名無しさん NG NG]

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

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

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

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

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

[0080 デフォルトの名無しさん NG NG]

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

[0081 デフォルトの名無しさん NG 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

[0082 デフォルトの名無しさん NG NG]

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

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

[0083 デフォルトの名無しさん NG NG]

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

[0084 NG NG]

>>79

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

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

[0085 デフォルトの名無しさん NG NG]

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

[0086 デフォルトの名無しさん NG NG]

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

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

[0087 デフォルトの名無しさん NG NG]

あぅ

[0088 82です NG NG]

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

[0089 デフォルトの名無しさん NG NG]

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

[0090 デフォルトの名無しさん NG NG]

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

[0091 83 NG NG]

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

[0092 デフォルトの名無しさん NG NG]

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

[0093 デフォルトの名無しさん NG NG]

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

[0094 ？ NG NG]

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

[0095 83 NG NG]

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

[0096 89 NG NG]

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