PDA

View Full Version : کد فکس یک فرم در vb.net


realstudent
پنج شنبه 07 تیر 1386, 13:33 عصر
سلام.
میخواستم اگه کسی کار کرده کد برنامه ی فکس یک فرم را به من بگه.
ممنون.
__H2__
پنج شنبه 07 تیر 1386, 16:13 عصر
سلام
اگر منظورتان تغییر فکس جاری است که کافیست متد Focus کنترلر یا فرم مورد نظر را فرا خوانی کنید.
ControlName.Focus
javad2000
پنج شنبه 07 تیر 1386, 19:40 عصر
سلام
نمی دونم منظور شما از فکس همون Focus هست یا Fax؟
اگه منظور Focus هست، و اگه می خواهید یک فرم رو به جلوی فرم دیگر بیارید می تونید از کد زیر استفاده کنید:
me. BringToFront
یا:
Form2.Activate
realstudent
جمعه 08 تیر 1386, 06:58 صبح
ممنون.
نه منظور من خود فاکس است.یعنی با یه دکمه فرم جاری را فکس کنیم.
javad2000
جمعه 08 تیر 1386, 15:31 عصر
ممنون.
نه منظور من خود فاکس است.یعنی با یه دکمه فرم جاری را فکس کنیم.
سلام
فکر نمی کنم بشه روی فرم Focus کرد. آخه فرم ها اصلاً پراپرتی TabStop ندارند و حتی از دستور:
Me.Focus

هم که استفاده می کنیم، فکوس به یکی از اشیاء درون فرم منتقل میشه (اون شیئی که TabIndex معادل صفر داره). حالا برای چی میخواید روی خود فرم فکوس کنید؟ خوب فکوس رو به اشیاء داخل اون بدید و اگر هم می خواید برای رویداد Focused فرم کدنویسی کنید می تونید برای رویداد FormActivated کد بنویسید تا با هر بار فعال شدن فرم، اون رویداد اجرا بشه.
eyes_shut_number1
جمعه 08 تیر 1386, 17:31 عصر
دوست عزیز ایشون FAX رو میخواد نه Focus رو
saeed_rezaei
شنبه 09 تیر 1386, 00:04 صبح
سلام
برای اینکه بتونید فرم رو فکس کنید باید دو کد نویسی دو قسمت رو بلدباشید.
1. ارسال فکس.
2. گرفتن تصویر از فرم.

برای ارسال فکس شما چندین حالت وجود داره. مثلا شما می تونید از winfax استفاده کنید و یا از fax consol خود ویندوز.
کدی رو که دراین قسمت می نویسم از faxconsole خود ویندوز استفاده میکنه.
قبل ازهر کاری سرویس فکس رو فعال کنید. در غیر اینصورت Faxcomlib رو توی لیست refrence ندارید و این یعنی بی خیال.
برنامه تون رو شروع کنید.
در قسمت refrence در زبانه com، کلاس FAXCOMLib رو اضافه کنید.
حالا دراول فرمتون بنویسید.


Imports FAXCOMLib


در ادامه جهت ارسال فکس این کد رو وارد کنید.




Dim fxsvr = New FAXCOMLib.FaxServer()
Dim fxdoc = fxsvr.CreateDocument(fo.FileName)

fxsvr.Connect("نام کامپیوتر") 'Machine Name


fxdoc.FileName = "مسیر و نام فایل ارسالی"
fxdoc.FaxNumber = "شماره فکس"
fxdoc.RecipientName = ""

fxdoc.Send()
fxsvr.Disconnect()



کد بالا رو اگه درست وارد کرده باشید، فایلی رو که مشخص کردید رو به شماره وارده فکس می کنه.
حالانوبت به گرفتن تصویر از فرم می رسه. باید یه تصویر از فرمتون رو بگیرید و در یه فایل ذخیره کنید. سپس این فایل رو به تابع بالا می دید تا واستون فکس کنه.

به لینک زیر برید.
http://barnamenevis.org/forum/showthread.php?t=71733
دراین لینک نحوه گرفتن عکس از دسکتاپ رو نوشتم. شما بایداز فرمتون عکس بگیرید نه از کل دستکاپ. کد رو که نگاه کنید متوجه می شید که چطور اندازه و محل فرمتون رو مشخص کنید.
با کدی که توی این لینک نوشتم، از فرمتون عکس تهیه کنید. عکس رو در فایل ذخیره و سپس به تابع بالا بدید تا واستون ارسال کنه.
البته راه دیگه ای هم واسه عکس گرفتن از فرم یا کنترل دلخواهتون روی فرم هم هست. چون وقت بیشتری ندارم نمی تونم در مورد اون توضیح بدم.
vaezhasan
دوشنبه 19 اسفند 1387, 12:58 عصر
سلام اين fo چيه؟
vaezhasan
چهارشنبه 24 آذر 1389, 13:27 عصر
عزيز FAX مي خواد نه FOCUS!!!!!!!!!!!!!!!!
vaezhasan
چهارشنبه 24 آذر 1389, 14:07 عصر
آقا اين fo چيه؟ چرا كد كامل نمي ذاريد؟
MehdiElexal
سه شنبه 24 اسفند 1389, 23:55 عصر
fooooooooooooooooooooooooooooooooooooooooooooooooo ?