[VB.NET]急,高手帮忙解决,谢谢!

[VB.NET论坛] 专栏收录该内容
757 篇文章 2 订阅
VB.NET源码-156个实用实例哦…… <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
急,高手帮忙解决,谢谢!
Imports System.Data.SqlClient
Public Class fmmain

Dim strprogramid As String
Dim bnfirstrun As Boolean
Dim struserid As String
...
Private Sub fmmain_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
If bnfirstrun Then
bnfirstrun = False
Dim fmpassword As New fmpassword()
If fmpassword.ShowDialog = Windows.Forms.DialogResult.Cancel Then
Me.Close()
Else
struserid = fmpassword.myuser (fmpassword.myuser 有问题)
End If
End If

End Sub
.....
Private Sub bnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnexit.Click
If MessageBox.Show( 离开进销存管理系统? , MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then

Me.Close()
End If

End Sub
(MessageBox.Show( 离开进销存管理系统? , MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)有问题)
哪为高手帮助解决一下啊
__________________________________________________________________________
  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 扫一扫,分享海报

©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值