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.

Array
                                                                                                                             
Private Sub Command1_Click()                                        
  Dim NamaBulan(12) As String

  NamaBulan(1) = "Januari"
  NamaBulan(2) = "Februari"
  NamaBulan(3) = "Maret"
  NamaBulan(4) = "April"
  NamaBulan(5) = "Mei"
  NamaBulan(6) = "Juni"
  NamaBulan(7) = "Juli"
  NamaBulan(8) = "Agustus"
  NamaBulan(9) = "September"
  NamaBulan(10) = "Oktober"
  NamaBulan(11) = "November"
  NamaBulan(12) = "Desember"

  x = Text1.Text
  Text2.Text = NamaBulan(x)

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