* 画像投稿モードをESCキーでキャンセルした際にビープ音が鳴らないようにした
* 読み上げソフトで、タイムラインの選択tweetを変更すると、画像投稿画面の「投稿先」ラベルを毎回読み上げてしまうので、未使用時は投稿画面のパーツを無効に
* 画像投稿モードで設定したファイルをロックしたままになるバグを修正
+ * 画像投稿モードでファイル名として入力された文字列が無効なパス形式の場合に例外が発生するバグを修正
==== Ver 0.9.4.0(2010/07/15)
* 認証完了後、自分の発言が片思い表示になるバグ修正
* ユーザー変更時にフォロワー情報を取得するよう変更
End Sub
Private Sub ImageFromSelectedFile()
- Dim ext As String() = {".jpeg", ".jpg", ".gif", ".png"}
- If String.IsNullOrEmpty(Trim(ImagefilePathText.Text)) Then
- ImageSelectedPicture.Image = ImageSelectedPicture.InitialImage
- Exit Sub
- End If
-
- Dim fl As New FileInfo(Trim(ImagefilePathText.Text))
- If Array.IndexOf(ext, fl.Extension.ToLower) = -1 Then
- '画像以外の形式
- ImageSelectedPicture.Image = ImageSelectedPicture.InitialImage
- Exit Sub
- End If
Try
+ Dim ext As String() = {".jpeg", ".jpg", ".gif", ".png"}
+ If String.IsNullOrEmpty(Trim(ImagefilePathText.Text)) Then
+ ImageSelectedPicture.Image = ImageSelectedPicture.InitialImage
+ Exit Sub
+ End If
+
+ Dim fl As New FileInfo(Trim(ImagefilePathText.Text))
+ If Array.IndexOf(ext, fl.Extension.ToLower) = -1 Then
+ '画像以外の形式
+ ImageSelectedPicture.Image = ImageSelectedPicture.InitialImage
+ Exit Sub
+ End If
+
Dim fs As New FileStream(ImagefilePathText.Text, FileMode.Open, FileAccess.Read)
ImageSelectedPicture.Image = Image.FromStream(fs)
fs.Close()