TOKOさん
Microsoft Visual Studio 2005にインストールしていますパソコンでは
MAKは2005が優先するみたいなのでF-BASICのみインストールしています
パソコンでおこないました。それによりTOKOさんのMiniMiniSpyは
F-BASICで動かせる様になりました。ありごとうございました。
今回はVB6で考えています。VB6はあまり詳しくありませんがこれからVB6に
置き換えて挑戦してみます。
例:ここでは強制的に改行を入れています。
Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long,
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long,
ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth
As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
(299文字)
は、
Declare Function Api_StretchBlt& Lib "gdi32" Alias "StretchBlt" (ByVal hDC&,
ByVal X&, ByVal Y&, ByVal nWidth&, ByVal nHeight&, ByVal hSrcDC&, ByVal xSrc&,
ByVal ySrc&, ByVal nSrcWidth&, ByVal nSrcHeight&, ByVal dwRop&)
(219文字)
'/// WAIT 100 = 1秒に1回 XCEND.FLGのファイルサイズが1レコード以上(1バイト以上)か確認する
XCENDFLG%=0
WHILE XCENDFLG%=0
WAIT 100
OPEN "XCEND.FLG" AS #1: REC=LOF(1): CLOSE #1
IF REC>0 THEN XCENDFLG%=1
WEND