The Windows MessageBox API function is declared as follows:ĭeclare Function MessageBox Lib “user32” Alias “MessageBoxA” _ ************ Click Events ***************** Private Sub img1_Click()Įnd Sub Private Sub img1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)ĭid someone mention my name? You’d think this would be simple, which it would be if the MsgBox function provided xpos & ypos arguments to position msgbox on screen the way the InputBox function does. StAppName = "L:mmpdfutilitiesedjpgcom.exe" & " " & "L:MMPDFImage" & _ MsgBox "No Image To Comment", vbInformation, "Information" If Me.Controls("Text" & i).Text = vbNullString Then ‘= Private Function imgRclick(i As Integer, Button As Integer) Me.PreviewImg.Picture = Me.Controls("img" & j).Picture I’m afraid the two as separate, may conflict at some time, and there seems alot going on with all the events firing: Should I contatinate the two (imgClick & MouseDown) into one function for efficiency sake. Just to be on the safe side, (although it now works) I’ve included the functions & click functions below, same question applies,
Now it doesn’t work, where did I go wrong ?
RIGHT CLICK COLORDROP MEDIBANG CODE
Me.txtInfo.Text = Me.lstEmail.ListCount & " Images To Mail"īut I forgot to add the code for the Right Mouse Button and was working with both mouse buttons!, So I added: Private Function imgRclick(i As Integer, button As Long) Me.lstEmail.AddItem strFolder & "" & Left$(Me.Controls("Text" & i), 8) & ".jpg" If MsgBox("Add To E:Mail", vbYesNo, "Image Selection") = vbYes Then I’ve just written the below function for the right click event (Mouse_Up) Private Function imgRclick(i As Integer, )
0 kommentar(er)
