1
如果我的問題標題有點含糊,我很抱歉。我有下面的程序調用表單。超鏈接調用相同的形式,通過一個子。所有這些工作都很好,問題是如果我點擊一個鏈接然後點擊另一個鏈接,表單會打開兩次,這是應該發生的,因爲我將這個表單實例化爲New。在程序中重複使用相同的winform
我想要做的只是打開相同的窗體,以便如果用戶單擊鏈接,然後只有一個窗體打開不是幾個。
Private Sub dsbPositionBoard_FollowHyperlink(Target As Microsoft.Office.Interop.Excel.Hyperlink) Handles Me.FollowHyperlink
'This procedure runs when any of the hyperlinked cells in the position dashboard are clicked
'The hyperlinks open the frmDefinition on the assigned defintion. The procedure calls
'the function.
'The hyperlinked cells are assigned under the ThisWorkbook/Open event.
Dim definitionForm As New frmDefinitions
Select Case Target.TextToDisplay
Case "Exempt"
definitionForm.tmr_out.Enabled = True
sheetView.exemptDefinition()
Case "Employee Pay Distribution for Ranges", "Low Third", "Upper Third"
definitionForm.tmr_out.Enabled = True
sheetView.lowerThirdDefinition()
Case "Market Percentiles"
definitionForm.tmr_out.Enabled = True
sheetView.marketPercentileDefinition()
Case "Min", "Mid", "Max", "Salary Range to Mkt"
definitionForm.tmr_out.Enabled = True
sheetView.payGradeWidthDefintion()
Case "Total Cash Compensation Data"
definitionForm.tmr_out.Enabled = True
sheetView.totalCashCompDefition()
Case "Compa-Ratio"
definitionForm.tmr_out.Enabled = True
sheetView.compaRatioDefinition()
End Select
End Sub
啊,來吧!直到現在我才意識到這一點!我確實給出了你之前關於你的問題的正確答案,你還沒有對它說過一句話。我明白你已經使用過它,因爲它恰恰與Excel有關(一個基本錯誤不允許你做任何事情)!你打算現在做同樣的事情嗎?因爲這將是我最後一次幫助你。不感激的人是我不喜歡的東西。 – varocarbas
@varocarbas,你是絕對正確的,我的道歉。我忘了將你的回答標記爲答案,我在你回答的最後一個問題上使用了你的決議。 –
好的,如果一切都是誤解,那麼沒問題。我傾向於直接說出事情,我希望你沒有發現我的語氣不夠。 – varocarbas