Active report output a pop up message

[PcRobotic 69]

Hello forum,
   I am thinking of making the ACTIVE REPORT pop up a message as if I wanted to.  Is that doable and what is the hard codes of which where I can start?

 

Like... If TOOL OVER ALL LENGTH < DEPTH then
             txtPopUpMessageA.visible  = true
           End if

ps: I am using VIRTUAL BASIC language (VB.net) to write the statement.

Thank you for the help.

[peter ~ 21]

for vb.net use the messagebox function. example :

MessageBox.Show("message")

 

[PcRobotic 69]

1 hour ago, peter ~ said:

for vb.net use the messagebox function. example :

MessageBox.Show("message")

 

 

Hello Peter,
   I just typed exact as you suggested but it is not defined.  Is there some prior steps that I need to do?


Thanks.

[peter ~ 21]

Its a reference to System.Windows.Forms are you able to add a reference to that assembly with your script compiler?

then add   using System.Windows.Forms at the top

[PcRobotic 69]

26 minutes ago, peter ~ said:

Its a reference to System.Windows.Forms are you able to add a reference to that assembly with your script compiler?

then add   using System.Windows.Forms at the top

This is what I have, I just want to make sure that I understand your instructions.

 

Thank you.

[Werktuigbouwer 3]

I believe you have not copied it correcly, try

MessageBox.Show("message")

[peter ~ 21]

30 minutes ago, PcRobotic said:

This is what I have, I just want to make sure that I understand your instructions.

 

Thank you.

Okay I will investigate further I am not very familiar with active reports, It is possible the Scripting language in use  doesn't observe the same "rules" as vb.net for applications. I will get back to you when I know more.

[peter ~ 21]

54 minutes ago, Werktuigbouwer said:

I believe you have not copied it correcly, try

MessageBox.Show("message")

Yes you are correct he did not copy correctly.

[PcRobotic 69]

2 hours ago, Werktuigbouwer said:

I believe you have not copied it correcly, try

MessageBox.Show("message")

 

Thank you for pointing it out but I think I still having issue with the "define".  Do you have any recommendations?

[peter ~ 21]

1 hour ago, PcRobotic said:

 

Thank you for pointing it out but I think I still having issue with the "define".  Do you have any recommendations?

Hi pcrobotic,

You need to add the reference to winforms in order to use the function MessageBox:

I don't normally use VB but I double checked the code you need to add above your function in order for it to work is

Imports System.Windows.Forms
'//then
Sub ActiveReport_ReportStart
MessageBox.Show("Message")
End Sub

I tested it the assembly for winforms is there so this will work, let me know if you have any more issues.

[PcRobotic 69]

23 hours ago, peter ~ said:

Hi pcrobotic,

You need to add the reference to winforms in order to use the function MessageBox:

I don't normally use VB but I double checked the code you need to add above your function in order for it to work is

Imports System.Windows.Forms
'//then
Sub ActiveReport_ReportStart
MessageBox.Show("Message")
End Sub

I tested it the assembly for winforms is there so this will work, let me know if you have any more issues.

Hello Peter,
   I got it, very nice.  I have another question.  Can I write a statement in this MESSAGE BOX? 

 

Like... 

 

if OVER ALL LENGTH < DEPTH (Z-DEPTH) then show message "STICK OUT LONGER"  

show value of Z-DEPTH in the message as well
show value of OVER ALL LENGTH in the message as well

Is that possible?  Like the one in the image of which I just made it up by hand

 

[peter ~ 21]

3 hours ago, PcRobotic said:

Hello Peter,
   I got it, very nice.  I have another question.  Can I write a statement in this MESSAGE BOX? 

 

Like... 

 

if OVER ALL LENGTH < DEPTH (Z-DEPTH) then show message "STICK OUT LONGER"  

show value of Z-DEPTH in the message as well
show value of OVER ALL LENGTH in the message as well

Is that possible?  Like the one in the image of which I just made it up by hand

 

Yes it is possible, we would need the variable names for your overall length and z-depth. Then write your function something like the following example :

  Dim overall_length As Double
        overall_length = -0.5
        Dim zdepth As Double
        zdepth = -1.0
        If zdepth < overall_length Then
            MessageBox.Show("Tool Overall Length : " & overall_length & "  Z-Depth : " & zdepth)
        End If

 

[PcRobotic 69]

On 11/8/2019 at 7:33 PM, peter ~ said:

overall_length = -0.5

Why do I have to put  = -.5? or 

zdepth = -1.0

  Aren't these I am staying they are DEAD NUMBERS?

[peter ~ 21]

No it is just an example. Your tool length will be positive and your z depth will be negative (usually). So you will need to account for that in your equation.

[peter ~ 21]

Start by displaying your lowest z depth and tool length in a textbox using the format in the example.

[PcRobotic 69]

1 hour ago, peter ~ said:

Start by displaying your lowest z depth and tool length in a textbox using the format in the example.

Oh, alright. I will let you know when I completed.  It would be an amazing thing and you are the one I can count for thankful help.

[PcRobotic 69]

On 11/7/2019 at 10:06 AM, peter ~ said:

for vb.net use the messagebox function. example :

MessageBox.Show("message")

 

 

Hello Peter,
   I partially succeed output a message box.  However, I would like it to make multiple text line in one message box with some conditions.  Would you please tell me what I've done wrong?  

 

 

Thank you for your valuable help,
   S.Luong

=====================================
This is my hard codes but not succeeded.

 

Cut Numbers.....

This is what I want...