看谁能实现它？分大大的有。高手进？(强烈要求斑竹进来）

Question

TO ： thirdapple(第三只苹果) 
俺也懂一点VB只要你给一下思路。格式俺自己来。
谢谢！

Answer 1

我做过一个是把PictureBox上的字转化为Text中用特定的字符来组成这个字，好象不是很难嘛，就不知道老兄的意思跟我一不一样？？

Answer 2

to : hjx1014(螃蟹1997) 
     热心的你。
   我的意思是我要提取一些汉字与图形的点阵。作为液晶显示用。
    因为液晶是描点用。
谢谢！

Answer 3

前景色？
如果POINT不行可以尝试用GetPixel函数啊！

Answer 4

to :  thirdapple(第三只苹果) 
 getpixel 无法定位。我试过。俺API不行。拜托老兄帮我一把
谢谢！
在线！

Answer 5

AutoRedraw设为True
同行,我用VB做过这种程序.
到这里去下吧!
ftp://ic21:[email protected]/

Answer 6

TO ：AUTOREDRAW   xz8000(小熊) 
兄弟：我无法打开连接，你 给我EMAI一个，谢谢！

Answer 7

我的email:[email protected]
xiexie!

Answer 8

AutoRedraw设为True
ScaleMode设成3即可，我用该方法处理过不带字库的LED

Answer 9

兄弟在指点一下吧，我没时间去深入了
字模问题
email [email protected]

Answer 10

Private Sub Command1_Click()
  Picture1.Print "ÑÝʾ"
End SubPrivate Sub Command2_Click()
  Dim i As Integer
  Dim j As Integer
  
  Debug.Print Picture1.Point(1, 1)
  
  
  For i = 1 To Picture1.Height
    For j = 1 To Picture1.Width
      If Picture1.Point(i, j) <> 13160660 Then
        Picture2.PSet (i, j)
      End If
      DoEvents
    Next j
  Next i
End SubPrivate Sub Form_Load()
  Picture2.Width = Picture1.Width
  Picture2.Height = Picture1.Height
End Sub

Answer 11

Private Sub Command1_Click()
  Picture1.Print "字"
End SubPrivate Sub Command2_Click()
  Dim i As Integer
  Dim j As Integer
  
  Debug.Print Picture1.Point(1, 1)
  
  
  For i = 1 To Picture1.Height
    For j = 1 To Picture1.Width
      If Picture1.Point(j, i) <> 13160660 Then
        Picture2.PSet (j, i)
      End If
      DoEvents
    Next j
  Next i
End SubPrivate Sub Form_Load()
  Picture2.Width = Picture1.Width
  Picture2.Height = Picture1.Height
End Sub