时间戳

首页 > 解决方案 > 如何编辑此消息框？

vb.net - 如何编辑此消息框？

问题描述

如何编辑此 MessageBox？因为我想在按钮上添加代码。

在此处输入图像描述

这是我的代码。如何访问图像中的消息框，以便将 If else 条件添加到按钮？

Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim t As Integer
Dim s As Integer

xlApp = New Microsoft.Office.Interop.Excel.Application
xlWorkBook = xlApp.Workbooks.Add(xlPath)
xlWorkSheet = xlWorkBook.Sheets("Payment Voucher Printing")

xlWorkSheet.Cells(t + 3, s + 8) = VOUCHER_NUMBERTextBox.Text()
xlWorkSheet.Cells(t + 6, s + 8) = DATE_OF_PAYMENTTextBox.Text()
xlWorkSheet.Cells(t + 7, s + 2) = PAID_TOTextBox.Text()
xlWorkSheet.Cells(t + 12, s + 8) = AMOUNTTextBox.Text()
xlWorkSheet.Cells(t + 12, s + 7) = TOTextBox.Text()
xlWorkSheet.Cells(t + 12, s + 6) = FROMTextBox.Text()
xlWorkSheet.Cells(t + 12, s + 5) = SALES_OF_INVOICE_NUMBERTextBox.Text()
xlWorkSheet.Cells(t + 12, s + 3) = ACTIVITYTextBox.Text()
xlWorkSheet.Cells(t + 12, s + 1) = PAYEE_COMPANYTextBox.Text()
xlWorkSheet.Cells(t + 17, s + 3) = TYPE_OF_EXPENSETextBox.Text()
xlWorkSheet.Cells(t + 20, s + 3) = ACCOUNT_CODETextBox.Text()
xlWorkSheet.Cells(t + 23, s + 3) = CHECKTextBox.Text()
xlWorkSheet.Cells(t + 24, s + 3) = BANKTextBox.Text()
xlWorkSheet.Cells(t + 25, s + 3) = DATE1TextBox.Text()
xlWorkSheet.Cells(t + 22, s + 6) = TYPE_OF_SUPPORTING_DOCUMENTTextBox.Text()
xlWorkSheet.Cells(t + 23, s + 6) = VATABLETextBox.Text()
xlWorkSheet.Cells(t + 24, s + 6) = SUBJECT_TO_W_TAXTextBox.Text()
xlWorkSheet.Cells(t + 25, s + 6) = W_TAX_RATETextBox.Text()
xlWorkSheet.Cells(t + 23, s + 8) = INPUT_VATTextBox.Text()
xlWorkSheet.Cells(t + 24, s + 8) = W_TAXTextBox.Text()
xlWorkSheet.Cells(t + 25, s + 8) = BALANCETextBox.Text()
xlWorkSheet.Cells(t + 21, s + 8) = TOTAL_PHPTextBox.Text()

Try
    xlWorkSheet.SaveAs(xlPath)
    xlWorkBook.Close()
    xlApp.Quit()
Catch ex As Exception
End Try

releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)

MsgBox("You can find the file C:\Users\Desktop\")
Dim res As MsgBoxResult
res = MsgBox("Process completed, Would you like to open file?", MsgBoxStyle.YesNo)
If (res = MsgBoxResult.Yes) Then
    Process.Start(xlpath)
End If

标签： vb.net

解决方案

您可以按照您想要的方式控制和引导此消息框，但这是一项非常困难的任务您可以在到达此消息框并检查文件是否可用之前自己完成。如果可用，请提供新文件名

        If System.IO.File.Exists(xlPath) = True Then
        xlPath = Application.StartupPath & "\" & NewFilename & ".xlsx"
    End If

推荐阅读