我想要在vb.net的環(huán)境下實(shí)現(xiàn)顯示一個(gè)輸入在文本框的運(yùn)算表達(dá)式的結(jié)果，請(qǐng)問該如何實(shí)現(xiàn)

簡(jiǎn)單四則運(yùn)算轉(zhuǎn)換，查下vbscript的轉(zhuǎn)換字符串為算式就有例子。

創(chuàng)新互聯(lián)公司為企業(yè)級(jí)客戶提高一站式互聯(lián)網(wǎng)+設(shè)計(jì)服務(wù)，主要包括成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)、成都App定制開發(fā)、微信小程序開發(fā)、宣傳片制作、LOGO設(shè)計(jì)等，幫助客戶快速提升營(yíng)銷能力和企業(yè)形象，創(chuàng)新互聯(lián)各部門都有經(jīng)驗(yàn)豐富的經(jīng)驗(yàn)，可以確保每一個(gè)作品的質(zhì)量和創(chuàng)作周期，同時(shí)每年都有很多新員工加入，為我們帶來大量新的創(chuàng)意。 

簡(jiǎn)單的解決不了的，自己寫逐字分析字符串，然后換成計(jì)算。

如何實(shí)現(xiàn)VB.NET文字寬度計(jì)算

Dim MyGraphics As Graphics = Me.CreateGraphics

'定義使用的字體

Dim Myfont As New Font("宋體", 9)

'獲取文本的大小。

Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)

'顯示寬和高

MsgBox(Mystring_Size1.Width "：" Mystring_Size1.Height)

vb怎么實(shí)現(xiàn)文本多行加減法運(yùn)算

Dim?BDS,?JSS,?I?As?Integer

Private?Sub?Command1_Click()

Dim?kkl()?As?String???'取出各行表達(dá)式的運(yùn)算符的數(shù)值

ReDim?kkl(UBound(BDS))

For?I?=?0?To?UBound(BDS)

kkl(I)?=?Right(Left(BDS(I),?3),?1)???'取出表達(dá)式的運(yùn)算符

Select?Case?kkl(I)

Case?"+"

JSS?=?Split(BDS(I),?"+")???'取出運(yùn)算符二邊的數(shù)據(jù)，存儲(chǔ)在?JSS?數(shù)組中，下同

Text2.Text?=?Text2.Text??Val(JSS(0))?+?Val(JSS(1))??vbCrLf????'在文本框2中顯示計(jì)算結(jié)果。數(shù)據(jù)必須轉(zhuǎn)換為數(shù)字?jǐn)?shù)據(jù)！，下同

Case?"-"

JSS?=?Split(BDS(I),?"-")

Text2.Text?=?Text2.Text??Val(JSS(0))?-?Val(JSS(1))??vbCrLf

Case?"*"

JSS?=?Split(BDS(I),?"*")

Text2.Text?=?Text2.Text??Val(JSS(0))?*?Val(JSS(1))??vbCrLf

Case?"/"

JSS?=?Split(BDS(I),?"/")

Text2.Text?=?Text2.Text??Val(JSS(0))?/?Val(JSS(1))??vbCrLf

End?Select

Next?I

End?Sub

Private?Sub?Form_Load()

Text1.Text?=?Text1.Text??"33*33"??vbCrLf

Text1.Text?=?Text1.Text??"33+33"??vbCrLf

Text1.Text?=?Text1.Text??"33*33"??vbCrLf

BDS?=?Split(Text1.Text,?vbCrLf)?'將數(shù)據(jù)存儲(chǔ)到?BDS?數(shù)組中

End?Sub

這個(gè)程序符合二位數(shù)與二位數(shù)的+、-、*、/ 的計(jì)算，比較簡(jiǎn)單。

文章題目：vb.net文本運(yùn)算 vb字符運(yùn)算
網(wǎng)頁URL：http://chinadenli.net/article46/hpehhg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、App開發(fā)、品牌網(wǎng)站建設(shè)、響應(yīng)式網(wǎng)站、全網(wǎng)營(yíng)銷推廣、App設(shè)計(jì)

廣告

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