Hi,Im converting VB6 code to VB.net..i got following code from converter
In vb6 myForm.show vbModal method is triggering Got_Focus event.

But in the foll code,showDialog() method is triggering Load event.I need Enter evwent to be triggered which is equivalent to Got_Focus.

Is it possible to do so??

pls help me.

Thanks & Regards

MyForm = New frmNonProportionalDialog
MyForm.Visible = False
MyForm.Text = Caption
MyForm.txtMsg(0).Text = Temp
If Not MonoFont Then
MyForm.txtMsg(0).Font = VB6.FontChangeName(MyForm.txtMsg(0).Font, MyForm.Font.Name)
MyForm.txtMsg(0).Font = VB6.FontChangeBold(MyForm.txtMsg(0).Font, MyForm.Font.Bold)
MyForm.txtMsg(0).Font = VB6.FontChangeSize(MyForm.txtMsg(0).Font, MyForm.Font.SizeInPoints)
MyForm.txtMsg(1).Font = VB6.FontChangeName(MyForm.txtMsg(1).Font, MyForm.Font.Name)
MyForm.txtMsg(1).Font = VB6.FontChangeBold(MyForm.txtMsg(1).Font, MyForm.Font.Bold)
MyForm.txtMsg(1).Font = VB6.FontChangeSize(MyForm.txtMsg(1).Font, MyForm.Font.SizeInPoints)
MyForm.Tag = "PROP"
End If
If IconCode <> 0 Then
i = (IconCode / 16) - 1
If i >= 0 And i <= 5 Then MyForm.imgIcon(0).Tag = Trim(Str(i))
End If
TrackerMsgBoxButton = ""
MyForm.cmdOK(0).Tag = ButtonNames
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default

the Enter event is shown below.
I cannot use load or shown event becoz it is associted with txt_msg and not the frmNonProportionalDialog

Private Sub txtMsg_Enter(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles txtMsg.Enter
Dim Index As Short = txtMsg.GetIndex(eventSender)
If Index = 0 Then
If txtMsg(0).Tag <> "ALLOW FOCUS" Then
Call ControlSetFocus(cmdOK(0))
End If
End If
End Sub

Is there is any solution??

4 Years
Discussion Span
Last Post by tinstaafl

You can call the Sub Form_Enter from your Sub Form_Load; just pass the sender and e you got from the function call.

Form_Enter(sender, e)


There is a GotFocus event for forms. in your code window click the line that says events for your main form in the droplist at the top. Gotfocus should then be in the events droplist on the right.

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.