トップページ⇒tech
993コメント374KB

VB初心者質問スレ Part4

レス数が950を超えています。1000を超えると書き込みができなくなります。
0001デフォルトの名無しさんNGNG
VB初心者質問スレPart3
http://pc.2ch.net/test/read.cgi/tech/1000523122/
0943デフォルトの名無しさんNGNG
>>942
ついに彼のレポートの〆切時刻が来ましたね。
彼は巧いことしのいだのでしょうか。
0944940NGNG
>>942
いえ、そんなことはありません。
このプログラムで作られるすべてのファイルが同じ更新日付になってしまうのです。
ＶＢの設定の方がおかしいとかなのでしょうか。

>>943
配列を使ってないから仕様的にはアウトになりません？上のソース
0945933NGNG
>>934
Delphiでは、APIを使ったサンプルを見かけたので、
VBでも同じ事ができないか・・・と。
それに、あまりコンポーネントに頼り過ぎてると進歩しませんし。
0946デフォルトの名無しさんNGNG
>>945
>>374 は Ping についてですが、参考になるかもしれません。
0947933NGNG
>>946
ありがとうございます。
おかげで、いくつか資料が手に入りました。
0948デフォルトの名無しさんNGNG
分割ソフトを作りたいのですが、今いち参考になるような
TEXTがないんです。
だれか教えてくれませんか？
0949デフォルトの名無しさんNGNG
>>948
ソフトを分割するのですか？
0950デフォルトの名無しさんNGNG
>>948
Binary でオープンして適当に切り分けたら？
0951デフォルトの名無しさんNGNG
言葉足らずで申し訳ないです。
ファイルを分割・結合するソフトです。
0952デフォルトの名無しさんNGNG
>>948
ttp://www.vector.co.jp/soft/win95/prog/se167075.html
0953デフォルトの名無しさんNGNG
>>952
ありがとうございます＾＾
参考にして勉強します。
0954デフォルトの名無しさんNGNG
すみません、ご教授を・・・
VBScriptなのですが、
配列で、例えば 1,2,3,4 となっている所を、2の所にnull入れたら 1,,3,4
　ってなりますよね。これを 1,3,4　って配列に変えたいのですが
若輩者ゆえどうしたらいいかわかりません。
簡単かもしれませんが教えてください。お願いします。
0955(-_-ﾒ)NGNG

★重要告知★

『 OKWeb 』 及び 教えてGoo は最悪だ !
利用する奴ははっきり言って馬鹿の象徴 !!
馬鹿の証明しているに過ぎない !!
"OKWeb" を利用すると　頭が変になり、馬鹿になる !!　気をつけろ !!!
　それにOKwebを利用するだけで『ウィルス』に感染してしまうから
絶対利用はするな !!
0956デフォルトの名無しさんNGNG
VBはわからんけど。

while(j<元配列のサイズ){
　　if(Src[j]==null)j=j+1;
　　Dest[i]=Src[j];
}
0957956NGNG
間違い。

i=0;j=0;
while(j<元配列のサイズ){
　　// ↓配列からはみ出てないかの判定もして。
　　while(Src[j]==null){
　　　　j=j+1;
　　}
　　Dest[i]=Src[j];
}
0958デフォルトの名無しさんNGNG
>>956-957 を参考にさせてもらって
VBSで書き直すとこんな感じかな

Dim Src
Dim Dest()
Dim i, j
Dim strBuff

Src = Array(1, vbNullString, 3, 4)
i = 0
j = 0
    
While i <= UBound(Src)
    If Src(i) <> vbNullString Then
        ReDim Preserve Dest(j)
        Dest(UBound(Dest)) = Src(i)
        j = j + 1
    End If
    i = i + 1
Wend

For i = 0 To UBound(Dest)
    strBuff = strBuff & Dest(i)
Next

MsgBox strBuff
0959デフォルトの名無しさんNGNG
複数のコントロールが重なっている状態で、
ZOrderを使い、前面・背面移動を切り替えた場合に
各コントロール毎に表示されている重なり位置は取得できるのでしょうか？
0960デフォルトの名無しさんNGNG
厨房的発想
でも２つ問題がある
１．null 入れてはダメ。
２．セパレイターが問題。

<script language="VBScript">
<!--
　Dim A()
　Dim B
　Dim X

　ReDim A(3)
　A(0) = 1
　A(1) = 2
　A(2) = 3
　A(3) = 4

　A(3) = -1

　X = Join(A, ",")
　X = Replace(X, "-1", "")
　If Right(X, 1) = "," Then X = Left(X, Len(X) - 1)
　If Left(X, 1) = "," Then X = Right(X, Len(X) - 1)
　X = Replace(X, ",,", ",")
　B = Split(X, ",")

　MsgBox UBound(B)
-->
</script>
0961959NGNG
すいません、ちょっと伝わらないと思ったので補足します。

コントロールはまったく同じではないのですが、
部分的に重なっているものとします。

最前面側
「コントロールＣ」
「コントロールＡ」
「コントロールＢ」
最下面側

上のような状態で重なっているものとして、
コントロールＡ = 1
コントロールＢ = 2
コントロールＣ = 0
の様な、ZOrderに対応した値を取得することは可能なのでしょうか？

m(＿ ＿)m よろしくおねがいします
0962デフォルトの名無しさんNGNG
>>961
その番号を取得したい必要性は？
0963デフォルトの名無しさんNGNG
＞959,961
自前のコードでコントロールのZOrderを切り替えてるんだろ？
だったら、それでどういう順番になるか、わからないとおかしい。
0964デフォルトの名無しさんNGNG
そろそろお引越しの予感。
誰かやんないと。
俺がやれって？（ｗ
0965デフォルトの名無しさんNGNG
ネットワークに繋がっているPCがいくつかあるとします。
たとえばPC001・PC002・PC003の3台。
で、このネットワークに入れるユーザがいつくかあるとします。
たとえばHOGE・WOW・MAO・AFOなど

やりたいことは、各パソコンから相互に自分以外のパソコンにログインしている
ユーザ名がわかるようにしたいのです。
たとえば、PC001を使用している人は、PC002と3に今ログインしているユーザ名
を取得したい。

自分のパソコンにログインしているユーザ名は簡単に取得できますが、
ネットワークに繋がったパソコンの現ログインユーザ名は取得できないのでしょうか

よろしくお願いします。
0966959NGNG
>>962
画像やテキストを張り付けてレイアウトするソフトを
作成しているのですが、
Form上でZOrderを使い重なりを変更するには良いのですが、
そのデータを保存し、再度表示させる際に、
重なりの情報を取得しておかないと、元の状態に戻せないので・・・
0967959NGNG
>>963
自前のコードですけど、コントロールの重なりが実際は複雑なので・・・

実際は例として書いたように、単に重なるだけでなく、
各コントロールの移動、コントロールの追加、削除が発生するので、
移動元、移動先などでZOrderに対応する管理を行うことは難しいです。

簡単にZRoderに対応する値が取得できれば、
そういった管理を行う必要もないので、おたずねしました。
0968デフォルトの名無しさんNGNG
>>967
　Part5に引っ越して続投中です。
　http://pc.2ch.net/test/read.cgi/tech/1010624646/2
0969967NGNG
>>968
親切に教えていただいて、ありがとうございます　m（＿＿）mペコリ
0970デフォルトの名無しさんNGNG
MDIFormの最大化、最小化ボタンを無効にしたくて、APIを利用してForm上に
表示しないようにしたのですが、ボタンの存在した個所で右クリックでメニューが表示されてしまい、
そこから最小化、最大化が出来てしまいます。（ダブルクリックでもサイズ変更されてしまう）
どなたか無効にする方法をご存知であれば教えてください。
0971デフォルトの名無しさんNGNG
VB を買おうと思うのですが、今なら何を買えばいいですか？
0972デフォルトの名無しさんNGNG
ビットマップの画像を、透過色を使用して表示したいのですが簡単な方法はありませんか？
0973デフォルトの名無しさんNGNG
>>971
もうすぐ VB .NET がでるからそれまで待てば？
0974デフォルトの名無しさんNGNG
>>973
MSの新ソフトをさっそく買うほどバカではありません。
0975デフォルトの名無しさんNGNG
>>974
それならいっそVBやめてKYLIXにしよう
0976デフォルトの名無しさんNGNG
KYLIXってPASCALですよね？
私はVBがやりたいんです。
でもそのまえにHSPやるかも。
0977VB使いNGNG
>>971
マジならPro。急がないなら様子を見て.NET。金があるならVisualStudio。
お勧めはVC++。

>>972
マスク画像とカラーデータ作ってXorとAndで描画。
0978デフォルトの名無しさんNGNG
今、MSのページ見てきた。

＞WebClassデザイナでは、ブラウザーに依存しないHTMLベースのアプリケーションを作成でき、Webサーバーに対する優れた開発手法を提供します。

とか書いてある。だったら、MSのページでまっさきにやれ、って感じ（ｗ
0979デフォルトの名無しさんNGNG
今、MSのページ見てたんだが、

＞なお、日本語版 VB で作成された実行ファイル (EXE) 等は、日本語 Windows 上でしか動作しません。英語環境で動作させるには英語版 VB でコンパイルしたものを使用する必要がありますのでご注意ください。
と書いてある。漏れは、英語圏の人にも自分のアプリを使ってもらいらので､英語版のVBを買う必要があるのだろう。
0980デフォルトの名無しさんNGNG
>>972
TransparentBlt()やAlphaBlend()でどう？
>>979
日本語版でまずいのは、一部のコンポーネントだけ。それらを
使わなければおっけーだよ。
0981デフォルトの名無しさんNGNG
えーと、とりあえず、6の日本語版のラーニングを買おうと思うのですが、これで何か不具合ありますか？
0982デフォルトの名無しさんNGNG
＞979
VB6なら、国際対応キットがあるよ。
Microsoft Visual Basic 6.0 International Package and Deployment Kit
http://www.microsoft.com/japan/developer/vbasic/download/ipdk.htm
0983デフォルトの名無しさんNGNG
作ったEXEを配れない、とか変な制限は無いですよね?
0984デフォルトの名無しさんNGNG
そういえば、Delphi の無料版は、シェアウエア作れなかったな。
0985VB使いNGNG
>>983
このｽﾚの290-320あたり見てみ。ラーニングの辛さが分かるぞ。
0986デフォルトの名無しさんNGNG
>>981
VBを触ってみたいだけで
ラーニング買ってバカにされても気にしないなら何も言わない。
色々と作りたいと思ってるならやめとけ。
安物はなぜ安いのか、理由があるからだ。
0987デフォルトの名無しさんNGNG
>>986
いま読んできました。プロって8万もするんですね。
ラーニングがうんこなのは理解できましたが、8万はちょっと検討しないとすぐには買えないなぁ。
0988デフォルトの名無しさんNGNG
＞981
アカデミックパック買えないの？　親戚の子とか使って。

それとここ前スレなんだけど、最初上げた犯人は誰？
0989デフォルトの名無しさんNGNG
思うに次スレへの誘導がないのが原因かと。


新しいスレがだいぶ前にできています。
移動をお願いします。

◆VB初心者質問スレ Part5
http://pc.2ch.net/test/read.cgi/tech/1010624646/
0990デフォルトの名無しさんNGNG
>安物はなぜ安いのか、理由があるからだ。
MSの商品は売れているものほど(シェアが大きなものほど)値段が
高いからその点は留意すべし。VBはラーニングだと個人ユースでも
不便に思うことが多いように思う。

もしヴィジュアルな統合開発環境をさわってみたいだけならdelphiの
パーソナルをすすめます。買っても５千円前後だしダウンすればタダ。

0991VB使いNGNG
>>988
一応それは詐欺の一種では・・・？
とか言いながらも俺も友人に買ってもらったがｗ
0992デフォルトの名無しさんNGNG
埋めちゃえ
992
0993デフォルトの名無しさんNGNG
993
レス数が950を超えています。1000を超えると書き込みができなくなります。