FC2ブログ

スクリーンセーバーについて

スクリーンセーバー

スクリーンセーバーの作成方法についてです。
スクリーンセーバーの作成方法は,単純です。
まず,作成した実行ファイル(*.exe)の拡張子を"scr"に変更します。
以上で終わりです。
利用方法は,このスクリーンセーバーのファイル(*.scr)をWindowsHome(※)の直下に配置します。
次に,画面のプロパティからスクリーンセーバータブで,先ほど配置したスクリーンセーバを選択します。
これで,作成したスクリーンセーバーが動きます。あら簡単!
作成する際のPointとして,マウス移動時に終了するなど,終了のトリガーを入れる事を忘れないように
して下さい。以下は,簡単な作成例です。
※.Windows2000の場合,C:\WinNT,WindowsXPの場合,C:\Windows


'==============================================================================
'
' スクリーンセーバー関連
'
'==============================================================================




'---------------------------------------------------
' 利用方法
' FormにLabelとTimerコントロールを貼り付け,
' 以下のソースをコピペして下さい。
'---------------------------------------------------

  '---<< スクリーンセーバー >>
    Dim mbFastFlg As Boolean
    Dim msBeforeX As Single
    Dim msBeforeY As Single



      Private Sub Form_Load()

        '---初回フラグ:ON
          mbFastFlg = True

        '---Window最大化
          Form1.WindowState = 2

        '---タイマー開始
          Timer1.Interval = 1

      End Sub

      Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

        '---マウス移動判定
          If Not mbFastFlg Then
            If X <> msBeforeX Or Y <> msBeforeY Then
              Unload Me
            End If
          End If

        '---初回フラグ:OFF
          mbFastFlg = False

        '---マウス位置退避
          msBeforeX = X
          msBeforeY = Y

      End Sub

      Private Sub Timer1_Timer()

        '---タイマー
          If Label1.Caption <> Time Then
            Label1.Caption = Time
          End If

      End Sub



【宣伝・・・(*´ω`)】

タイトルロゴ3

 システム葵では、個人様向けでも企業様向けでも、パソコン修理から、パソコン設定、パソコンの使い方、LAN環境構築、ソフトウェア開発まで、様々な実績がありますので、困ったことがあれば、お気軽にご相談下さい。
関連記事

テーマ : プログラミング
ジャンル : コンピュータ

コメントの投稿

非公開コメント

検索フォーム
最新記事
カテゴリ
全記事表示リンク

全ての記事を表示する

最新コメント
プロフィール

ITLife

Author:ITLife
システム葵新井聡太です。
東京都東村山市に生まれ、ここで育ち、ここで結婚し、システムエンジニア一筋で十数年やってきました。
ここでは主に、パソコンを中心にITに関わることを備忘録として残していきたいと思います。
少しでも来ていただいた方のお役に立てたら幸いです。
m(_ _)m

p.s
ここで紹介している内容は一例です。すべては、自己責任でお願いします。

カレンダー
05 | 2019/06 | 07
- - - - - - 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 - - - - - -
訪問数
月別アーカイブ
リンク