有关PICTURE控件的问题

chen2831278 2005-12-07 03:17:46
是想做个字体转换程序 要在文本框中输入字符 然后在PICTURE控件上显示出转换后的字符
在PICTURE空间上显示的字符如果要做为二进制数据保存起来 应如何保存
...全文
199 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
chen2831278 2005-12-08
  • 打赏
  • 举报
回复
ding
chen2831278 2005-12-08
  • 打赏
  • 举报
回复
Private Sub TF_Click()
Dim x As Single
Dim y As Single
Dim fs, a
Dim GD() As Integer, result As String
Dim L As Long
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Dir1.Path & "\" & Text1.Text & ".txt", True)
result = ""
ImageFrm.Pic.ScaleMode = vbPixels
ReDim GD(0 To FontFrm.PicF.TextWidth() - 1, 0 To FontFrm.PicF.TextHeight - 1)
For y = 0 To FontFrm.PicF.TextHeight - 1
a.write ("DB ")
For x = 0 To FontFrm.PicF.TextHeight - 1 '扫描所有像
L = FontFrm.PicF.Point(x, y)
If L = 0 Then
GD(x, y) = 0
Else
GD(x, y) = 1
End If
End Sub
result = result & CStr(GD(x, y))
a.write (CStr(GD(x, y)))
If x = FontFrm.PicF.TextWidth - 1 Then
a.writeline ("")
End If
Next x
Next y
————————————————————————————————————————————————————————————————这个是我的程序
chen2831278 2005-12-08
  • 打赏
  • 举报
回复
那 TEXTHEIGHT(TEXT1.TEXT)这个没错把 出错时蓝色的指示是在这个上面的
northwolves 2005-12-08
  • 打赏
  • 举报
回复
'aDD A PICTUREBOX AND 2 COMMANDBUTTONS TO FORM1:

Private Declare Function GetPixel Lib "gdi32" (ByVal HDC As Long, ByVal x As Long, ByVal y As Long) As Long
Dim a() As Long
Private Sub Command1_Click()
Picture1.ForeColor = vbRed
Picture1.ScaleMode = 2
Picture1.FontSize = Picture1.ScaleWidth
Picture1.Print "怪"
Dim i As Long, j As Long

ReDim a(1 To Picture1.Width, 1 To Picture1.Height)
For i = 1 To Picture1.Width
For j = 1 To Picture1.Height
a(i, j) = &HFFFFFF - GetPixel(Picture1.HDC, i, j) '这里我用反色显示
Next
Next
Picture1.Cls
End Sub

Private Sub Command2_Click()
Picture1.ScaleMode = 3
Dim i As Long, j As Long
For i = 1 To UBound(a, 1)
For j = 1 To UBound(a, 2)
Picture1.PSet (i, j), a(i, j)
Next
Next
End Sub
northwolves 2005-12-08
  • 打赏
  • 举报
回复
x,y作维数了,又去做循环变量,估计会出问题.
northwolves 2005-12-08
  • 打赏
  • 举报
回复
REDIM GD(X,Y)
For i = 0 To FontFrm.PicF.TextHeight(text1.text) - 1
For j = 0 To FontFrm.PicF.TextWidth(text1.text) - 1
chen2831278 2005-12-08
  • 打赏
  • 举报
回复
ding
chen2831278 2005-12-08
  • 打赏
  • 举报
回复

想做个字体转换程序 要在文本框中输入字符 然后在PICTURE控件上显示出转换后的字符

我现在要做的是 读取显示在PICTUREBOX上的文本的每个点的颜色植 要用到TEXTWIDTH TEXTHEIGHT 求到每个点的坐标 X,Y值
如下
REDIM GD(X,Y)
For y = 0 To FontFrm.PicF.TextHeight(text1.text) - 1
For x = 0 To FontFrm.PicF.TextWidth(text1.text) - 1

结果总是报错
问题应该就在这两句上但查不出来
fxy_2002 2005-12-07
  • 打赏
  • 举报
回复
PICTURE 上显示的字符只能以 bmp 格式保存。

savepicture picture1.image,"c:\aa.bmp"

熊孩子开学喽 2005-12-07
  • 打赏
  • 举报
回复
看不懂楼主在说什么
VC PICTURE控件的使用,如何加载背景图片2009年04月19日 星期日 15:02vc picture控件的分类总结: (一) 非动态显示图片(即图片先通过资源管理器载入,有一个固定ID) (二) 动态载入图片(即只需要在程序中指定图片的路径即可载入) 为方便说明,我们已经建好一个基于对话框的工程,名为Ttest. 对话框类为CTestDlg (一) vc picture控件非动态载入图片. 方法1.先从最简单的开始,用picture 控件来实现. 步骤: 先在资源里Import一张图片,ID为IDB_BITMAP2 然后在对话框上添加一个picture控件,右键点击打开属性, 将type下拉框选择BITMAP,紧跟着下面就出现一个Image下拉框, 拉开就会看到所有已经载入好的图片, 选择你要的图片.运行程序即可看到. 方法2vc picture控件.通过背景图 同样如上,先载入一张图片,ID为IDB_BITMAP2 TestDlg.h中 CBrush m_brBk;//在public中定义 TestDlg.cpp中 在初始化函数OnInitDialog()中加入: BOOL CTestDlg::OnInitDialog() { CDialog::OnInitDialog(); CBitmap bmp; bmp.LoadBitmap(IDB_BITMAP2); m_brBk.CreatePatternBrush(&bmp); bmp.DeleteObject(); return TRUE; // return TRUE unless you set the focus to a control } 在打开类向导,找到WM_CTLCOLOR消息,重载得对应函数OnCtlColor(),添加如下: HBRUSH CTestDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor) { HBRUSH hbr = CDialog::OnCtlColor(pDC, pWnd, nCtlColor); if (pWnd == this) { return m_brBk; } return hbr; } (二) vc picture控件动态载入图片. 方法3 图像控件(本例用KoDak 图像编辑控件) 1. 首先应该保证系统中有这个控件。注意,它不能单独使用,必须和其他几个控件(特别是Imgcmn.dll)一同使用。如果没有,从别的机器上copy过来即可。这几个文件是Imgadmin.ocx,Imgcmn.dll,Imgedit.ocx,Imgscan.ocx,Imgshl.dll,Imgthumb.ocx,Imgutil.dll,把它们copy到windows\system目录下,然后用regsvr32.exe将它们分别注册。 2. 打开工程,进入资源管理器,在对话框上单击右键,单击Insert Activex control… 选择Kodak图象编辑控件,大小任意。 3. 在对话框上选中该控件,为其添加变量:m_ctrlPicture。。 4. 在BOOL CTestDlg::OnInitDialog()添加如下: BOOL CTestDlg::OnInitDialog() { CDialog::OnInitDialog(); m_ctrlPicture.SetImage("aa.jpg"); //保证图像在工程目录下,也可以写绝对路径 m_ctrlPicture.Display(); return TRUE; // return TRUE unless you set the focus to a control // EXCEPTION: OCX Property Pages should return FALSE } 编译运行就OK了,此种方法的好处就是可能针对多种图像格式. 方法4 vc picture控件通过CBitmap,HBITMAP,直接用OnPaint()绘制 首先在CTestDlg类中声明一个变量: CBitmap m_bmp; 然后我们在对话框中加入一个picture 标签,名为IDC_STATIC1 然后: BOOL CDisplayPic::OnInitDialog() { CDialog::OnInitDialog(); if( m_bmp.m_hObject != NULL )//判断 m_bmp.DeleteObject(); /////////载入图片 HBITMAP hbmp = (HBITMAP)::LoadImage(AfxGetInstanceHandle(), "c:\\aaa.bmp", IMAGE_BITMAP, 0, 0, LR_CREATEDIBSECTION|LR_LOADFROMFILE); if( hbmp == NULL ) return FALSE; ///////////////////////该断程序用来取得加载的BMP的信息//////////////////////// m_bmp.Attach( hbmp ); DIBSECTION ds; BITMAPINFOHEADER &bminfo = ds.dsBmih; m_bmp.GetObject( sizeof(ds), &ds ); int cx=bminfo.biWidth; //得到图像宽度 int cy=bminfo.biHeight; //得到图像高度 /////////////////// //////////////////////////////// /////////////得到了图像的宽度和高度后,我们就可以对图像大小进行适应,即调整控件的大小,让它正好显示一张图片/////////////////////////// CRect rect; GetDlgItem(IDC_STATIC1)->GetWindowRect(&rect); ScreenToClient(&rect); GetDlgItem(IDC_STATIC1)->MoveWindow(rect.left,rect.top,cx,cy,true);//调整大小 return TRUE; // return TRUE unless you set the focus to a control // EXCEPTION: OCX Property Pages should return FALSE } 图片加载成功了,标签大小也适应了,下面就是绘制绘制图像了,打开类向导,重载WM_PAINT消息 void CDisplayPic::OnPaint() { //////////////以下三种情况任选一种会是不同效果(只能一种存在)/////////// //CPaintDC dc(this); //若用此句,得到的是对话框的DC,图片将被绘制在对话框上. CPaintDC dc(GetDlgItem(IDC_STATIC1)); //用此句,得到picture控件的DC,图像将被绘制在控件上 // CDC dc; // dc.m_hDC=::GetDC(NULL); //若用此两句,得到的是屏幕的DC,图片将被绘制在屏幕上/////////////////////////////////////////////////////// CRect rcclient; GetDlgItem(IDC_STATIC1)->GetClientRect(&rcclient); CDC memdc; memdc.CreateCompatibleDC(&dc); CBitmap bitmap; bitmap.CreateCompatibleBitmap(&dc, rcclient.Width(), rcclient.Height()); memdc.SelectObject( &bitmap ); CWnd::DefWindowProc(WM_PAINT, (WPARAM)memdc.m_hDC , 0); CDC maskdc; maskdc.CreateCompatibleDC(&dc); CBitmap maskbitmap; maskbitmap.CreateBitmap(rcclient.Width(), rcclient.Height(), 1, 1, NULL); maskdc.SelectObject( &maskbitmap ); maskdc.BitBlt( 0, 0, rcclient.Width(), rcclient.Height(), &memdc, rcclient.left, rcclient.top, SRCCOPY); CBrush brush; brush.CreatePatternBrush(&m_bmp); dc.FillRect(rcclient, &brush); dc.BitBlt(rcclient.left, rcclient.top, rcclient.Width(), rcclient.Height(), &memdc, rcclient.left, rcclient.top,SRCPAINT); brush.DeleteObject(); // Do not call CDialog::OnPaint() for painting messages }

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧