Variable Environment
Private Sub cmdGet_Click()
Me.txtEnv.Text=vbNullString
Dim strEnv As String
For inCount=1 to 32
strEnv=strEnv & Environ$(intCount) & vbCrLf
Next intCount
Me.txtEnv=strEnv
End Sub
Source Code VB
- 3D Text October 20, 2009‘Code Static Sub FormLabelCaptionEmbossed(L1 As Label, L2 As Label, L3 As Label, _ label_text As String, label_effect As Integer, label_forecolor As Long, _ label_depth As Integer) Dim lt As String Dim savesm As Integer Dim f As Form Set f = L1.Parent L1.Visible = False L2.Visible = False L3.Visible = False savesm = f.ScaleMode f.ScaleMode = 3 If label […]programmervb
- Perbaikan October 8, 2009Sedang Dalam Perbaikan dan Update Document Posted in Uncategorizedprogrammervb
- Show and hide assistant October 7, 2009Private Sub CommandButton1_Click() With Assistant .Visible = True .Animation = msoAnimationGreeting End With End Sub Private Sub CommandButton2_Click() With Assistant .Visible = False .Animation = msoAnimationGreeting End With End Sub Private Sub CommandButton3_Click() With Assistant.NewBalloon .BalloonType = msoBalloonTypeBullets .Ic […]programmervb
- Convert Text To Number September 25, 2009‘2 texts, 2 labels and 2 commands Private Sub cmdConvert_Click() txtResult = NumToText(Val(txtNumber)) txtNumber.SelStart = 0 txtNumber.SelLength = Len(txtNumber) txtNumber.SetFocus End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Function NumToText(dblVal As Double) As String Static Ones(0 To 9) As String Static Teens(0 To 9) As String St […]programmervb
- combination September 17, 2009Dim flag As Boolean Public Sub Engine(char As String, length As Byte) ReDim ary(length) Dim depth As Byte Dim result As String depth = 1 While Not (flag) k = DoEvents() ary(depth) = ary(depth) + 1 If depth = length Then result = Left(result, length – 1) + Mid(char, ary(depth), 1) Else result = result + Mid(char, ary(depth), 1) End If If ary(depth) Len( […]programmervb
Affiliate
SEO Monitor
Comments