Я пытаюсь добавить изображения с веб-сайтов, и я сталкиваюсь с проблемой, которая связана с тем, что когда я пытаюсь перейти к изображениям Google и пытаюсь добавить несколько изображений, и когда я щелкаю правой кнопкой мыши по некоторым изображениям, я нахожу "Копировать изображение".URL ", а для некоторых я не нахожу его и нахожу" Копировать адрес ссылки ". Теперь я хочу, чтобы мои пользователи ограничивали добавление изображений, содержащих" Копировать URL-адрес изображения ". Я прилагаю Изображения, чтобы вы меня понялив лучшую сторону.
![enter image description here](https://i.stack.imgur.com/a6Tge.png)
![enter image description here](https://i.stack.imgur.com/YPBYb.png)
Как мне это сделать?
Вот код для сохранения изображения:
Dim dir_name As String = txtDirectory.Text
If Not dir_name.EndsWith("\") Then dir_name &= "\"
For Each pic As PictureBox In flpPictures.Controls
Dim bm As Bitmap = CType(pic.Image, Bitmap)
Dim filename As String = CStr(pic.Tag)
filename = filename.Substring(filename.LastIndexOf("/") + 1)
Dim ext As String = filename.Substring(filename.LastIndexOf("."))
'Here it gives me an error at(filename.lastindexof(".")
Dim full_name As String = dir_name & filename
Select Case ext
Case ".bmp"
bm.Save(full_name, Imaging.ImageFormat.Bmp)
Case ".gif"
bm.Save(full_name, Imaging.ImageFormat.Gif)
Case ".jpg", "jpeg"
bm.Save(full_name, Imaging.ImageFormat.Jpeg)
Case ".png"
bm.Save(full_name, Imaging.ImageFormat.Png)
Case ".tiff"
bm.Save(full_name, Imaging.ImageFormat.Tiff)
Case Else
MessageBox.Show( _
"Unknown file type " & ext & _
" in file " & filename, _
"Unknown File Type", _
MessageBoxButtons.OK, _
MessageBoxIcon.Error)
End Select
Next pic
Beep()