大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你是不是用的Visual Studio来开发的?如果是,这样操作:打开 项目 菜单 中的 XXX属性,在弹出的属性页选择最上面那个 应用程序 标签,里面有个启动窗体,你选择一下就可以了。
成都创新互联公司是网站建设专家,致力于互联网品牌建设与网络营销,专业领域包括网站建设、成都做网站、电商网站制作开发、小程序开发、微信营销、系统平台开发,与其他网站设计及系统开发公司不同,我们的整合解决方案结合了恒基网络品牌建设经验和互联网整合营销的理念,并将策略和执行紧密结合,且不断评估并优化我们的方案,为客户提供全方位的互联网品牌整合方案!
如果你不是用的visual Studio来开发的,那么可以考虑把另外一个窗口的visible属性先设置为false或者把你要显示的窗口改为对话框的形式,大小比另外一个窗口大一点或者一样(即 模态窗口,必须关闭才能继续操作),这样都可以实现你要的效果。
把启动窗体先显示出来,然后,过一段时间再把这个窗体隐藏起来就行了。在其他窗体中加一句form1.visible=false
然后启动窗体把标题栏什么的设置一下,做个图片背景什么的,就行了。
Public Class Form1
Public str() As String
Public flag As Integer = 0 //标志位,记录上一次显示的字符串在数组中的位置
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = 2000
Timer1.Start()
str = {"正在初始化A...", "正在初始化B...", "正在初始化C...", "初始化完成!"}
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text = str(flag)
flag = flag + 1 //保证下次执行label1.text=str(flag)显示不同内容
If flag = 4 Then //加载完了,定时器关掉
Timer1.Stop()
End If
End Sub
End Class
运行效果见附件屏幕录像
可以改写成以下形式:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim strCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\FUO_Inventory.accdb"
Dim myConn As New OleDbConnection(strCon)
myConn.Open()
End Sub
获取屏幕大小宽和高 和初始化窗口的尺寸 屏幕减尺寸等于你想要的left值 和top值 即屏幕比你窗体高多少 宽多少就是你右对齐的初始值 右上角对齐top依旧为0
你可以先用循环的方法来获得改datagrid中“性别”的值,接着自己定义个变量来存放这个“性别”的1或者0,然后根据这个值用条件来判断是显示“男性”还是女性,打个比方(有五列十行数据,比方第二列显示出“性别”):
Dim intRow As Integer
Dim intColumn As Integer
Dim Gender As Integer
For intRow = 0 To 9(DataGrid的行总和)
Gender = CInt(datagrid1.Item (intRow, 1).ToString )
If Gender = 0 Then
datagrid1.Item (intRow, 1)="男"
Else
datagrid1.Item (intRow, 1)="女"
Next