私はウェブサイトから画像を追加しようとしていますが、私はGoogle画像に移動していくつかの画像を追加しようとしているときに、私は "画像URLをコピーする"を見つけると私はそれを見つけることができないと私は "コピーリンクアドレス"を見つける。今私は "画像のURLをコピーする"を含む画像を追加することから制限するユーザーにしたい そして、あなたがもっと良い方法で私を理解するように。画像のURLを選択して制限する
私はそれをどのように行うのですか?ここで
は、画像を保存するためのコードです:トップのスクリーンショットで
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()
多分役立つは、あなたの貴重な情報をありがとう、実際に私は、WinFormsのに働いていると私は、「コピーリンクをクリックしたときに、私は実際に間違っamgoingところ、私はここに私のコードを貼り付けていますあなたは私を提案しますアドレス "とそれを保存すると正常に動作しますが、" Copy Image URL "をクリックして保存すると、StartIndexがゼロより小さくなることができないため、エラーが発生します。 パラメータ名:startIndex –
ファイル名変数に "。"が含まれていません。キャラクター。 LastIndexOf()は-1を返します。 filename = filename.Substring ...行にブレークポイントを設定し、filenameに実際にどのテキストが含まれているかを確認します。 –
?q = tbn:ANd9GcQ0eso3iqHUd7IBeh0zD6oC4hYFDwUGPXg0A6xyynfz9EJ6kA9tこれは私がファイル名に入っているものです。 –