VB.NET辞典Wiki
http://w.atwiki.jp/mari8dotnet/
VB.NET辞典Wiki
ja
2013-01-30T09:46:21+09:00
1359506781
-
TabControl や TreeView のオーナードローでちらつき防止
https://w.atwiki.jp/mari8dotnet/pages/77.html
**このTipsについて
描画のちらつき防止にはダブルバッファを利用することが定番ですが、
TabControl や TreeView のプロパティ DoubleBuffered は、セットしても効きません (MSDN にも明記)。
自分でコードを書くか、Windows XP以降であれば
拡張ウインドウスタイルとして WS_EX_COMPOSITED を追加することで対応可能。
(※ただし、ウインドウスタイルに CS_OWNDC を指定しているウインドウでは無効。
また、XPやVista以降のクラシックデスクトップ環境でうまくいかないネット記事あり)
**サンプル
#highlight(linenumber,vb.net){
' 派生クラスでCreateParamsプロパティをオーバーライドして
' ウインドウクラスへ拡張プロパティを返す
Public Class MyTabControl
Inherits TabControl
Private WS_EX_COMPOSITED As Integer = &H2000000
Protected Overrides ReadOnly Property CreateParams() As _
System.Windows.Forms.CreateParams
Get
If Me.DesignMode Then
Return MyBase.CreateParams
End If
Dim c As CreateParams
c = MyBase.CreateParams
c.ExStyle = c.ExStyle Or Me.WS_EX_COMPOSITED
Return c
End Get
End Property
End Class
}
* 外部リンク(感謝)
**EternalWindows
http://eternalwindows.jp/winbase/wind
2013-01-30T09:46:21+09:00
1359506781
-
ファイル名を変更する
https://w.atwiki.jp/mari8dotnet/pages/76.html
**このTipsについて
ファイル名を変更する方法です。
**サンプル
#highlight(linenumber,vb.net){
'System.IOを使用した例
File.Move("C:\test.txt", "test2.txt")
}
#highlight(linenumber,vb.net){
'My.Computer.FileSystemを使用した例
My.Computer.FileSystem.RenameFile("C:\test.txt", "test2.txt")
}
2012-02-08T09:47:38+09:00
1328662058
-
【VB2005以上】設定を保存する
https://w.atwiki.jp/mari8dotnet/pages/75.html
**このTipsについて
準備中
**サンプル
#highlight(linenumber,vb.net){
Nothing.
}
2011-12-29T15:40:57+09:00
1325140857
-
設定保存
https://w.atwiki.jp/mari8dotnet/pages/74.html
***□[[Tipsデータベース]]≫[[その他]]≫設定保存
-[[【VB2005以上】設定を保存する]]
-[[外部ファイルに設定を保存する]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
2011-12-29T15:16:40+09:00
1325139400
-
指定URLを標準ブラウザで開く
https://w.atwiki.jp/mari8dotnet/pages/73.html
**このTipsについて
指定したURLを標準のブラウザで開きます。
この方法は、使用ブラウザを取得しなくて済むので、
比較的、簡単に使えます。
**サンプル
#highlight(linenumber,vb.net){
'URLを指定する
Dim url As String = "http://www.yahoo.co.jp"
'表示
Diagnostics.Process.Start(url)
}
2011-12-27T17:01:37+09:00
1324972897
-
ファイルの拡張子を変更する
https://w.atwiki.jp/mari8dotnet/pages/72.html
**このTipsについて
フルパスを使用して拡張子をリネームする。
**サンプル
#highlight(linenumber,vb.net){
'oldpathに変更前のファイル名を指定
Dim oldpath As String = "C:\test.txt"
'newpathにIO.Path.ChangeExtensionを使い拡張子の .txt を .log に書き換え入れる。
Dim newpath As String = IO.Path.ChangeExtension("C:\test.txt", ".log")
'実際に拡張子を変更する。
IO.File.Move(oldpath, newpath)
'結果:test.txtからtest.logに拡張子が変わる。
}
2011-12-27T16:14:43+09:00
1324970083
-
SaveFileDialog
https://w.atwiki.jp/mari8dotnet/pages/71.html
***□[[Tipsデータベース]]≫[[ダイアログ]]≫SaveFileDialog
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
2011-12-26T13:30:58+09:00
1324873858
-
OpenFileDialog
https://w.atwiki.jp/mari8dotnet/pages/70.html
***□[[Tipsデータベース]]≫[[ダイアログ]]≫OpenFileDialog
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
2011-12-26T13:30:45+09:00
1324873845
-
FontDialog
https://w.atwiki.jp/mari8dotnet/pages/69.html
***□[[Tipsデータベース]]≫[[ダイアログ]]≫FontDialog
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
2011-12-26T13:30:32+09:00
1324873832
-
FolderBrowserDialog
https://w.atwiki.jp/mari8dotnet/pages/68.html
***□[[Tipsデータベース]]≫[[ダイアログ]]≫FolderBrowserDialog
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
-[[]]
2011-12-26T13:30:23+09:00
1324873823