パソいろ パソコンやIT関連、周辺機器や開発のことなど

VB2005 全角を半角に変換
Dim str As String

str = StrConv("アイウＡＢＣ", VbStrConv.Narrow)

MsgBox(str)

結果はｱｲｳABCになる。

VB2005のフォームイベント推移
Showメソッドを実行するとLoad発生。
表示直前に処理が必要な場合はLoadイベントに記述。

Activateイベントも発生するが、このイベントは2つのフォームが表示されているときに片方のフォームがアクティブになったとき発生するのでShow以外でも発生する可能性あり。

Activateイベントにはアクティブになる時に必要な処理を記述
表示直後にShownイベントも発生

プリンタのインク節約 inksaver インクセーバー
最近のインクジェットプリンタ、安いけどすぐ壊れますね。
紙食いが悪くなったり、線が入ったり。

すぐ壊れるけど修理するより新品の方が安いから使い捨て。
そういう文化はどうにかして欲しいです、メーカーさん。

プリンタ本体は安く、でもインクで稼ぐ、という構図は昔の携帯のようです。

仕事でインクジェット使うと結構インク代が高くつきますよね。
ヘッドクリーニングでもインク減るし、黒だけ印刷しててもカラーも減るし。

で、知り合いのところでこんなソフトがあるってしりました。
その名もinksaver（インクセーバー）。



最大75パーセントインクを削減してくれるみたいです。

実際印刷結果を見たら、薄かったので効果があると思います。
最終印刷物以外は、すべて濃くないといけないわけではないですもんね。
実際、知り合いのところでは500枚の年賀状の印刷でインク代がけっこう浮いたらしいです。



インストールするだけで設定完了!インストール後のプリンタ設定を行うことなくすぐに使えます。インクセービング率を0-75%までの範囲で自由に設定可能(1%単位)。印字品質、印刷速度、安定性が大幅UP、お使いのプリンタに最適な品質で印刷。プリンタごとの設定変更に加え、ブラウザ用、メール用、Office文書用など用途別セービング率設定対応。カラーインクも節約!強制モノクロ印刷搭載。ネットワーク共有プリンタのホストPC、クライアントPCの両方にインストール可能。国内で発売中のほとんどのインクジェットプリンタに対応。