PC Pro 1999 January/dppcpro0199a.iso/January/Fp98/SDK/Utility/Apitests/Taskdone.frm

Visual Basic Form | 1997-09-18 | 5.0 KB | 173 lines

VERSION 5.00
Begin VB.Form frmCompleteTask
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Complete Task"
   ClientHeight    =   3300
   ClientLeft      =   2670
   ClientTop       =   2460
   ClientWidth     =   5025
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   3300
   ScaleWidth      =   5025
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton btnCompleted
      Caption         =   "Completed Task"
      Height          =   375
      Left            =   1260
      TabIndex        =   9
      Top             =   2040
      Width           =   1455
   End
   Begin VB.CommandButton btnWorkedOn
      Caption         =   "Worked On Task"
      Height          =   375
      Left            =   2880
      TabIndex        =   8
      Top             =   2040
      Width           =   1755
   End
   Begin VB.TextBox txtURL
      Height          =   315
      Left            =   1260
      Locked          =   -1  'True
      TabIndex        =   5
      Top             =   1080
      Width           =   1995
   End
   Begin VB.TextBox txtCookie
      Height          =   315
      Left            =   1260
      TabIndex        =   4
      Top             =   1500
      Width           =   3615
   End
   Begin VB.CommandButton btnBrowse
      Caption         =   "Browse..."
      Height          =   315
      Left            =   3300
      TabIndex        =   3
      Top             =   1080
      Width           =   915
   End
   Begin VB.CommandButton btnClear
      Caption         =   "Clear"
      Height          =   315
      Left            =   4260
      TabIndex        =   2
      Top             =   1080
      Width           =   615
   End
   Begin VB.Label Label8
      Caption         =   $"taskdone.frx":0000
      Height          =   615
      Left            =   120
      TabIndex        =   10
      Top             =   2580
      Width           =   4815
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label3
      Caption         =   "URL:"
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   1140
      Width           =   1035
   End
   Begin VB.Label Label4
      Caption         =   "Cookie:"
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   1560
      Width           =   1035
   End
   Begin VB.Line Line1
      X1              =   60
      X2              =   4980
      Y1              =   840
      Y2              =   840
   End
   Begin VB.Label Label5
      Caption         =   "This form uses the following FrontPage To Do List methods:"
      Height          =   255
      Left            =   60
      TabIndex        =   1
      Top             =   60
      Width           =   4935
   End
   Begin VB.Label Label6
      Alignment       =   2  'Center
      Caption         =   "vtiCompletedTaskByUrl, vtiWorkedOnTaskByUrl"
      Height          =   255
      Left            =   60
      TabIndex        =   0
      Top             =   420
      Width           =   4935
      WordWrap        =   -1  'True
   End
Attribute VB_Name = "frmCompleteTask"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub btnBrowse_Click()
    MousePointer = 11
    frmGetURL.Tag = ""
    frmGetURL.Show 1
    If frmGetURL.Tag <> "" Then
        txtURL = frmGetURL.Tag
    End If
    frmGetURL.Tag = ""
    MousePointer = 0
End Sub
Private Sub btnClear_Click()
    txtURL = ""
End Sub
Private Sub btnCompleted_Click()
    Dim todolist As Object
    Dim webber As Object
    Dim webURL As String
    Dim ret As Boolean
    Dim url As String
    Dim priority As Integer
    MousePointer = 11
    Set todolist = CreateObject("FrontPage.ToDoList")
    ret = todolist.vtiCompletedTaskByUrl(txtURL, txtCookie)
    If Not ret Then
        MsgBox "Failed to mark task for given URL as completed."
    End If
    Set todolist = Nothing

    MousePointer = 0
End Sub
Private Sub btnWorkedOn_Click()
    Dim todolist As Object
    Dim webber As Object
    Dim webURL As String
    Dim ret As Boolean
    Dim url As String
    Dim priority As Integer
    MousePointer = 11
    Set todolist = CreateObject("FrontPage.ToDoList")
    ret = todolist.vtiWorkedOnTaskByUrl(txtURL, txtCookie)
    If Not ret Then
        MsgBox "Failed to mark task for given URL as worked on."
    End If
    Set todolist = Nothing

    MousePointer = 0
End Sub
Private Sub Form_Load()
    btnCompleted.Enabled = False
    btnWorkedOn.Enabled = False
End Sub
Private Sub txtURL_Change()
    btnCompleted.Enabled = Len(txtURL) > 0
    btnWorkedOn.Enabled = Len(txtURL) > 0
End Sub