code frag using "#"
Code:
'
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
'
.. and using "VE" with vb
vb Code:
[COLOR="#FF0000"] '
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
[/COLOR] tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
'
.. and after removing COLOR
vb Code:
Private Sub Command1_Click()
'
v = 12 ' MSchart Olaf using PB
If v = 12 Then
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
End If
'
End Sub
.. with vb.net
vb.net Code:
Private Sub Command1_Click()
'
v = 12 ' MSchart Olaf using PB
If v = 12 Then
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
End If
'
End Sub
.. with php
php Code:
Private Sub Command1_Click()
'
v = 12 ' MSchart Olaf using PB
If v = 12 Then
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
End If
'
End Sub
.. with visual basic
visual basic Code:
Private Sub Command1_Click()
'
v = 12 ' MSchart Olaf using PB
If v = 12 Then
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
End If
'
End Sub
hmmm.. that one doesn't do squat .. colorwise
I thought this link listed options
http://www.vbforums.com/showthread.p...rums-Code-Tags
.. with perl
perl Code:
Private Sub Command1_Click()
'
v = 12 ' MSchart Olaf using PB
If v = 12 Then
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
End If
'
End Sub
.. with fortran
fortran Code:
Private Sub Command1_Click()
'
v = 12 ' MSchart Olaf using PB
If v = 12 Then
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
End If
'
End Sub
.. with c
c Code:
Private Sub Command1_Click()
'
v = 12 ' MSchart Olaf using PB
If v = 12 Then
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
End If
'
End Sub
.. with delphi
delphi Code:
Private Sub Command1_Click()
'
v = 12 ' MSchart Olaf using PB
If v = 12 Then
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
End If
'
End Sub
.. with visual foxpro
visual foxpro Code:
Private Sub Command1_Click()
'
v = 12 ' MSchart Olaf using PB
If v = 12 Then
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
End If
'
End Sub
I like this best .. most closely matches my VB6 Editor color choices,
although vb.net is pretty good, too ...
.. with vb.net
vb.net Code:
Private Sub Command1_Click()
'
v = 12 ' MSchart Olaf using PB
If v = 12 Then
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
End If
'
End Sub
Now, how to keep either of these color schemes and name it VB6
.. with vb6
vb6 Code:
Private Sub Command1_Click()
'
v = 12 ' MSchart Olaf using PB
If v = 12 Then
' 1234567890123456789012345678
' 0 1 2 2
' 0.0000000000000150000000000028
tx = "0.0000000000000150000000000028"
Dim zDbl As Double
Dim zDec As Variant
zDbl = CDec(tx)
zDec = CDec(tx)
'
Text2.Text = tx
Text3(1).Text = zDbl
Text4.Text = zDec
End If
'
End Sub
tbd