ايران ويج

ايران ويج > برنامه نویسی > ويژوال بيسيك > سورس تبديل ايدي به ايميل
نسخه‌ی کامل: سورس تبديل ايدي به ايميل
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.

bah69man

۱۶-فروردین-۱۳۹۰, ۱۳:۲۵:۱۳
با سلام خدمت دوستان گلم دنباي سورسي بودم كه ليست اي دي رو بهش بديم و به ان @yahoo.com اضافه كنه بعد يك فايل خروجب بده كه سيو كنيم

ممنون

saeedvir

۲۱-فروردین-۱۳۹۰, ۱۳:۵۳:۱۵
(۱۶-فروردین-۱۳۹۰, ۱۳:۲۵:۱۳)bah69man نوشته است: [ -> ]با سلام خدمت دوستان گلم دنباي سورسي بودم كه ليست اي دي رو بهش بديم و به ان @yahoo.com اضافه كنه بعد يك فايل خروجب بده كه سيو كنيم

ممنون
کد:
Private Sub Command1_Click()

For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i) & "@Yahoo.Com"
Next i

End Sub
ايران ويج > برنامه نویسی > ويژوال بيسيك > سورس تبديل ايدي به ايميل