يه سوال غير حرفه اي !

[mehdi_7070]

سلام
دوستان ! اگه ميشه در مورد زير مرا راهنمايي كنيد و كدش را براي من بذاريد .
يك عكس در برنامه داريم . مي خواهيم با كليك روي عكس يا روي يك دكمه عكس به صورت بزرگتر در كل صفحه a4 قرار گيرد .
متشكرم

[mehdi_7070]

یعنی انقدر سوالم غیر حرفه ای هست که من 27/12/2005 اون را اعلام کردم . 51 بازدید داشته ، اما یک نفر هم نتونسته جواب بده .
پس آقای تکنیک برتر ! شما که برنامه نویس هستید و کاربر فعال برنامه نویسی هم هستید ، چرا جواب سوالم را نمی دید .
واقعا که .... آخه چرا .... ! بگو بلد نیستم ، من را راحت کن .
==================================================
واقعا شرمنده ، آدم بعضی وقت ها عصبانی میشه و خوب دیگه می بینید چی میشه دیگه .
آدم را این همه مدت سرکار می ذارند ...

[navid_mansour]

سولات پيچيدست

[ahmad_h]

سلام من نمي دانم منظورت از صفحه آ4 چيه ولي دو راه داره
1- عكستو توي پیکچر فرمت بذاری بعد در کلیک فرمت بگی که فرمتو هر اندازهای که میخوای بکنه
2 - یه ایمیج بذاری و در ایونت کلیکش بگی که اول فرمتو بزرگ کنه بعد ابعاد ایمیجتو البته یادت نره که ایکیجتو استریچ کنی
من کد دومی رو برات میذارم
Private Sub Image1_Click()
Me.Width = Screen.Width 'مقدار دلخواه
Me.Height = Screen.Height 'مقدار دلخواه
Me.Left = 0
Image1.Stretch = True
Image1.Width = Me.Width
Image1.Height = Me.Height
Image1.Left = 0
End Sub
البته اگه بخوای اندازش آ4 بشه باید scale mode فرمتو میلیمتر و یا سانتیمتر بذاری بعد عرض فرمتو عرض کاغذ و بلندیش هم بلندی کاغذ بذاری و بعد همه چی ریدیفه
امیدوارم کمکی شده باشه

[mehdi_7070]

آقا متشکرم !
ولی خوب میشه یه کمی ساده تر برام بگی . یعنی جزئیات هم ذکر کنی .
با تشکر
( یکی پیدا شد که بالاخره به سوال ما جواب بده ، خدا بیشترش کنه !)

[mehdi_7070]

بازم شرمنده ، راستی چه طوری میشه کاری کرد که با کلیک کردن روی عکس ، روی صفحه a4 به صورت full screen چاپ بشه . این را هم توضیح بدی خیلی عالی هست .

[ahmad_h]

فكر نميكنم ديگه توضيحي بخواد كه
هر جاشو كه ميخواي بگو

[nika]

من تونستم برنامه كشيدن پرچم با اسمبلي رو بنويسم اما نميتونم EXE کنمش .
و دیگه اینکه وسطشم نمیتونم بنویسم لا الله اله الله .
ترو خدا کمک کنید .
STESEG SEGMENT STACK 'STACK'
DW 32 DUP(0)
STSEG ENDS
---------------------------------------
CODSEG SEGMENT 'CODE'
ASSUME CS:CODSEG,SS:STSEG
START PROC FAR
CLEAR MOITOR
--------------------------------------
MOV AX,0600H
MOV CX,0000H
MOV BH,41H
MOV DH,24H
MOV DL,79
INT 10H
------------------------------------
mode 12H for flag

MOV AH,0
MOV AL,12H
INT 10H
-----------------------------------
MOV CX,50
MOV DX,50
BACK1: MOV AH,0CH
MOV AL,4H
INT 10H
INC CX
CMP CX,100
JNE BACK1
MOV CX,50
INC DX
CMP DX,100
JNE BACK1
--------------------
MOV CX,100
MOV DX,100
BACK2: MOV AH,0CH
MOV AL,7H
INT 10H
INC CX
CMP CX,150
JNE BACK1
MOV CX,100
INC DX
CMP DX,150
JNE BACK2
--------------------
MOV CX,150
MOV DX,150
BACK3: MOV AH,0CH
MOV AL,2H
INT 10H
INC CX
CMP CX,200
JNE BACK1
MOV CX,150
INC DX
CMP DX,200
JNE BACK3
--------------------
MOV AX,4C00H
INT 21H
START ENDP
CODSEG ENDS
END START

[R£ɀД]

نيكا جان براي تبديل به exe يك فايل به اسم ml.exe وجود دارد كه شما با تايپ ml.exe و نام فايل اسمبلي به پسوند asm دو فايل ساخته ميشه يكي با پسوند obj و ديگري با پسوند exe .
( فايل ml.exe مال شركت مايكروسافت هست . )
( اين مطلب رو از روي كتاب برات نوشتم خودم تا حالا كار نكردم.)
( راستي توي همون تاپيكي كه براي اين موضوع ايجاد كرده بودي دنبال مي كردي بهتر بود زودتر جواب مي گرفتي )

[R£ɀД]

راستي يك راه ديگر هم هست :
فايل MASM يا TASM برنامه اسمبلي رو ترجمه ميكنه و فايل با پسوند obj مي سازه و فايل LINK يا TLINK فايل هايي با پسوند obj رو به عنوان ورودي ميگيره و فايل اجرايي با پسوند exe توليد ميكنه.
( فكر كنم اين بيشتر به دردت بخوره چون فايل ml.exe رو ممكنه پيدا نكني و نداشته باشي . در ضمن فايل ml.exe كه گفتم اين دو كاري رو كه 3 خط بالاتر نوشتم رو يكجا انجام ميده).

براي ساخت فايل obj :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

براي ساخت فايل اجرايي :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[shubtt]

شما میشه در مورد سوالت یکم توضیح بدی ؟؟
میخوای با چی اینو که گفتی رو درست کنی ؟
فلش یا زبانهای برنامه نویسی ؟

[mehdi_7070]

جناب shubtt جان !
یه مقدار بیشتر توجه کنید ...
سوال که واضح هست . با کلیک کردن روی عکس ، روی یک صفحه a4 چاپ بشه .
بعد این که شما دقت کن که این توی کدوم انجمن مطرح شده .
من که توی انجمن Visual Basic درباره فلش که سوال نمی پرسم ؟؟

[Payman_62]

ببخشيد اشتباه شد.

[ahmad_h]

مثل اينكه بحث داره بالا ميگيره
حالا براي اينكه تمومش كنم كد زير رو برات ميذارم برو حال كن
كافيه يه فرم خالي باز كني يه ايميج هم بذاري روش و يه عكس بهش متصل كني اين كد هم كپي كني تو فرمت بعدم f5 رو بزنی
بعدم رو فرمت کلیک کنی
Private Sub Form_Click()
Me.Width = Me.ScaleX(210, vbMillimeters, vbTwips)
Me.Height = Me.ScaleY(297, vbMillimeters, vbTwips)
Image1.Stretch = True
Image1.Left = 0
Image1.Top = 0
Image1.Width = Me.Width
Image1.Height = Me.Height
Me.PrintForm
End Sub

[mehdi_7070]

آقا احمد !
دستت درد نکنه ...
بعد این روی a4 پرینت می کنه دیگه ؟
خیلی از لطف شما ممنون .

[ahmad_h]

انشا الله كه كار كنه

[mehdi_7070]

سلام
خیلی ممنون از لطفتون ...
اگه میشه به این یکی هم جواب بدید :
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
همون جا منتظر جوابتون هستم .

[HAW3D]

مهدی جان اگه میخوای پرینت بگیری بهتره مستقیما با خود ÷رینتر کارکنی
توجه کن
object.PaintPicture picture, x1, y1, width1, height1
Picture : Required. The source of the graphic to be drawn onto object
عرض صفحه چاپی
printer.weith
ارتفاع صفحه چاپی
printer.height

[mehdi_7070]

متشكرم ... اين را هم امتحان مي كنم

باز هم از همه دوستان تشكر مي كنم

[re_elhami_27]

با سلام
عزيز جان با استفاده از خواص اشيا, image و pictureمي توان اين كارها را انجام داد مانند خواصtop , left, withe, height