VBプログラマ質問スレ（6.0以前） Part55

VBプログラマ質問スレ（6.0以前） Part55 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

150:デフォルトの名無しさん
 09/12/17 04:08:36 
DirectX 7 for Visual Basic Type Library ( dx7vb.dll) 
DirectX 8 for Visual Basic Type Library ( dx8vb.dll) 
とかあるんだけど 
使い方が分からない

151:デフォルトの名無しさん
 09/12/17 06:25:23 
あきらめろよ。

152:デフォルトの名無しさん
 09/12/17 11:14:47 
ＶＢ６って内部はunicodeじゃなかったっけ？ 
そもそも英語版のＯＳに日本語のフォント入ってるのか？

153:デフォルトの名無しさん
 09/12/17 11:21:49 
すくなくともXP以降には入ってたな

154:デフォルトの名無しさん
 09/12/17 14:33:09 
NTや 98はどうだったか覚えてないが 
2000以降なら、日本語 IME入れれば一緒に入る

155:デフォルトの名無しさん
 09/12/18 14:55:42 
ttp://iup.2ch-library.com/i/i0038800-1261115044.jpg 
左の画像の(x,*)に何本の黒い線が通っているかというプログラムを作りたいと思ってます。 
(右の画像の赤線が通る場所) 
 
そこで、ネットで調べてまずは色判別のプログラムを組んでみたのですが、 
 
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long 
 
Private Sub Command1_Click() 
 
    Dim Color As Long 
 
    Color = GetPixel(Form1.Picture1.hdc, 30, 30) 
    '試しに30,30のR値を出力するプログラムｊ 
 
    Dim R As Long 
    '色分解 
    R = Color Mod 256 
    Color = Color / 256 
 
    Text1.Text = R 
End Sub 
 
Text1.Textに0が出力されてしまうのですがどこか間違っているか教えていただけませんか

次ページ