TIL

Today I Learned. 知ったこと、学んだことを書いていく

2017-09-05から1日間の記事一覧

実行しているアプリケーションのパスを取得 - VB

VB

'自分自身の実行ファイルのパスを取得する Dim appPath As String = System.Reflection.Assembly.GetExecutingAssembly().Location *.exeが取得できる 実行しているアプリケーションのフォルダパスの取得 Dim appPath As String = System.Reflection.Assembl…

log4netでログ出力 - VB

ログ出力にはlog4netというものを使うと良いらしい プロジェクトに追加 プロジェクトに追加する方法は2つある(他にもあるかも) Webからダウンロードし、追加 NuGetパッケージマネージャーを使用し、追加 Webからダウンロードし、追加 ここから「log4net-2.0.…

ウィンドウサイズ固定 - VB

VB

最小化を押すとバーに戻る。最大化を押すと左上に移動 '最大サイズと最小サイズを現在のサイズに設定する Me.MaximumSize = Me.Size Me.MinimumSize = Me.Size 参考文献 フォームのサイズを変更できないようにする: .NET Tips: C#, VB.NET

アプリケーションの設定の活用 - VB

VB

VBで設定を使ってみる 設定値の追加 ソリューションエクスプローラーの「プロジェクト名>My Project」をダブルクリック。その中の「設定」を表示。 一番下の行をアクティブにして、次のように入力する。 名前 種類 スコープ 値 ServerName String ユーザー l…

フォームを表示する - VB

VB

○モードレスフォームで表示する モードレスフォームで表示すると、そのフォームを閉じなくても他のフォームを操作できる Dim f1 As New Form1() f1.Show() ○モーダルフォームで表示する モーダルフォームで表示すると、そのフォームを閉じるまで他のフォーム…

UTF-8 でファイルを保存する - VBA

VBA

VBAでD:\temp\hello.txtにUTF-8で保存するのは次のようにする With CreateObject("ADODB.Stream") .Charset = "UTF-8" .Open .WriteText "こんにちは", 1 .WriteText "世界", 1 .SaveToFile "C:\temp\world.txt", 2 .Close End With ○解説 CreateObject("ADO…

SQL Serverに接続 - VB

VB

SQL Serverに接続する Dim con As System.Data.SqlClient.SqlConnection = Nothing Try '接続する端末名 Dim serverName As String = "localhost" ' 例) 192.168.0.173 '接続するデータベース名 Dim dbName As String = "testdb" 'ユーザ名 Dim userId As St…