code hay barname nevisi

Subject: code hay barname nevisi Wed May 29, 2013 3:54 pm

First topic message reminder :

Be Name Khoda

salam khedmate hame dustan Very Happy

tu in qesmat mikham har seri code haye karbordi k tu nim ziad estefade mishe bzaram

sayam mknam b har 3 zabani k tu nim estefade mishe bzaram

age admin ya har kodum az freebuzzia moafeq nist mitune posto bpake Very Happy

age moafeqin k hich

lotfan az dadan spam khod dari knid

inja faqat qarare code b onvane comment qarar bgire

age soali ham bud tu private msg forum bgin

agram har kodum az shomaha mitunin code bzarin ali mishe

in y kmake vase unai k mikhan barname nevisi yad bgiran

albate ba ejaze admin Very Happy

Subject: Re: code hay barname nevisi Wed Jun 05, 2013 11:49 am

___=.king.=___ wrote:: tnx

vali b dard nakhoorrd

u ke chizi halit nist chra alaki mgi be dard nakhord

daste all dard nakone

and very tnx

Guest

Damet chiz,dame hamat0n chiz,tnx

Subject: Re: code hay barname nevisi Wed Jun 05, 2013 2:19 pm

AZizane Man
Qarar Bud Kesi Spam Nade !! ! ! !
Lotfan In Harfa O Tnx Ha Ro Kenar Bezarid
Ba Tashakor
Code Load Kardan File Az Pc Be Soft(Mese Add kardan File Txt Be TextBox Va Ya List Box:
Avali In Using :

Code:: using System.IO;// Baraye Farakhanie File Ha Az Pc be Soft

Khob Inam Code Ha Ke Toye Button Mizarid

Code:: try
{
OpenFileDialog Open = new OpenFileDialog();
Open.ShowDialog();

if (File.Exists(Open.FileName))
{
var sr = new StreamReader(Open.FileName);
listBox1.Items.Clear();
do
{
listBox1.Items.Add(sr.ReadLine());//Mitunid Be Ja ListBox TreeView | TextBox | Combo Box Va ...... Bezarid *V*

}
while (sr != null);
}
}
catch { }
}

Subject: Re: code hay barname nevisi Wed Jun 05, 2013 3:28 pm

Split Dar VB.NET
Baraye joda sazie id flood ha va ...

Code:: Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a() As String
Dim i As Integer
a = Split(TextBox1.Text, TextBox2.Text)
For i = LBound(a) To UBound(a)
ListBox1.Items.Add(a(i))
Label1.Text = i + 1
Next
End Sub
End Class

Subject: Re: code hay barname nevisi Wed Jul 31, 2013 12:10 pm

code vb6

mitunid ye tedad adad and horuf o ... moshakhas konid ke faqat hamina toye textbox type beshan .

Code:: Public Sub hitler(KeyAscii As Integer)
Dim strValid As String
strValid = "0123456789ABCDEFabcdef"
If KeyAscii > 26 Then
If InStr(strValid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
hitler KeyAscii
End Sub

Subject: Re: code hay barname nevisi Wed Jul 31, 2013 1:16 pm

AQA YE SOAL BEGID IN KODA RO KOJA VARED KONIM mix

AKH MA ZIADI TAZE KARIM bye

Subject: Re: code hay barname nevisi Wed Jul 31, 2013 2:15 pm

Slm
Agha Mostafa To Forum Deghat kuni mibini hamchin topici hast mituni code atu onja share kuni

Subject: Re: code hay barname nevisi Wed Jul 31, 2013 4:31 pm

ahmad75 wrote:: AQA YE SOAL BEGID IN KODA RO KOJA VARED KONIM AKH MA ZIADI TAZE KARIM

to az ziadi ham ziadi tar taze kari

to forum to bakhshe programming support mituni javabe soaleto peyda k.o.n.i

barname nevisi zabun haye mokhtalefi dare > VB6 and vb.net ~ C#.NET ~ C ~ C++ ~ delphi ~ php ~ ehem ~ ohom ~ ihim

behtare az vb.net ya vb6 shoru k.o.n.i

amoozeshash to net va to hamin forum faravune

Subject: Re: code hay barname nevisi Wed Jul 31, 2013 8:50 pm

qarar shod spam nadid hala moderator umade spam mide .

plz in spam haro ham del k.o.n.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

mishe goft in mokamel soft va faqat janbe zibaei dare
roye label kar mikonim
ye label va ye timer lazeme
in code haro tooye timer benvisid
be timer : interval bdid mesle 1000 ke mije 1sec

Code:: Static i As Single
i = i + 100
Label1.Left = i
If Label1.Left > Form1.Width Then
i = 0
End If

vb6

Subject: Re: code hay barname nevisi Wed Jul 31, 2013 8:55 pm

in code vb6 vase farsi kardan keyboard

in code ro toye qesmate general qarar bedid

Code::     Private Const HKL_NEXT = 1
    Private Const HKL_PREV = 0
    Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
    Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long

ye cmd toye form bezarid va toye cmd in code ro qarar bdid

Code:: ActivateKeyboardLayout oldKB, ByVal 0&

vb6

Subject: Re: code hay barname nevisi Thu Aug 01, 2013 1:48 pm

salam , idea e khobie ama kheyli bade ke har 3ta zabon ru tu ye topic begid !
mitonid 2ta topic ijad konid yeki c# yeki ham vb6 va vb.net

movafagh bashid

Subject: Re: code hay barname nevisi Tue Aug 20, 2013 12:33 pm

Add Tab Na Moshabeh

Code:

Code:: private void button1_Click(object sender, EventArgs e)
   {
   for (int d = 0; d < tabControl1.TabPages.Count; d++)
   {
   if (tabControl1.TabPages[d].Text != textBox1.Text)
   {
   tabControl1.TabPages.Add(textBox1.Text);
   return;
   }
   else
   {
   MessageBox.Show(":O");
   return;
   }
   }
   }

Code:

Code:: using agsXMPP;
using agsXMPP.Xml.Dom;
using System.Collections.ObjectModel;

Code:

Code:: Collection<XmppClientConnection> x3 = new Collection<XmppClientConnection>();

Code:

Code:: try
{
for (int i = 0; i < dataGridView1.Rows.Count - 1; i++)
{
XmppClientConnection soket = new XmppClientConnection();
x3.Add(soket);
x3[i] = new XmppClientConnection();
x3[i].Server = frm1.txtserver.Text;
x3[i].ConnectServer = frm1.txthost.Text;

x3[i].Open(dataGridView1.Rows[i].Cells[0].Value.ToString(),
dataGridView1.Rows[i].Cells[1].Value.ToString(), "Balouch++", 50);
x3[i].OnAuthError += OnAuthError;
x3[i].OnClose += OnClose;
x3[i].OnLogin += onloginids;
}
}
catch (Exception asa) { MessageBox.Show(asa.Message); }

Code:

Code:: Paridan Az Halqe
   for (int d = 0; d < 10; d += 1)
   {
   System.Threading.Thread.Sleep(1000);
   if (d == 5)
   {
   continue;
   }
   this.Text = d.ToString();
   }
yani vaqi f mish 5 dige 5 neshoon nade bere 6 az halqe for kamel fahmide bashid ino ham mifahmid

Biroon Raftan Kol Halqe

Code:

Code:: for (int d = 0; d < 10; d += 1)
   {
   System.Threading.Thread.Sleep(1000);
   if (d == 5)
   {
   return;
   }
   this.Text = d.ToString();
   }
yani vaqti d shod 5 dige edame nade bia biroon

Gerftan Server
Code:

Code::    try
   {
string id = textBox1.Text;
   string gy = id.Substring(id.IndexOf("@") + 1);
gy = gy.Substring(0, gy.Length - 0);
MessageBox.Show(gy.ToString());

} Balouch++@nim.com mide == nim.com
catch { }

Subject: Re: code hay barname nevisi Tue Aug 20, 2013 4:23 pm

Farq Add , AddRang , Insert

Code:: private void Form1_Load(object sender, EventArgs e)
   {
   //add rang
   object[] ds = { "Gav", "Khar" };
   listBox1.Items.AddRange(ds);
   //insert
   listBox1.Items.Insert(0,":oO");
   //add
   listBox1.Items.Add("Mamad");
   }

addRang vase ine ke bekhay chandin item add k.o.n.i va bayad az object[] estefade kard

insert dar loqat be mani jadan hast yani mire item 0 mishe va hame item biyand pain tar

add ham ke vase add ye item

//

hala toy listBox aval Gav , Khar Add Mishand bades :oO mire aval listBox badesh ham Mamad add mishe

Code:: :oO
Gav
Khar
Mamad

Subject: Re: code hay barname nevisi Tue Aug 20, 2013 5:44 pm

Code:: Please wait moharek

Code:: private void button3_Click(object sender, EventArgs e)
{
this.Text = "Please wait";
timer1.Start();
}

Code:: private void timer1_Tick(object sender, EventArgs e)
{
if (this.Text == "Please wait")
{
Thread.Sleep(1000);
this.Text = "Please wait.";
}
if (this.Text == "Please wait.")
{
Thread.Sleep(1000);
this.Text = "Please wait..";
}
if (this.Text == "Please wait..")
{
Thread.Sleep(1000);
this.Text = "Please wait...";
}
if (this.Text == "Please wait...")
{
Thread.Sleep(1000);
this.Text = "Please wait";
}
}

man az Thread estefade kardam shoma mitoonid az interval khod timer estefade konid

Subject: Re: code hay barname nevisi Tue Aug 20, 2013 8:25 pm

tedad horoof va alamet vared shode dar textBox

Code:: private void textBox1_TextChanged(object sender, EventArgs e)
{
string sd = textBox1.Text;
if (sd.Length != 0)
{
label1.Text = sd.Length.ToString();
}
else
{
label1.Text = "Empety";
}
}

Subject: Re: code hay barname nevisi Tue Aug 20, 2013 10:47 pm

Switch

Code:: private void listBox1_SelectedIndexChanged(object sender, EventArgs e)
{
string sd = listBox1.Items[listBox1.SelectedIndex].ToString();

switch (sd)
{
case "mamad": this.Text = "1";
break;
case "1": this.Text = "2";
break;
}
}

swich ye if bozorge ke toy toy comboBox va listBox va .. kar bor dare

halqe For

Code:: for(int d = 0 ; d < 10; d++)
{
this.Text = d.ToString();
}

in cod khili mohem va por karbord hast
halqe for az seqesmat tashkil shode ke ; jeda mishand
int d = 0; ==> mige az 0 shoroo kn
d < 10 ; ==> ta 10 bro
d++ ya d+=1 ==> yani yeki yeki bro golo

in cod vase s2a Sender & Ban List Remover & .. Karboard Dare
Masalan U Ba AgsXmpp Add List Add Mikoni To ListBox
bad mikhay ye msg baray koleshoon send k.o.n.i
toy for
listBox.items[d].ToString()
//

Subject: Re: code hay barname nevisi Tue Aug 20, 2013 10:55 pm

baray inke be horoof kochek va bozoorg hasas nashe (switch)

Code:: private void listBox1_SelectedIndexChanged(object sender, EventArgs e)
{
string sd = listBox1.Items[listBox1.SelectedIndex].ToString();

switch (sd.ToLower())
{
case "mamad": this.Text = "1";
break;
case "1": this.Text = "2";
break;
}
}

» help vase barname nevisi (barname nevisa)
» tarfandhaye barname nevisi
» barname nevisi symbian
» Amoozeshe kar ba mid va left dar VB6 (30% az barname nevisi vaseye nimbuzz dar vb6)
» Amuzeshe barname nevisi be zaBane vb6