Announcement

Collapse
No announcement yet.

Template Wizard Script Question

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Shotski2
    replied
    Thanks Again. You're the best

    Leave a comment:


  • Novacane89
    replied
    You just create a new button on the Template, Then click the events tab... Double click on "OnClick"... It will create an event for the button click....
    Inside that event you just call your function...

    Sub TWUniButton1Click(Sender)

    call RecursiveFolderSearch2(pathString1, fileCategory1)

    OR (another way to call the function)

    RecursiveFolderSearch2 pathString1, fileCategory1

    End Sub


    Leave a comment:


  • Shotski2
    started a topic Template Wizard Script Question

    Template Wizard Script Question

    How do i get a Function to only activate by the click of a button. The script below looks for an IP address and searches the graphics hub but i need to activate it with a button click? Right now it happens automatically.

    'Function RecursiveFolderSearch2(pathString1, fileCategory1, Sender)
    ' pathSplit1 = Split(pathString1, "")

    ' itemCount1 = 0
    ' for i=0 to UBound(pathSplit1)
    ' uuid1 = PerformSearch("/folders/", pathSplit1(i), uuid1, fileCategory1)
    ' next

    ' if uuid1 <> "" then

    ' found uuid, get array of filenames
    ' filenames1 = PerformSearch("/files/", "", uuid1, fileCategory1)
    ' filenameSplit1 = Split(filenames1, ",")
    ' For i = LBound(filenameSplit1) to UBound(filenameSplit1)
    ' For j = LBound(filenameSplit1) to UBound(filenameSplit1)
    ' If j <> UBound(filenameSplit1) Then
    ' If filenameSplit1(j) > filenameSplit1(j + 1) Then
    ' TempValue1 = filenameSplit1(j + 1)
    ' filenameSplit1(j + 1) = filenameSplit1(j)
    ' filenameSplit1(j) = TempValue1
    '
    ' End If
    ' end if
    ' next
    ' next
    ' BubbleSort1 = filenameSplit1
    ' add items to dropdown
    ' customBrandDropDown.Items.Add = "Choose an image..."
    ' for i= 1 to UBound(BubbleSort1)

    ' customBrandDropDown.Items.Add BubbleSort1(i)

    ' next
    ' end if




    'End Function
Working...
X