Private m_oXmlCfg As New MSXML.DOMDocument
Dim oNode As IXMLDOMNode
m_oXmlCfg.Load m_sXMLfile
Do
  DoEvents
Loop Until m_oXmlCfg.readyState = XML_LOAD_COMPLETE
Set oNode = oDom.selectSingleNode("//editform[@name=""" & _
 "myformdetails" & """]")
Skip Navigation Links.


Procedure
                                                                                                                                                   
Option Explicit
Public sNamaBulan As String
'-------------------

Public Sub NamaBulan(i)
  If i = 1 Then
    sNamaBulan = "januari"
  ElseIf i = 2 Then
    sNamaBulan = "Februari"
  ElseIf i = 3 Then
    sNamaBulan = "Maret"
  ElseIf i = 4 Then
    sNamaBulan = "April"
  ElseIf i = 5 Then
    sNamaBulan = "Mei"
  ElseIf i = 6 Then
    sNamaBulan = "Juni"
  ElseIf i = 7 Then
    sNamaBulan = "Juli"
  ElseIf i = 8 Then
    sNamaBulan = "Agustus"
  ElseIf i = 9 Then
    sNamaBulan = "September"
  ElseIf i = 10 Then
    sNamaBulan = "Oktober"
  ElseIf i = 11 Then
    sNamaBulan = "November"
  ElseIf i = 12 Then
    sNamaBulan = "Desember"
  Else
    sNamaBulan = "index salah"
  End If

End Sub 


Contoh pemanggilan Procedure:
Private Sub Command1_Click()
   NamaBulan Text1.Text
   Text2.Text = sNamaBulan
End Sub


Download kode di sini

'-------------------------------------
Function

Public Function NamaHari(i) As String
  If i = 1 Then
    NamaHari = "Minggu"
  ElseIf i = 2 Then
    NamaHari = "Senin"
  ElseIf i = 3 Then
    NamaHari = "Selasa"
  ElseIf i = 4 Then
    NamaHari = "Rabu"
  ElseIf i = 5 Then
    NamaHari = "Kamis"
  ElseIf i = 6 Then
    NamaHari = "Jum'at"
  ElseIf i = 7 Then
    NamaHari = "Sabtu"
  Else
    NamaHari = "index salah"
  End If
End Function



Contoh pemanggilan function:
Private Sub Command1_Click()
   Text2.Text = NamaHari(Text1.Text)
End Sub


download kode di sini
'-------------------------------------



                                                                                                                                                                                           
HyperLink Share 
Mau punya penghasilan? ikuti program-program di bawah ini:
xbasicpro.com
Diuskusi Visual Basic
Subscribe to xbasicpro_vb

Powered by us.groups.yahoo.com
counter sejak 5 april 2010

  (C)XBasicPro | XBasicPro di Facebook