v（･∀-）b VBプログラマ質問スレ(6.0以前) Part28

936 ：デフォルトの名無しさん：03/10/07 01:54

>>931
vbModeless だか vbModal だかのEnumの値だろうな

一定のキー（例えばF1）を押すとフルスクリーン表示になるサンプルを作りたいのですが
キーを押した際のコードの所に、

Form1.Top = 0
Form1.Left = 0

でプロパティでBorederStyle = 0にすればうまい具合に思ったとおりの表示になるんですが
通常時はBorderStyle = 1でフルスクリーン表示のときだけBorderStyle = 0にしたいのですが
どうもうまくいかないようです。
コードに記述するだけでは出来ないのでしょうか？

938 ：デフォルトの名無しさん：03/10/07 03:07

>937
どううまくいかないか説明できるようになると、うまくいくと思う。

939 ：937：03/10/07 03:20

うまくいかないってのは…そうですね、何もおきない、と言い換えます。

試しにForm1の上にボタンを１つ配置し、

Me.BorderStyle = 0

と記述して実行し、ボタンを押しても「なにもおきない」のです。

940 ：デフォルトの名無しさん：03/10/07 08:12

>>937
オレも超初心者なんだけど。
使い方とか全然知らないから、適当に試してみた。

me.borderstyle=0
だけじゃできなかった。

me.borderstyle=0
me.caption=""
にしたらできたよ。

最初からcaptionを""にしてても、borderstyleを変更するだけじゃできなかった。

ということで、このぐらいはオレみたいなバカでも解決できた。
正しい方法かどうかは知らないけど。
がんばってね。

941 ：デフォルトの名無しさん：03/10/07 08:15

どうでもいいけど追記。
試したのはVB6。
>>940はForm1に配置したボタンに記述した。
終わり。

942 ：デフォルトの名無しさん：03/10/07 09:12

>>937
単純に
Form1.WindowState = vbMaximized
ではいかんの？

943 ：916：03/10/07 09:37

>921

ありがとう

944 ：914：03/10/07 10:56

>>919
ありがとうございました。

ついでに
解像度変更後ScreenオブジェクトのHeightとWidthが同じになっちゃうのはバグなのでしょうか？
それとも自分の環境だけでしょぅか？

環境：
SOTEC　PCSTATION M240L
OS　：Win2k　SP4
VB　：VB6

945 ：デフォルトの名無しさん：03/10/07 11:59

他の環境でテストしる。多分コードに書き間違いだろ。

946 ：デフォルトの名無しさん：03/10/07 12:08

自分の書いたコードにバグがあるかも、とは思わないのかい？

947 ：914：03/10/07 12:46

>>945
レスどもっす、
EXEを作って動かしたところ問題無くできました。
デバッグ実行時のみなるようです。
他の環境でのテストは家のPCで試してみようと思いま

>>946
Screenオブジェクトを直接ウォッチして１行ずつチェックしていたら
Width、Height共に同じ値になっていたんで、>944のような質問になりました。

948 ：デフォルトの名無しさん：03/10/07 17:34

wininetを使ってバイナリデータ(画像データ)をHTTP通信にてPOSTするプログラムを
作っているのですが、

' Sends the specified request to the HTTP server.
Public Declare Function HttpSendRequest Lib "wininet.dll" Alias "HttpSendRequestA" (
ByVal hHttpRequest As Long,
ByVal sHeaders As String,
ByVal lHeadersLength As Long,
ByVal sOptional As String,
ByVal lOptionalLength As Long
) As Integer
この関数の第四、第五引数に入れるデータの作り方が良く分かりません。
sOptionalの部分にはHTTPのフォームの文字列データと実際の画像データが混在している
ことになるかと思いますが、どなたか以前にご経験のある方
よろしくご教授願います。

949 ：デフォルトの名無しさん：03/10/07 17:59

次スレ
(*´д`*)ｱﾊｧ… VB初心者質問スレ(6.0以前) Part29
http://pc2.2ch.net/test/read.cgi/tech/1065517012/l50

950 ：デフォルトの名無しさん：03/10/07 21:37

>>949は重複スレです
次スレは http://pc2.2ch.net/test/read.cgi/tech/1065446334/

951 ：デフォルトの名無しさん：03/10/07 22:15

>>899
form2.kname = text3.text
from2.show 1
data1.recordset.movefirst
do until dota1.recordset.eof
texe3.text = kname ten
exit do
else
data1.recodset.movenext
endif
次画面を表示させデータを検索させようとすると画面が表示されたまま
止まってしまいます。どのような記述をすればよいですか？

952 ：デフォルトの名無しさん：03/10/07 22:32

>>951
from2.show 0 , Me

953 ：デフォルトの名無しさん：03/10/07 22:35

マジックナンバーへのつっこみは無しか・・・

954 ：デフォルトの名無しさん：03/10/07 23:03

次スレ
(*´д`*)ｱﾊｧ… VB初心者質問スレ(6.0以前) Part29
http://pc2.2ch.net/test/read.cgi/tech/1065535118/

955 ：デフォルトの名無しさん：03/10/07 23:29

>>954
わざわざ後からスレたてるなよ。
次スレは http://pc2.2ch.net/test/read.cgi/tech/1065446334/

956 ：デフォルトの名無しさん：03/10/08 09:18

>954

かろやかに氏ね

957 ：デフォルトの名無しさん：03/10/08 14:20

大学の卒論でVBを使ってロボットをシミュレートする事になったんだが

1 プログラムを全然組んだことがない俺でもできるか？
2 そもそもVBでロボットをシミュレートできるのか？

なんでVBで作らねばならないかというと
http://www.sun-mitec.co.jp/roboabotto.html
を実際に動かすのが命題でこのロボがVBにしか対応していないだろうということから。

卒業がかかっているので死ぬ気でやるつもり。
アソバイス求む（前スレにも貼らせてもらいました、必死なんで）

958 ：デフォルトの名無しさん：03/10/08 15:14

>957

知るか！

959 ：957：03/10/08 16:18

右の乳首と左の乳首をinｔ関数で暗号化したいのですけど
pingがC＋＋だと通りませんが、ＶＢだとどうですか？

960 ：デフォルトの名無しさん：03/10/08 17:17

>959

通ります。
ちなみに俺は肛門とヴァギナをインクリメントしてます

961 ：デフォルトの名無しさん：03/10/08 22:07

>959
死ぬ気とやらが全く感じられないな。

962 ：デフォルトの名無しさん：03/10/08 22:51

>>957
サンプルはＶＣおよびＶＢみたいだがDLLの関数を呼び出せれば何語でも
動くだろ。

963 ：デフォルトの名無しさん：03/10/12 19:17

テキストファイルの追加書き込みで最新を一番上に持ってくる場合は
どのようにファイルオープンすればいいのでしょうか。