دوستان کسی میدونه چطور میشه بدون اینکه فرمی باز باشه روی دسکتاپ یا هر جای دیگه تصویر کشید؟ حتما برنامه های اینجوری رو تا حالا باید دیده باشین.
ممنون
Printable View
دوستان کسی میدونه چطور میشه بدون اینکه فرمی باز باشه روی دسکتاپ یا هر جای دیگه تصویر کشید؟ حتما برنامه های اینجوری رو تا حالا باید دیده باشین.
ممنون
منظورت چه جور تصویری ه ؟!نقل قول:
یه عکس یا...!؟!
میشه چند تا مربع و دایره و خط و یا چند ضلعی نا منظم یا منتظم و از این جور چیزا کشید!
ولی... اول باید مشخص کنی که چی خوای بکشی!
حتی میشه یه برنامه نقاشی رو دسکتاپ درست کرد ! (زیاد جدی نگیر! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] )
فکر نمی کنم خیلی سخت باشه!
فعلاً این رو داشته باش! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
جواب بده تا ادامه بدم!؟! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]کد:
'This Project needs
'- two timers, interval=100
'- a button
'in general section
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
Timer2.Interval = 100
Timer2.Enabled = True
Command1.Caption = "Draw Text"
End Sub
'This will draw an Ellipse on the active window
Sub Timer1_Timer()
Dim Position As POINTAPI
'Get the cursor position
GetCursorPos Position
'Draw the Ellipse on the Screen's DC
Ellipse GetWindowDC(0), Position.x - 5, Position.y - 5, Position.x + 5, Position.y + 5
End Sub
Sub Command1_Click()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim intCount As Integer, strString As String
strString = "Cool, text on screen !"
For intCount = 0 To 30
'Draw the text on the screen
TextOut GetWindowDC(0), intCount * 20, intCount * 20, strString, Len(strString)
Next intCount
End Sub
Private Sub Timer2_Timer()
'Draw the text to the active window
TextOut GetWindowDC(GetActiveWindow), 50, 50, "This is a form", 14
End Sub
میخوام فقط رو صفحه خط بکشم. یه چیزی مثل ابزار قلم در Paint
راستی میخوام هرجایی بتونم بکشمش.
ممنون.
بازم این دو جوره!؟! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
یا مختصات هارو داری یا نداری! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اگه داشته باشی می تونی از این استفاده کنی! :
این یکی رو خودم نوشتم! یه Timer به فرمت اضافه کن با Interval هر چه قدر که خواستی ! Enable رو هم True کن !
بعد از اجرای برنامه رو هر پنجره ای که کلیک کنی(حتی دسکتاپ) از گوشه سمت چپ بالاش خط می کشه تا جایی که موس هست !
فقط خیلی گند کاری داره ها!؟! یه جورایی رو اعصابه! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] !؟! بعد از این که برنامه رو بستی ، رو دسکتاپ کلیک راست کن و گزینه Refresh رو از منو باز شده انتخاب کن!
اگر هم مختصات رو نداشته باشی باید به دستش بیاری!؟! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]کد:
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Timer1_Timer()
Dim Pos As POINTAPI
GetCursorPos Pos
LineTo GetWindowDC(GetActiveWindow), Pos.x, Pos.y
End Sub
اون هم یسری کد دیگه می خواد که می تونی وصلَش کنی (Patch [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ) به کد اصلی و ... ازش استفاده کنی!
حالا بگو ببینم مشکلت حل شد یا نه؟! مختصات هارو داری یا باید به دستشون بیاری؟!
جوابم رو بده تا ادامه بدم! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ممنون
ببینین میخوام یه طوری باشه که با حرکت موس شکل دلخواه کشیده بشه.
ممنون
ببینین میخوام یه طوری باشه که با حرکت موس شکل دلخواه کشیده بشه.
آقا می شود سورس یا حود برنامه را بگذارید
فک کنم یه فرمی باز می کنن ولی اون فرم کل صفه رو می پوشونه و به جای بک گراند اون فرم , عکسی که برنامه از دسکتاپ گرفته رو می ذاره بعدشم رو اون عکس داخل فرم اون شکلایی که می خوایو می کشه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
جور دیگه ایم فک کنم می شه ولی خیلی پیچیده میشه چون اگه بخوای به صورت واقعی اون تغییرات روی خود دسکتاپ اعمال بشه و بمونه به این معنیه که اگه مثلا خطی رو آیکن مای کامپیوتر کشیدی باید برنامه متوجه بشه که اون جایی که این خطو کشیدی مای کامپیوتره و بعد بره آیکن مای کامپیوترو از تو سیستمت پیدا کنه و بازش کنه و اون خطو که کشیدی رو همون قسمت از عکس آیکن مای کامیپوتر بکشه و ذخیرش کنه و ریفرش کنه دسکتاپو که تغیرات جدید اعمال شه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
تازه این فقط در مورد یه آ کن بود در مورد بقیه آیکنا و تصویر بک گراند و تسک بار و چیزای دیگم هس که حتی فک کردن بهشم باعث می شه مغز آدم سوت بکشه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
فک نمی کنم اونقد مهم باشه که کسی بخواد به خاطرش اینقد زحمت بکشه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
مثلا شکل کشیدن مستقیم رو دسکتاپ چه فایده ای داره که اون روشی که بالاترش گفتم نمی تونه داشته باشه ؟ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
شرمنده [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
این پست تکرار پست قبلیم بود پاکش کردم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
داشتم پستو می فرسادم بیاد یهو نت قاط زد فک کردم نفرساده دوباره فرسادم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
حق حذف این پست ( دقیقا همین پست ) برای مدیران محفوظ می باشد [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]