نظر خواهی

[r_oscar2007]

سلام
نظر شما راجب برنامه زیر چیست
http://www.4shared.com/file/34534766/943c987/Project1.html

[M8SPY_OK]

من هنوز برنامه رو ندیدم ولی چرا EXE ؟؟؟

[M8SPY_OK]

برنامه دیدم همچین نکته ای توش نداشت - بابا ملت برنامه ملیونی می نویسن سورسشو میذارن روی سایت - اونوقت شما ...

[r_oscar2007]

این هم سورسش
Option Explicit

Public r, g, b As Long
Public bc, nc As Long
Public X, Y As Integer
Public strmasir, strwrite As String


Private Sub mnucustom_Click()
Form2.Show
End Sub

Private Sub Command1_Click()
Dim reza As String
reza = Text1.Text
Picture1.Print reza
End Sub

Private Sub Label1_Click()
Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.Width * 0.2, Picture1.Height * 0.2
End Sub

Private Sub Label2_Click()
Dim strst As String
strst = InputBox("Write Text Here")
Picture1.Print Tab(40), strst
End Sub

Private Sub mnublue_Click()
For X = 0 To Picture1.ScaleWidth
For Y = 0 To Picture1.ScaleHeight
bc = Picture1.Point(X, Y)
r = bc / 179
g = bc Mod 4
b = bc / 19
nc = (r + g + b) / 4000
Picture1.PSet (X, Y), RGB(0, 0, nc)
Next Y
DoEvents
Next X
End Sub

Private Sub mnucopy_Click()
Clipboard.SetData Picture1.Picture
End Sub

Private Sub mnuexit_Click()
Unload Me
End Sub

Private Sub mnugrayscale_Click()
For X = 0 To Picture1.ScaleWidth
For Y = 0 To Picture1.ScaleHeight
bc = Picture1.Point(X, Y)
r = bc / 179
g = bc Mod 4
b = bc / 19
nc = (r + g + b) / 8000
Picture1.PSet (X, Y), RGB(nc, nc, nc)
Next Y
DoEvents
Next X
End Sub

Private Sub mnugreen_Click()
For X = 0 To Picture1.ScaleWidth
For Y = 0 To Picture1.ScaleHeight
bc = Picture1.Point(X, Y)
r = bc / 179
g = bc Mod 4
b = bc / 19
nc = (r + g + b) / 8000
Picture1.PSet (X, Y), RGB(0, nc, 0)
Next Y
DoEvents
Next X
End Sub

Private Sub mnunew_Click()
Picture1.Cls
End Sub

Private Sub mnuopen_Click()
cd1.Filter = "JPEG(*.jpg)|*.jpg"
cd1.ShowOpen
strmasir = cd1.FileName


Picture1.Picture = LoadPicture(strmasir)
End Sub



Private Sub mnupaste_Click()
Picture1.Picture = Clipboard.GetData
End Sub

Private Sub mnured_Click()
For X = 0 To Picture1.ScaleWidth
For Y = 0 To Picture1.ScaleHeight
bc = Picture1.Point(X, Y)
r = bc / 179
g = bc Mod 4
b = bc / 19
nc = (r + g + b) / 4500
Picture1.PSet (X, Y), RGB(nc, 0, 0)
Next Y
DoEvents
Next X
End Sub

Private Sub mnus_Click()
On Error Resume Next
cd1.Filter = "JPEG(*.jpg)|*.jpg"
cd1.ShowSave
strmasir = cd1.FileName

SavePicture Picture1.Picture, strmasir
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Circle (X, Y), 18, RGB(255 * Rnd, 255 * Rnd, 10)
End If
End Sub

[M8SPY_OK]

این چه وضع سورس گذاشتنه ؟
ای بابا ....

درست آپلود کن سورس رو !!!!!!!!!!!!!!!!

[r_oscar2007]

بابت سورسها ببخشد
منیک سوال داشتم
چه طور می تونم یک عکس را که با سورس بالا تغییر داده را ذخیره کنم

[اوبالیت به بو]

نظری ندارم ولی اشکالاتش رو می گم.
1- عنوان برنامه زیبا نیست.
2- گزینه New تو منوی File کد نداره.
3- از PictureBox استفاده نکن چون ImageBox متدهای بیشتری نسبت به PictureBox داره و در برنامه هایه کند خیلی خیلی بهتر عمل میکنه و از همه مهمتر خاصیت Stretch داره که در برنامه شما حتماً باید اعمال بشه.
4- در هنگام ذخیره سازی زمانی که یک عکس با همان نامی که شما می خواین ذخیره کنید، وقتی تویه ادرس فعلی هست ذخیره میشه که باید جوری طراحی بشه که اگر اسمها باهم یکی بود سوال کنه که آیا میخواید نامش رو عوض کنید یا آیا می خواید که جایگزین این فایل بشه.
5- Zoom برنامه خطا میده.
6- استاندارد این رو می گه که آخرین منو باید اسمش help باشه که برای شما About هستش و بعد در زیر منوها باید بین help و About خط کشیده بشه. همچنین شما هیچ کدی درونش ننوشتی.

[r_oscar2007]

خیلی ممنون

میشه سوال من را هم جواب دهید

[اوبالیت به بو]

منظورتون رو نمی فهمم؟؟؟؟

[r_oscar2007]

چه طور می تونم یک عکس را که با سورس بالا تغییر داده را ذخیره کنم
یعنی یک عکس را چه طور با پسوند دلخواه ذخیره کنم

[مبین رنجبر]

برای ذخیره تصویر میتونید از تابع SavePicture استفاده کنید

[M8SPY_OK]

چرا در مورد کدی که خودت ننوشتی نظر می خوای ؟