PDA

View Full Version : یه Componenet یا برنامه برای ترسیمات گرافیکی(فوری)



sm
سه شنبه 13 مرداد 1383, 16:47 عصر
با سلام به دوستان عزیز
یه برنامه دارم می نویسم که توی اون می خوام اشکالی رور رسم کنم یه چیزی بین Pain , Autocad!!! البته درحد ساده که بتونم اشکال رو باهاش رسم کنم و بتونم از TextBox هم استفاده کنم
یکی از دانشجوهای دانشکدمون اونو از اینترن گرفته بود که من چون دیر متوجه شدم بهش دسترسی نداشتم که بگیرم
می خواستم اگه دوستان می تونن کمکم کنن
ممنون

linux
چهارشنبه 14 مرداد 1383, 09:56 صبح
چه جور ترسیمی؟ نمودار ؟

شفیعی
چهارشنبه 14 مرداد 1383, 19:52 عصر
سلام
دوست عزیز می توانی بیشتر توضیح دهی
آدرس زیر را نگاه کن شاید بدرد بخورد
http://www.barnamenevis.org/forum/viewtopic.php?t=5012&postdays=0&postorder=asc&start=15

sm
جمعه 16 مرداد 1383, 11:11 صبح
ممنون دوستان
راستش یه برنامه شهرسازیه که می خوان کروکی ساختمانها رو رسم کنن
یه چیزی تو مایه های خیلی مختصرتر AutoCad
مثلا بشه باهاش اشکال رو کشید و از TextBox 9هم برای نوشتن بشه استفاده کرد
بازم ممنونم

شفیعی
جمعه 16 مرداد 1383, 22:54 عصر
سلام
یک برنامه دیدم که نیمه چه کد بود
خط - دایره - نوشته و خیلی کارهای دیگر انجام می داد اگر پیدا کردم برایت ارسال می کنم

linux
شنبه 17 مرداد 1383, 00:12 صبح
فکر کنم اگر در مورد microsoft Map هم مطالعه کنی به جایی بررسی

sm
یک شنبه 18 مرداد 1383, 19:32 عصر
ممنون
آقای شفیعی اگه لطف کنین برام بذارین ممنون میشم

شفیعی
یک شنبه 18 مرداد 1383, 22:55 عصر
سلام
دوست عزیز آدرس زیر را نگاه کن در آن یک اکتیوایکس هست که فایلهای DXF را لود می کند با این اکتیوایکس می توانی خط - دایره - نقطه رسم کنی خود من نیز زیاد با این اکتیوایکس کار نکرده ام اگر به نتیجه رسیدی بنده را نیز راهنمائی کن چون خود من هم در همین زمینه کار می کنم
http://www.barnamenevis.org/forum/viewtopic.php?t=3439&highlight=

neda.neda12
چهارشنبه 16 اردیبهشت 1388, 17:24 عصر
سلام ببخشید می خواستم درباره کدنویسی چیدن کاشی وار یک تصویر روی فرم ازتون کمک بگیرم برنامه ای که من نوشتم پیغام خطا میده اگه کمکم کنید ممنون میشم
Private Sub Form_Paint()
Dim wid As Single
Dim hgt As Single
Dim x As Single
Dim y As Single
wid = Picture1.ScaleWidth
hgt = Picture1.ScaleHeight
y = 0
Do While y < ScaleHeight
x = 0
Do While x < ScaleWidth
PaintPicture(Picture1.Picture x, y, wid, hgt)
x = x + wid
Loop
y = y + hgt
Loop
End Sub

neda.neda12
چهارشنبه 16 اردیبهشت 1388, 20:11 عصر
برای رضای خدا کمک کنید:عصبانی++:

sari-1369
چهارشنبه 16 اردیبهشت 1388, 21:59 عصر
ببین این بدردت میخوره ...