09-09-15, 02:59 PM
المكونات
على جهازك- فيجوال استديو
واحد نفر فورم
اثنين نفر توتون
وحدة لست بوكس
واحد نفر بروجرس بار
استظافة ومجلد معلوم للرفع الصور به
شوية ريت ريتون ورشة زعتر
الكود التابع للفورم كالاتي
ماشي يا صديقي؟!!!
كنت عامل البرنامج على استضافة بس الطيبين نبهوني ان الكود عريان !!!
سترناه وربك يحب الستر
حتى اللي نبهني شكله ندم على التنبيه حذف مشاركته
لكني اشكره من كل ي
وبالهناء والبرمجة !!!فيجوال ابلة نظيرة
على جهازك- فيجوال استديو
واحد نفر فورم
اثنين نفر توتون
وحدة لست بوكس
واحد نفر بروجرس بار
استظافة ومجلد معلوم للرفع الصور به
شوية ريت ريتون ورشة زعتر
الكود التابع للفورم كالاتي
PHP كود :
Imports System.IO
Public Class Form1
Private Sub Popu(lsb As ListBox, Folder As String, FileType As String)
'هنا فنكشن "دالة" وظيفتها اخذمحتوى المجلد واظهاره في اللت بوكس
Dim dinfo As New DirectoryInfo(Folder)
Dim Files As FileInfo() = dinfo.GetFiles(FileType)
For Each file As FileInfo In Files
lsb.Items.Add(file.Directory.Name & "\" & file.Name)
Next
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'كود التقاط الصورة
Hide()
Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
Using g = Graphics.FromImage(bmp)
g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
End Using
Dim ImgPath = Application.StartupPath & "\Imagefolder\" & ListBox1.Items.Count & ".png"
bmp.Save(ImgPath, System.Drawing.Imaging.ImageFormat.Png)
'بعد حفظ الصورة نعيد قراءة محتويات المجلد
ListBox1.Items.Clear()
Popu(ListBox1, Application.StartupPath & "\Imagefolder", "*.Png")
'نقوم بارسال اخر صورة التقطناها الى برنامج الرسام للتعديل عليها
ListBox1.SelectedIndex = (ListBox1.Items.Count - 1)
Dim MSPPath As String = "mspaint"
Process.Start(MSPPath, ListBox1.Text)
End Using
Show()
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'نقوم بانشاء مجلد لحفظ الصور ونقرأ ما بداخله في اللست بوكس
System.IO.Directory.CreateDirectory(Application.StartupPath & "\Imagefolder")
Popu(ListBox1, Application.StartupPath & "\Imagefolder", "*.Png")
End Sub
Private Sub ListBox1_DoubleClick(sender As Object, e As System.EventArgs) Handles ListBox1.DoubleClick
' عند النقر المزدوج في اللست بكوس على اي صورة نقوم بارسالها للرسام
Dim MSPPath As String = "mspaint.exe"
Process.Start(MSPPath, ListBox1.Text)
ListBox1.SelectedIndex = 0
Process.Start(MSPPath, ListBox1.Text)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
'مضبط قيم البروجرس بار
p.Maximum = ListBox1.Items.Count
For i = 0 To ListBox1.Items.Count - 1
p.Value = i + 1
ListBox1.SelectedIndex = (i)
'نقوم برفع الصورة الى مجلد معلوم في الاستضافة صورة تلو الاخرى
Dim ss() = Split(ListBox1.Text, "\")
Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftp.Yourdomain/YourFolder" & ss(1)), System.Net.FtpWebRequest)
request.Credentials = New System.Net.NetworkCredential("FTPUsre", "FTPPassword")
request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim file() As Byte = System.IO.File.ReadAllBytes(Application.StartupPath & "/" & ss(0) & "\" & ss(1))
Dim strz As System.IO.Stream = request.GetRequestStream()
strz.Write(file, 0, file.Length)
strz.Close()
strz.Dispose()
Next
Show()
MsgBox("Upload is successed")
Dim MSPPath As String = "mspaint.exe"
End Sub
End Class
ماشي يا صديقي؟!!!
كنت عامل البرنامج على استضافة بس الطيبين نبهوني ان الكود عريان !!!
سترناه وربك يحب الستر
حتى اللي نبهني شكله ندم على التنبيه حذف مشاركته
لكني اشكره من كل ي
وبالهناء والبرمجة !!!فيجوال ابلة نظيرة
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات