WebBrowserの開発「VB6からVB2008まで」

こんにちわ。この前投稿したebifurai55です。
この度納得できるWebbroserの開発ができたので、更にそれを進化させるべくアイディアを出していきます。以下考えているのが、

・タブ機能
・マウスジェスチャ
・お気に入りファイルの読み込み（Lunascape、Slepnir、FireFox,IE6~8）
・インデックスファイル（目次）機能
・カッコいいアイコン

まだまだ、出てくると思いますが、力量が足りてないのでこの辺にしときます。
皆様のお知恵を貸してください。
ちなみに今まででできたWebブラウザーは近日公開予定

ここにアップしてもらった「ServX」というブラウザのタブブラウジング対応版です。参考になれば幸いです。
http://brv314.web.fc2.com/softwares/servx.zip

>・マウスジェスチャ
>・お気に入りファイルの読み込み（Lunascape、Slepnir、FireFox,IE6~8）
ここらへんも実装しようと思いましたが、難しくてあきらめました。

(削除されました)

(削除されました)

ちょっと質問
コードの目的は「Favoritesフォルダ内の.urlファイルを列挙してURLを引っこ抜く」であってますか？
だとしたら、↓のGetPrivateProfileStringの第6引数ってoFile.FullNameとかにしないとダメなの
では？

   For Each oFile As IO.FileInfo In Folder.GetFiles

       Dim strResult As String = Space(255)

       Call GetPrivateProfileString(AppName, KeyName, Defaults, strResult, Len(strResult), FileName)

       ReStrings.Add(Microsoft.VisualBasic.Left(strResult, InStr(strResult, Chr(0)) - 1))

   Next

そうではなく、GetURLsのFileNameに渡したファイル「だけ」読み取りたいならFor Each ～ Nextいら
ないし...

ごめんなさい。別で作ったのをコピーしただけだったので、ぜんぜんあっていませんでした。

Declare Function GetPrivateProfileString Lib "KERNEL32.DLL" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer

'お気に入りのURLを取得します。  

Public Function GetURLs(ByVal AppName As String, ByVal KeyName As String, ByVal Defaults As String, ByVal FileName As String) As String()

   Dim ReStrings() As New List(Of String)

   Dim Folder As New IO.DirectoryInfo(SpecialFolder.Favorites & "\")

   For Each oFile As IO.FileInfo In Folder.GetFiles("*.url")

       Dim strResult As String = Space(255)

       Call GetPrivateProfileString("InternetShortcut", "URL", "about:取得できませんでした", strResult, Len(strResult), oFile.FullName)

       ReStrings.Add(Microsoft.VisualBasic.Left(strResult, InStr(strResult, Chr(0)) - 1))

   Next

   Return ReStrings.ToArray

End Function

これなら！ってほど自信はありませんが、修正しました。

最初のは削除します。
一応もういちど書いておきます。

上のコードはIE用です。

かっこいいアイコンについては、TADさんのアイコン ウィザードを使うとうまくできます。
http://freewareplace.web.fc2.com/

|ω・)ooO(サブフォルダ内のファイルはどうなるのかしら)

Declare Function GetPrivateProfileString Lib "KERNEL32.DLL" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer

'お気に入りのURLを取得します。   

Public Function GetURLs(ByVal AppName As String, ByVal KeyName As String, ByVal Defaults As String, ByVal FileName As String) As String()

   Dim ReStrings() As New List(Of String)

   Dim Folder As New IO.DirectoryInfo(SpecialFolder.Favorites & "\")

   For Each oFile As IO.FileInfo In Folder.GetFiles("*.url")

       Dim strResult As String = Space(255)

       Call GetPrivateProfileString("InternetShortcut", "URL", "about:取得できませんでした", strResult, Len(strResult), oFile.FullName)

       ReStrings.Add(Microsoft.VisualBasic.Left(strResult, InStr(strResult, Chr(0)) - 1))

   Next

   Return ReStrings.ToArray

End Function

For Each oFile As IO.FileInfo In Folder.GetFiles("*.url")

　　　　　　↓

 

For Each oFile As IO.FileInfo In Folder.GetFiles("*.url", IO.SearchOption.AllDirectories)

こんな感じですかね

僕はアイコンを作るときにIcoFXというソフトを使用しています。
http://icofx.ro/
英語ですが、インストールした後にソフトを起動して「Options」＞「Languages」で日本語やほかの言語に切り替え出来ます。
とても便利でMac用アイコンも作れてしまいます。
あと、英語でソフトを作ってみたいときにも役に立ちますよ。

ああああ
以上。

過去に書いたC#のコードですけど参考になればと思います。

C#|WebBrowser|マウスジェスチャを実装する
http://www.k4.dion.ne.jp/~anis7742/codevault/00110.html

タブ機能ならこのへんかな・・・。
http://homepage1.nifty.com/yasunari/VB/VB2005/BasicTabBrowser.htm

IcoFXは、高機能でいろいろできますが、最初から作るのは大変だと僕は感じました。
でも、簡単なデザインならこれを使っています。