vb.net識別圖片文字的簡單介紹

求大神指點 vb.net 怎么繪制一張有文字的圖呢?并用 PictureBox1 顯示出來

picture本身不是文本控件，文本是“畫”上去的，換行需要用代碼測量每個字在指定字體下的寬度，判斷在當前picture的寬度之下，一行能容納多少文字，剩下的文字就在下一行繪制。

創(chuàng)新互聯(lián)專注于準格爾企業(yè)網(wǎng)站建設,響應式網(wǎng)站,商城網(wǎng)站建設。準格爾網(wǎng)站建設公司,為準格爾等地區(qū)提供建站服務。全流程按需開發(fā)網(wǎng)站，專業(yè)設計，全程項目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務

VB.NET中怎么在圖片上直接輸出文字。向VB中有Print的方法

兩種方法：

圖片框上蓋個Label 向其輸入內(nèi)容。

載入圖片，通過內(nèi)存直接?DrawImage繪制個新圖，然后在圖上蓋文字。最后賦值給圖片框。

VB6的print 實質是向圖片框打印文字，不管有無圖都能在上面Print. 考慮速度和實現(xiàn)難度問題，如果純粹顯示，最好直接蓋個Label最簡單。第二種方法 需要考慮文字大小、顏色、坐標定位等等。如果一行文字顯示不下，不會自動換行，得自己切。

用vb編個辨別文字的程序,請教高手

鼠標取詞其實很簡單

在網(wǎng)上下載一個XdictGrb.dll（金山詞霸取詞用的鏈接庫）

這里可以下載

然后新建一個工程，并引用XdictGrb.dll

窗體上4個label

代碼如下：

Option Explicit

Implements IXDictGrabSink

Private è?′ê As GrabProxy

Private Sub Form_Load()

Set è?′ê = New GrabProxy

With è?′ê

.GrabEnabled = True

.GrabInterval = 25

.GrabMode = XDictGrabMouse

.AdviseGrab Me

End With

End Sub

Private Function IXDictGrabSink_QueryWord(ByVal WordString As String, ByVal lCursorX As Long, ByVal lCursorY As Long, ByVal SentenceString As String, lLoc As Long, lStart As Long) As Long

Dim TmpInt1 As Integer, TmpInt2 As Integer, I As Integer

For I = lLoc + 1 To 1 Step -1

If Mid(SentenceString, I, 1) = " " Then

TmpInt1 = I + 1: Exit For

End If

If I = 1 Then TmpInt1 = I

Next

For I = lLoc + 1 To Len(SentenceString)

If Mid(SentenceString, I, 1) = " " Then

TmpInt2 = I - 1: Exit For

End If

If I = Len(SentenceString) Then TmpInt2 = I

Next

If TmpInt1 lLoc + 1 Then TmpInt1 = lLoc + 1

If TmpInt2 lLoc + 1 Then TmpInt2 = lLoc + 1

Label1.Caption = 當前坐標" "(" lCursorX "," lCursorY ")"

Label2.Caption = "當前語句" SentenceString

Label3.Caption = "當前單詞" Mid(SentenceString, TmpInt1, TmpInt2 - TmpInt1 + 1)

Label4.Caption = "當前字符" Mid(SentenceString, lLoc + 1, 1)

End Function

當前文章：vb.net識別圖片文字的簡單介紹
鏈接分享：http://muchs.cn/article34/dojhese.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供軟件開發(fā)、營銷型網(wǎng)站建設、、面包屑導航、網(wǎng)站策劃、電子商務

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)