vb.net代码自动整理 vbnet doevent

跪求vb.net代码

新建窗口，添加picture控件

利用line()方法画线

line(开始x坐标,开始y坐标)-(结束x坐标,结束y坐标),线的颜色，画线的方式(默认为线，B为矩形无填充，BF为填充的矩形)

For i = 1 To 16

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)

Next i

如果要在窗口上画也可以调用窗口的line方法即form.line()

关于VB.net取整的问题

double是双精度 有效数值位52位 表示成指数的形式 即指数11位 即表示成

所以180.89305用2进制表示是10110100.1110010010011110111011001011111110110001010110110101

即

180.89305在double中存在的实际数值是

1.01101001110010010011110111011001011111110110001010110110101 *2^7

取小数点后 52位有效值后 等于10进制的180.893049999999998

所及加最后变成了 1808930.99999999998

第一次当然输出近似值1808931

第二次int函数去掉了小数点后的数int就是只取整数的部位的不是四舍五入 所以少了1

如何实现VB.NET实现代码在datagridview选中行,并在datagridview显示区域居中

非常简单

一:如果知道要选中的行号

datagridview1.Rows(行号).Selected

=

True

datagridview1.FirstDisplayedScrollingRowIndex

=

行号

第一行是选中行号所在的行，第二行是移动滚动条将选中的行在显示区域的最上放显示出来。

二:根据内容选中行并显示

For

i

=

To

datagridview1.Rows.Count

-

1

If

datagridview1.Rows(i).Cells("列的名称").Value

=

要选中行列的值

Then

datagridview1.Rows(i).Selected

=

True

datagridview1.FirstDisplayedScrollingRowIndex

=

i

End

If

Next

而且，如果你不想选中的行显示到最上面，可以这样:

For

i

=

To

datagridview1.Rows.Count

-

1

If

datagridview1.Rows(i).Cells("列的名称").Value

=

要选中行列的值

Then

datagridview1.Rows(i).Selected

=

True

Dim

indeI

As

Integer

=

i

-

15

If

indeI

1

Then

indeI

=

1

datagridview1.FirstDisplayedScrollingRowIndex

=

indeI

End

If

Next

上面的代码是根据某列的值选中行，并且移动滚动条将选中的行在显示区域的第15行显示。

vb中怎样设置使代码窗口中的代码自动对齐？

问题1vb.net代码自动整理：——把三个窗口vb.net代码自动整理的startupposition属性都设为2。或在form_load中把三个窗口的left设为相等的值vb.net代码自动整理，top也设为相等的值。

问题2：——在“格式”里有“对齐”，但只能在设计阶段，并且行距两个以上的控件时才能使用。

VB.net2000的自动垃圾回收机制到底管用么???????!!!!

分类: 电脑/网络 程序设计 其他编程语言

问题描述:

别跟我说VB2000自动释放内存,曾经深信这句话的我,如今已是伤痕累累,好几个大项目都差点毁在vb的内存问题上,C#我倒不知道..VB的回收内存速度太慢vb.net代码自动整理了,这只是保守的说,其实本人认为它根本不会回收内存.就算全部用上gc.collet也回收不vb.net代码自动整理了,而且越用越慢

在使用我的项目的时候,随着窗口的开开关关\控件的调用,内存一直飙,从14MB左右一路疯狂飙高,40分钟系统就崩溃了...上了补丁的XP可以不死机,但就定着不动了..如果虚拟内存文件大,可以维持到撑满,但录一条记录平均要等一个小时!!!!!!!,后来我学乖了开始nothing全局变量(工作量惊人...),结果内存开始有下走的现象(原来是一路向上..只占不放)但内存还是呈曲线上飙,40分钟到200多MB,于是我开始释放局部变量,在每个方法中都要释放!!!!!!!!!!!!!!!!!!!!!,而且还要区分哪些是引用!痛苦啊!!!

...结果三个月之后,满面憔悴的我终于发现内存接近正常了,虽然还不是释放的很干净,但能保证在一段时间内不会崩溃了..至少客户做的时候没再提过意见...我并没有优化什么代码,只是痛苦的释放了一些全局和局部变量,结果内存就不消耗的那么厉害了,你说奇怪不奇怪..但内存始终不是释放的那么干净,我算过了一分钟内曲线飙高2MB左右,有时更多照这样一来,真是早死不如晚死,想想将来还不如用java重新做呢...各位可怜可怜我吧,有什么好主意整理vb2000的内存的好东东,就告诉我吧!!!!!!!!!!我真的受不了了!!!!!有没有什么方法可以重新分配内存呢,就算会造成页中断我也在所不惜!!!!

另外Me.Refresh()是什么意义,能释放内存么?

解析:

很简单vb.net代码自动整理，你没有正确理解VB的内存自动回收机制，仔细看一下MSDN，好好研究一下相关的内容。其实JAVA的内存自动回收机制与VB是类似的，如果你用VB.NET做不好，换用JAVA照样做不好。

其实，你已经发现了为什么内存不能回收，只是你没意识到罢了。

为什么要用全局变量呢？给你举个极端的例子吧vb.net代码自动整理：建立一个全局的Hashtable，然后将程序中创建的每一个对象实例加入到这个hashtable中，那么你将看到内存一直猛增，直到崩溃。

正确的作法是：

1、尽量不用、少用全局变量和静态变量

2、如果没有必要，就不要把对象实例加到全局或静态的Hashtable、ArrayList之类的 *** 中去，除非你是想自己建立一个对象缓冲池

3、如果你自己要建立对象缓冲池，就一定要注意对象的清理，尽早将不用的对象从池中删除

4、找本好一点的数据结构，仔细学学其中关于自动内存回收的那几种机制，以后在程序中不要违反它们的要求前提条件。

求VB.NET写的自动保存txt文档的代码

直接给你保存和读取TXT的VB.NET的函数代码vb.net代码自动整理，你只要在触发事件中调用就可以vb.net代码自动整理了vb.net代码自动整理，注意换行，有的是显示不下去才显示两行的，还有strFilePath代表文件路径，TempENG代表文件编码格式如：UTF-8或者GB2312，strText 代表内容字符串。

#Region "读取TXT"

Public Function ReadTxt(ByVal strFilePath As String, ByVal TempENG As String) As String

Dim mySr As System.IO.StreamReader

Dim strS As String

Dim n%

strS = ""

mySr = New System.IO.StreamReader(strFilePath, System.Text.Encoding.GetEncoding(TempENG))

Do

Dim line$ = mySr.ReadLine()

strS = strS line vbCrLf

n = n + 1

Loop Until mySr.EndOfStream = True

mySr.Close()

Return strS

End Function

#End Region

#Region "保存TXT"

Public Function SaveTxt(ByVal strFilePath As String, ByVal strText As String, ByVal TempENG As String) As Boolean

Try

If Dir(strFilePath) "" Then File.Delete(strFilePath)

Dim mySw As System.IO.StreamWriter

Dim strLine() As String

mySw = New System.IO.StreamWriter(strFilePath, True, System.Text.Encoding.GetEncoding(TempENG))

strLine = Split(strText, vbCrLf)

For i As Integer = 0 To UBound(strLine)

mySw.WriteLine(strLine(i))

Next

mySw.Close()

Return True

Catch ex As Exception

Return False

End Try

End Function

#End Region

vb.net代码自动整理的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet doevent、vb.net代码自动整理的信息别忘了在本站进行查找喔。