help in vb6

Subject: help in vb6 Sat Sep 13, 2014 12:31 am

Slm ye list box daram
Va ye button ziresh mikham button ke ckick shod
Bere to file haye pc va yek file text ro peyda kone va
Mohtaviatesho to list box enteqal bde
Age intor nemishe raveshe dga sho bge
tmx

Subject: Re: help in vb6 Sat Sep 13, 2014 12:36 am

manzoram az peyda kardan khodemon to drive ha begardim donbal file

Subject: Re: help in vb6 Sat Sep 13, 2014 8:20 am

Salam Jehate Anjam Amal Haye Load Va Save Be Component Microsoft Common Dialog Control Niyaz Darim
Pas Aval Un Component Ro Be Form Kari Ezafe Kun

Load:

Code:: Private Sub Load_cmd_Click()
Dim cdlg1 As Object
On Error Resume Next
Dim lngload As Long
Set cdlg1 = CreateObject("MSComDlg.CommonDialog")
cdlg1.hitler = "Text Files (.txt)|*.txt"
cdlg1.filename = ""
cdlg1.DialogTitle = "Load List"
cdlg1.ShowOpen
If LenB(cdlg1.filename) = 0 Then Exit Sub
Dim filename As String
filename = cdlg1.filename
Dim lstInput$, oneinput, twoinput As String
On Error Resume Next
Open filename$ For Input As #1
While Not EOF(1)
Input #1, lstInput$
List1.AddItem lstInput$
Wend
Close #1
End Sub

Ye Nokte:cdlg1 hamun Microsoft Common Dialog Control Hastesh Ke Bande Rename Kardam

Inam Vase Save:

Code:: Private Sub Save_cmd_Click()
Dim Cdlg As Object
On Error Resume Next
Dim lngSave As Long
Set Cdlg = CreateObject("MSComDlg.CommonDialog")
Cdlg.hitler = "Text Files (.txt)|*.txt"
Cdlg.filename = "add list"
Cdlg.ShowSave

Cdlg.DefaultEx = "C:"
Cdlg.DialogTitle = "Save List"
If LenB(Cdlg.filename) = 0 Then Exit Sub
Dim filename As String
filename = Cdlg.filename

Open filename$ For Output As #1
For lngSave& = 0 To List1.ListCount - 1
Print #1, List1.List(lngSave&)
Next lngSave&
Close #1

End Sub

Ye Doa KHeyram Dar Haghe Ma Ada Kunid

Subject: Re: help in vb6 Sat Sep 13, 2014 11:37 am

merci mr

faqat alan ye chizi

ba zi soft ha hastesh

vaqti bazesh mikoni

to khodesh ham joke hast

....

joke ha amade to ye text box

dg niaz nist joke ezaf koni on che tore?

Subject: Re: help in vb6 Sat Sep 13, 2014 12:24 pm

behnam700 wrote:: merci mr
faqat alan ye chizi
ba zi soft ha hastesh
vaqti bazesh mikoni
to khodesh ham joke hast
....
joke ha amade to ye text box
dg niaz nist joke ezaf koni on che tore?

Quote :

dakhel Form_Load benevis:

Code:: textjoke.text="matn jokat"

ama motmaenam ba in hal bazam error mide chon hajm matn ha ziade ye dafe nemitone toye text berize va error mide.
pas miyaym ye timer mizarim.
matn joke khdemon ro bakhsh bandi mikonim masalan ta 3 bakhsh dorost mikonim ta error nade.
baad inkar:

Code:: Dim a As Integer

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
a = a + 1
If a = 1 Then
Text1.Text = "bajhsh aval matn"
ElseIf a = 2 Then
Text1.Text = Text1.Text + "Bakhsh dovom matn" ' injori minevisam ta mohtaviat text1 ro negah dar va behesh matn ezafe kone
ElseIf a = 3 Then
Text1.Text = Text1.Text + "bakhsh 3vom matn"
Timer1.Enabled = False
End If
End Sub

ye chize dg inke horofe پ ژ گ چ ro support nemikone.
be zodi pejiDecoderSkt ro Share mikonam , ham baes mishe text va baghie shey ha un horof ro support konan ham inke horofe farsi ro encode va decode mikone ta babate send kardan jok ha moshkeli nadashte bashe.