VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/01/30(Sun) 10:39
投稿者： ガッ
Ｅメール：
ＵＲＬ：
タイトル： Re^5: 処理を続けるには？解決

> 重ねてありがとうございます。
> ただ、アドバイスもあまりに高度で、手におえません。相応な工夫で
> やっていこうと思います。（使用はＶＢ６です）
> 縁ありましたら、今後ともよろしくお願いいたします。

よく分からんが、
下のテキストを1.frmでも名前を付けて保存してみる。
俺の家だと、TimerイベントはPopupmenuを表示しているときでも動いているみたいだ。
…題意が「Popupmenuを呼び出しても処理を続けている」という風に感じたから、こういうのを作ってみ
たんだが。

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows の既定値
   Begin VB.CommandButton Command1
      Caption         =   "Command1"
      Height          =   375
      Left            =   1320
      TabIndex        =   1
      Top             =   240
      Width           =   2055
   End
   Begin VB.ListBox List1
      Height          =   2220
      Left            =   1320
      TabIndex        =   0
      Top             =   720
      Width           =   2055
   End
   Begin VB.Timer Timer1
      Interval        =   100
      Left            =   600
      Top             =   360
   End
   Begin VB.Menu PM1
      Caption         =   "PM"
      Begin VB.Menu PM2
         Caption         =   "PM2"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    Me.PopupMenu PM1
End Sub

Private Sub Form_Load()
    Command1.Caption = "Popup"
End Sub

Private Sub Timer1_Timer()
    List1.AddItem "a"
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -