(16/02/2020, 14:49)feraz yazdı: Alttaki kodları kafadan yazdım deneyemedim.şu hatayı alıyorum, sebebini bulmaya çalışıyorum.
Accesste right fonctionu varmı bilmiyorum lakin mantık böyle.
Deneyiniz sonucu yazın ona göre bakarız.Bilgisayar yanımda değil o yüzden deneyemedim.
Dim x as byte , y as byte
İf left(1,txt1.value) = "(" then
x= 2
Else
x=1
End if
İf right(1,txt1.value) = ")" then
y = len(txt1.value)-1
Else
y = len(txt1.value)
End if
Txt1.value = mid(x,txt1.value,y)
"Run-Time error "13":
Type Mismatch