المشاركات : 178
المواضيع 19
الإنتساب : Sep 2013
السمعة :
5
الشكر: 7
تم شكره 296 مرات في 58 مشاركات
ولا نبدا بمتصفح الويب
فورم بها WebBrowser
كود فتح نافذة جديد PHP كود :
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow ' This will be triggered only when link tries to open in new window. ' That means active element in web document will always be a Link. Dim myElement As HtmlElement = WebBrowser1.Document.ActiveElement Dim target As String = myElement.GetAttribute("href") Dim newInstance As New Form1 newInstance.Show() newInstance.WebBrowser1.Navigate(target) cancel opening IE window e.Cancel = True End Sub
microsoft partner
Team administrator
MCPD,MCITP,OCP,MP,MCC
Xprema Systems
المشاركات : 178
المواضيع 19
الإنتساب : Sep 2013
السمعة :
5
الشكر: 7
تم شكره 296 مرات في 58 مشاركات
كود عرض صورة من الانتر نت
PHP كود :
'WEB CLIENT IS NEEDED TO DO THE DOWNLOAD Dim MyWebClient As New System.Net.WebClient
'BYTE ARRAY HOLDS THE DATA Dim ImageInBytes() As Byte = MyWebClient.DownloadData(TextBox1.Text)
'CREATE A MEMORY STREAM USING THE BYTES Dim ImageStream As New IO.MemoryStream(ImageInBytes)
'CREATE A BITMAP FROM THE MEMORY STREAM PictureBox1.Image = New System.Drawing.Bitmap(ImageStream)
AS U SEE, NO FILE NEEDS TO BE WRITTEN TO THE HARD DRIVE, ITS ALL DONE IN MEMORY
وهذا يكتب فى زر الامر
PHP كود :
PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(TextBox1.Text)))
microsoft partner
Team administrator
MCPD,MCITP,OCP,MP,MCC
Xprema Systems
المشاركات : 178
المواضيع 19
الإنتساب : Sep 2013
السمعة :
5
الشكر: 7
تم شكره 296 مرات في 58 مشاركات
PHP كود :
Imports System.Drawing.Imaging
' Saves an image as a jpeg image, with the given quality ' Gets: ' path - Path to which the image would be saved. ' quality - An integer from 0 to 100, with 100 being the ' highest quality Public Shared Sub SaveJpeg(ByVal path As String, ByVal img As Image, ByVal quality As Long) If ((quality < 0) OrElse (quality > 100)) Then Throw New ArgumentOutOfRangeException("quality must be between 0 and 100.") End If
' Encoder parameter for image quality Dim qualityParam As New EncoderParameter(Encoder.Quality, quality) ' Jpeg image codec Dim jpegCodec As ImageCodecInfo = GetEncoderInfo("image/jpeg")
Dim encoderParams As New EncoderParameters(1) encoderParams.Param(0) = qualityParam img.Save(path, jpegCodec, encoderParams) End Sub
' Returns the image codec with the given mime type Private Shared Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo ' Get image codecs for all image formats Dim codecs As ImageCodecInfo() = ImageCodecInfo.GetImageEncoders()
Find the correct image codec For i As Integer = 0 To codecs.Length - 1 If (codecs(i).MimeType = mimeType) Then Return codecs(i) End If Next i
Return Nothing End Function
وهذا هو النداء
PHP كود :
Dim myImage As Image = ' ... load the image somehow ' Save the image with a quality of 50% SaveJpeg(destImagePath, myImage, 50)
microsoft partner
Team administrator
MCPD,MCITP,OCP,MP,MCC
Xprema Systems
المشاركات : 178
المواضيع 19
الإنتساب : Sep 2013
السمعة :
5
الشكر: 7
تم شكره 296 مرات في 58 مشاركات
http://www.a1vbcode.com/
هنا مئات اكواد فى شتى اللغات
microsoft partner
Team administrator
MCPD,MCITP,OCP,MP,MCC
Xprema Systems
المشاركات : 178
المواضيع 19
الإنتساب : Sep 2013
السمعة :
5
الشكر: 7
تم شكره 296 مرات في 58 مشاركات
PHP كود :
Private Sub btnDownload_Click(sender As Object, e As EventArgs) Dim webClient As New WebClient() webClient.DownloadFileCompleted += New AsyncCompletedEventHandler(AddressOf Completed) webClient.DownloadProgressChanged += New DownloadProgressChangedEventHandler(AddressOf ProgressChanged) webClient.DownloadFileAsync(New Uri("http://mysite.com/myfile.txt"), "c:\myfile.txt") End Sub
Private Sub ProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) progressBar.Value = e.ProgressPercentage End Sub
Private Sub Completed(sender As Object, e As AsyncCompletedEventArgs) MessageBox.Show("Download completed!") End Sub
الفقير الى ربه
سامر عبد الله عبد الغني
microsoft partner
Team administrator
MCPD,MCITP,OCP,MP,MCC
Xprema Systems
|