『郭兴春的个人网志』-http://blog.m916.com

VB中MsFlexGrid控件的使用方法

yifan — 2008-9-24 20:26:11

VB中MsFlexGrid控件的使用细则(收集)

>> 将文本赋值给MsFlexGrid的单元格
MsFlexGrid.TextMatrix(3,1)=”Hello”

>> 在MsFlexGrid控件单元格中插入背景图形
Set MsFlexGrid.CellPicture=LoadPicture(“C:\temp\1.bmp”)

>>选中某个单元
MsFlexGrid.Row=1
MsFlexGrid.Col=1

>>用粗体格式化当前选中单元
MsFlexGrid.CellFontBold=True

>> 添加新的一行
使用AddItem方法,用Tab字符分开不同单元格的内容
dim row as string
row=”AAA”&vbtab&”bbb”
MsFlexFrid1.addItem row

>>怎样来实现MSFlexGrid控件单数行背景为白色，双数的行背景为蓝色?
Dim i As Integer
With MSFlexGrid1
.AllowBigSelection = True ’ 设置网格样式
.FillStyle = flexFillRepeat
For i = 0 To .Rows - 1
.Row = i: .Col = .FixedCols
.ColSel = .Cols() - .FixedCols - 1
If i Mod 2 = 0 Then
.CellBackColor = &HC0C0C0 ’ 浅灰
Else
.CellBackColor = vbBlue ’ 兰色
End If
Next i
End With

>> MSFlexGrid控件如何移到最后一行
MSFlexGrid1.TopRow = MSFlexGrid1.Rows – 1

>>如何判断msflexgrid有无滚动条
Declare Function GetScrollRange Lib "user32" (ByVal hWnd As Long, ByVal nBar As Long, lpMinPos As

Long, lpMaxPos As Long) As Long
Public Const SB_HORZ = &H0
Public Const SB_VERT = &H1

Public Function VsScroll(MshGrid As MSHFlexGrid) As Boolean ’判断水平滚动条的可见性
Dim i As Long
VsScroll = False
i = GetScrollRange(MshGrid.hWnd, SB_HORZ, lpMinPos, lpMaxPos)
If lpMaxPos <> lpMinPos Then VsScroll = True
End Function

Public Function HeScroll(MshGrid As MSHFlexGrid) As Boolean ’判断垂直滚动条的可见性
Dim i As Long
HeScroll = False
i = GetScrollRange(MshGrid.hWnd, SB_VERT, lpMinPos, lpMaxPos)
If lpMaxPos <> lpMinPos Then HeScroll = True
End Function

>>程序运行时，想动态增加MSFlexgrid的列数
在第2列后插入一列：
Private Sub Form_Load()
Me.MSHFlexGrid1.Cols = 5
MSHFlexGrid1.Rows = 2
For i = 0 To Me.MSHFlexGrid1.Cols - 1
Me.MSHFlexGrid1.TextMatrix(0, i) = i
Me.MSHFlexGrid1.TextMatrix(1, i) = i
Next
End Sub

Private Sub Command1_Click()
Me.MSHFlexGrid1.Cols = Me.MSHFlexGrid1.Cols + 1
Me.MSHFlexGrid1.ColPosition(5) = 3
End Sub

>> 请教MSFlexGrid中的对齐功能的使用
设置MSFlexGrid1.ColAlignment(index)=n

>>得到MSFlexGrid控件中当前选中的一行
msflexgrid1.rowsel就是当前选中行

>> 如何通过代码调节列宽度
msflexgrid1.colwidth(i)=4000
将MsFlexGrid控件的内容输出到文本

2004-03-19 14:25:18
'OutDataToText
'将MsFlexGrid控件中显示的内容输出到文本文件
Public Sub OutDataToText(Flex As MSFlexGrid)
Dim s As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim strTemp As String
On Error GoTo Ert
Me.MousePointer = 11
On Error Resume Next
DoEvents
Dim FileNum As Integer
FileNum = FreeFile
Open "d:aa.txt" For Output As #FileNum
With Flex
k = .Rows
For i = 0 To k - 1
strTemp = ""
For j = 0 To .Cols - 1
DoEvents
strTemp = strTemp & .TextMatrix(i, j) & ","
Next j
Print #FileNum, Left(strTemp, Len(strTemp) - 1)
Next i
End With
Close #FileNum
Me.MousePointer = 0
MsgBox "导出成功"
Ert:
MsgBox Err.Description
Me.MousePointer = 0
End Sub
增加 MsFlexGrid 的编辑功能

（作者：佚名加载日期: 2002/3/31）

概述
MsFlexGrid 控件没有提供文本编辑的功能，下面的例子演示了如何利用一个TextBox 实现编辑当前网格的功能

。

在按下一个键后，就把TextBox 移动到当前的位置，并激活。在键入回车或移动到其他网格时，

就把TextBox 中的内容放到网格中。

实现步骤
1 打开 VB5，开启一个新的工程。

2 在菜单“工程” 中选择 “部件”，在列表中选中 “Microsoft FlexGrid Control ..”

3 放一个 MsFlexGrid 控件和一个TextBox 控件(Text1)到 Form1。修改MsFlexGrid 控件的名称为 Grid1，

设置Grid1 的行，列为 4，固定行，列为 0。设置 Text1 的 Visiable 为 False， BorderStyle 为

None(0)。

4 在Form1 的代码中增加声明：

Const ASC_ENTER = 13 '回车
Dim gRow As Integer
Dim gCol As Integer

5 增加代码到 Grid_KeyPress 过程：

Private Sub Grid1_KeyPress(KeyAscii As Integer)
' Move the text box to the current grid cell:
Text1.Top = Grid1.CellTop + Grid1.Top
Text1.Left = Grid1.CellLeft + Grid1.Left
' Save the position of the grids Row and Col for later:
gRow = Grid1.Row
gCol = Grid1.Col
' Make text box same size as current grid cell:
Text1.Width = Grid1.CellWidth - 2 * Screen.TwipsPerPixelX
Text1.Height = Grid1.CellHeight - 2 * Screen.TwipsPerPixelY
' Transfer the grid cell text:
Text1.Text = Grid1.Text
' Show the text box:
Text1.Visible = True
Text1.ZOrder 0 ' 把 Text1 放到最前面！
Text1.SetFocus
' Redirect this KeyPress event to the text box:
If KeyAscii <> ASC_ENTER Then
SendKeys Chr$(KeyAscii)
End If
End Sub

6 增加代码到 Text1_KeyPress 过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = ASC_ENTER Then
Grid1.SetFocus ' Set focus back to grid, see Text_LostFocus.
KeyAscii = 0 ' Ignore this KeyPress.
End If
End Sub

7 增加代码到 Text1_LostFocus 过程：

Private Sub Text1_LostFocus()
Dim tmpRow As Integer
Dim tmpCol As Integer
' Save current settings of Grid Row and col. This is needed only if
' the focus is set somewhere else in the Grid.
tmpRow = Grid1.Row
tmpCol = Grid1.Col
' Set Row and Col back to what they were before Text1_LostFocus:
Grid1.Row = gRow
Grid1.Col = gCol
Grid1.Text = Text1.Text ' Transfer text back to grid.
Text1.SelStart = 0 ' Return caret to beginning.
Text1.Visible = False ' Disable text box.
' Return row and Col contents:
Grid1.Row = tmpRow
Grid1.Col = tmpCol
End Sub

8 好了。按 F5 开始测试。您可以自由地在 Grid 中移动，按回车可以开始或结束编辑。

使用MsFlexGrid控件的几个函数

作者：中国论坛网收集来源：http://www.51one.net 加入时间：2004-8-25

在VB处理数据显示的时候,使用表格是一种好的方法,虽然DataGrid可以与数据源绑定,但是总有美中不足,就是

外观不好看,所以有时应用MsFlexGrid显示数据还是一种比较好的方法,以下几个函数是用来控制MsFlexGrid的

程序

(本人语言表达能力有限,还请见谅)

''MsFlexGrid操作函数

''合并列
Public Function MergeCol(GridObj As Object, ByVal StartCol As Long, ByVal EndCol As Long, ByVal

ColValue As String, ByVal CurrentRow As Long) As Boolean
If StartCol > EndCol Or StartCol > GridObj.Cols Or CurrentRow > GridObj.Rows Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
MergeCol = False
Exit Function
End If

For I = StartCol To EndCol
GridObj.MergeCol(I) = True
GridObj.TextArray(faIndex(GridObj, CurrentRow, I)) = ColValue
GridObj.ColAlignment(I) = flexAlignCenterCenter
Next I

GridObj.MergeRow(CurrentRow) = True

MergeCol = True

End Function

''合并行
Public Function MergeRow(GridObj As Object, ByVal StartRow As Long, ByVal EndRow As Long, ByVal

RowValue As String, ByVal CurrentCol As Long) As Boolean
If StartRow > EndRow Or StartRow > GridObj.Rows Or CurrentCol > GridObj.Cols Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
MergeRow = False
Exit Function
End If

For I = StartRow To EndRow
GridObj.MergeRow(I) = True
GridObj.TextArray(faIndex(GridObj, I, CurrentCol)) = RowValue
GridObj.ColAlignment(CurrentCol) = flexAlignCenterCenter

Next I
GridObj.MergeCol(CurrentCol) = True
MergeRow = True

End Function

''转换索引
Public Function faIndex(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As Long
If row > GridObj.Rows Or row < 0 Or col > GridObj.Cols Or col < 0 Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
faIndex = -1

Exit Function
End If

faIndex = row * GridObj.Cols + col

End Function

''插入行
Public Function SetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer, ByVal

SetValue As String) As Boolean
If row > GridObj.Rows Or row < 0 Or col > GridObj.Cols Or col < 0 Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
SetItem = False
Exit Function
End If
GridObj.TextArray(faIndex(GridObj, row, col)) = SetValue

SetItem = True
End Function

''得到单元格值
Public Function GetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As String

If row > GridObj.Rows Or row < 0 Or col > GridObj.Cols Or col < 0 Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
GetItem = ""
Exit Function
End If
GetItem = GridObj.TextArray(faIndex(GridObj, row, col))
End Function

在msflexgrid控件中每一个cell格的内容是不可以由用户直接编辑的但是我们可以通过一些小技
巧来方便的实现这编辑功能来扩展msflexgrid的应用（在实际应用中这是很常用的功能）。

你只需按下面的做即可轻松实现编辑msflexgrid控件数据的功能

例在窗体上放一文本框txtvalue，和一msflexgrid控件grid

‘文本框控件的keypress事件
private sub txtvalue_keypress(keyascii as integer)
‘放入一些处理过程，如只需输入数字时的处理

dim i
i=1
end sub

private sub txtvalue_change()
grid.text = txtvalue.text
end sub

'在grid的entercell事件中加入下例代码
private sub grid_entercell()
txtvalue.text = grid.text
txtvalue.selstart = 0
txtvalue.sellength = len(txtvalue.text)
end sub

'当用户输入数据时直接调用文本框的keypress事件
private sub grid_keypress(keyascii as integer)
txtvalue_keypress keyascii
end sub

ok,这样一个可编辑的msflexgrid控件就完成了，简单吧!!

原理
当用户点击msflexgrid中的某个cell格要输入数据时,产生entercell事件，在这里我们对文本
框进行初始化，输入当前cell格中的内容，并且选中所有文本。当用户要按下按键进行输入时，就直
接调用txtvalue的事件，由文本框来处理.

处理的结果同grid的当前cell同步，使用户编辑cell格就象使用文本框一样方便。

网格单元格中文字的多行显示很简单，只要把WordWarp属性改为True就可以了。

1.VB6自带MSHFlexGrid只支持2048条记录显示,这个问题通过装VB6 的SP6解决.
2.TopRow属性的使用,这个属性可以使用代码移动MSHFlexGrid的行显示,如要做一个从上至下的滚动显示，使用这个属性解决起来非常方便
3.使用选码高亮即选中显示某一行,如要选中第三行,可以使用代码:
MSHFlexGrid1.Row = 3
MSHFlexGrid1.TopRow =3
myMSHFlexGrid.ColSel = MSHFlexGrid1.Cols - 1

FlexCell使用说明

yifan — 2008-9-24 19:18:57

FlexCell是一款比较美观的报表控件:
'合并单元格
Call Grid1.Range(1, 1, 2, 1).Merge
'给单元格赋值
Grid1.Cell(1, 1).Text = "项   目"
'设置字体为加粗
Grid1.Cell(1, 1).Font.Bold = True
'设置单元格内容居中
Grid1.Cell(1, 1).Alignment = cellCenterGeneral
For row = 3 To 10
Grid1.Cell(row, 1).Text = "地区"
Next row

For col = 2 To 5 Step 2
Call Grid1.Range(1, col, 1, col + 1).Merge
Grid1.Cell(1, col).Text = "产品"
Grid1.Cell(1, col).Alignment = cellCenterCenter
Grid1.Cell(2, col).Text = "销量"
Grid1.Cell(2, col).Alignment = cellCenterCenter
Next col
For col = 3 To 5 Step 2
Grid1.Cell(2, col).Text = "销量吨"
Grid1.Cell(2, col).Alignment = cellCenterCenter
Next col
'设置固定列行
Grid1.FixedCols = 2
Grid1.FixedRows = 3
'让原有的固定列行隐藏
Grid1.RowHeight(0) = 0
Grid1.Column(0).Width = 0
'设置固定行列的颜色
Grid1.BackColorFixed = &H80000013

Grid1.Cell(3, 2).Text = "测试换行并自动调整行高"
'设置单元格自动换行
Grid1.Cell(3, 2).WrapText = True
'设置自动调整行高
Grid1.AutoFitRowHeight (3)

Private Sub Preview_Click()
With Grid1.PageSetup
        '设置页眉
        .Header = "FlexCell表格测试打印"
        .HeaderAlignment = cellCenter 'cellLift
        .HeaderFont.Name = "Times New Roman"
        .HeaderFont.Size = 14
        .HeaderFont.Bold = True

        '设置页脚
        .Footer = "共 &N 页，第 &P 页    打印日期：&D"
        .FooterAlignment = cellCenter
        .FooterFont.Name = "Verdana"
        .FooterFont.Size = 8

        '设置页边距
        .LeftMargin = 2
        .RightMargin = 2
        .TopMargin = 3
        .BottomMargin = 3
        .HeaderMargin = 2
        .FooterMargin = 2

        .PaperSize = cellPaperA3  'A3纸
        .Orientation = cellPortrait  '竖向打印
        .CenterHorizontally = True  '打印内容水平居中
        .PrintFixedColumn = True '打印固定列
        .PrintFixedRow = True '打印固定行
        .PrintGridlines = True '打印单元格边框
    End With
Grid1.PrintPreview
End Sub
但是,其在导出到EXCEL时,无法设置一个报表名称,自动插入到EXCEL的第一行,^_^
自己写一个:
Private Sub daochu_Click()
Dim row As Long
Dim col As Long
'防止重画
Grid1.AutoRedraw = False
'隐藏固定行列
Grid1.RowHeight(0) = 0
Grid1.Column(0).Width = 0
'设置固定行列
Grid1.FixedCols = 1
Grid1.FixedRows = 1
'插入导出的报表名称
Grid1.Range(1, 1, 1, 11).Selected
Grid1.Selection.InsertRows
Grid1.Selection.Merge
Grid1.Cell(1, 1).Text = "FlexCell表格测试"
Grid1.Cell(1, 1).Font.Size = 16
Grid1.Cell(1, 1).Alignment = cellCenterCenter
Grid1.Cell(1, 1).Font.Bold = True
'加边框
Grid1.Range(0, 0, 0, 0).Selected
With Grid1.Selection
        .Borders(cellEdgeLeft) = cellThick
        .Borders(cellEdgeRight) = cellThick
        .Borders(cellEdgeTop) = cellThick
        .Borders(cellEdgeBottom) = cellThick
        .Borders(cellInsideHorizontal) = cellThin
        .Borders(cellInsideVertical) = cellThin
End With
'导出EXCEL
Me.Grid1.ExportToExcel App.Path & "/test.xls", True, True
MsgBox "导出成功！", vbInformation, "金蝶提示"
'导出后删除报表名称
Grid1.Range(1, 1, 1, 11).Selected
Grid1.Selection.DeleteByRow
'重新设置固定行列(恢复到导出之前)
Grid1.FixedCols = 2
Grid1.FixedRows = 3
'恢复重画
Grid1.AutoRedraw = True
End Sub

网站因奥运关闭了2个月

yifan — 2008-9-23 19:13:59

　　网站因为奥运关闭了两个月，这两个月中间我没有管理我的Blog.m916.com，WWW.m916.com也停止了运行，Google的广告可能为“0”，不知上班的一天怎么有这么多的事情要去完成。有时好累啊。
　　最近在编写一个程序，学校运动会管理系统，也许只要工作每天有点空闲的话，再有２个月，我的学校运动会管理系统2.0就可以完工了。到时候想好好的找一个安静的地方，喝上点点啤酒。

人生

yifan — 2008-7-24 9:02:37

人生

　　人生就如我们面前使用的电脑和敲击的键盘一样，没有目的和目标，我们何需打开电脑？没有敲击，如何为电脑发出指令？没有想好，何需就轻易发出指令？没有退出，何谈重新开始？没有复制和粘贴，何需借鉴人生？确认是一种勇气，放弃有时也不失为一种明智，只是少一些重来，多一份肯定，人生的记忆和经历不能删除，完美设计并准确、和谐地使用键盘每一个键，才能在电脑里画出最美的图画和写出最精彩的文章。

　　人生的关键在于思想、精神和心情，努力让自己的思想明澈，让自己的精神充实而有所支撑，让自己每天都有一个豁达、平和和开朗的心情，这很重要。

　　人生就如上演一场戏，从一个人出生开始，他便悄悄非人力的安排被迫登场了。随着时间和剧情的推进，剧情的场面和情节逐步变得宏大和复杂。世界和社会是一个大舞台，家庭是一个小舞台，我们每个人都在大小舞台上扮演着一个、两个甚至更多个角色。随着时间和剧情的推进，我们扮演的角色便开始不以我们的意愿和意志所左右，它开始要求我们要适应整个大小剧情的变化，包括你的思想、观点和行为，否则我们一旦稍有差错，便与整个大小剧情相冲突，仅仅做为一个剧情角色的我们只有根据剧情的变化去迎合它、配合它和适应它，否则我们便面临被驱逐出剧情和舞台的危险，因此，做为剧情和舞台的每一个角色的我们，只有被动、迎合、配合和适应。我们出场时的角色可以说是固定的、命中注定的，但随着时间、剧情和舞台的变化，我们的角色也是可以变换的，因为我们逐步有了自己的思想、世界观和人生观，我们可以根据剧情和舞台的变化，分析剧情的演化规律，并根据剧情中各色人物的身份和舞台场景的变换努力调整自己的心态、行为和目的，这样一来，我们又是主动的。随着我们演技的不断丰富和提高，迎合和适应剧情、舞台的熟练度不断增强，我们的精神开始变得舒缓，思想和观念随之变得更加明澈和豁达。人生就如一台戏，它需要每一个角色，黑的、白的、红的、绿的、完整的、残缺的等等，而且缺一不可。大自然有大自然的规律，剧情和舞台也有剧情和舞台的规则，学习着、分析着、吸取着、聪明着，变换着、适应着、快乐着，这才是我们演好每一个角色应持的基本态度。

中国教师是万能妖怪

yifan — 2008-7-23 9:44:33

中国教师是万能妖怪

     当老师先得有知识，世间各行各业，惟将读书生活形容为“寒窗”；头悬梁锥刺股那样血淋淋的可怕，也只用于读书那里。可见，学知识不是件容易的事，但老师没有知识当然不行。当老师还得有高尚的品德。不仅要学为人师，还得行为示范。入了这个行当，就有一个牌坊给你立在那里，你得存天理，还得灭人欲。你不能想升官，不能图发财，不能贪生怕死，不能插浑打科，时刻得摆出标兵身材模范脸。

     这也罢了，反正中国的读书人就那副奴才相，尚可夹着尾巴忍受或维持。但中国是一个重教的国家，百年大事，教育为本，对老师的要求以往是有些太宽了。如今，他们不仅要当文状元文探花什么的，还得当武状元，至少是个武秀才等等。要是老师有这个学历，今年汶川地震，谭千秋老师的生命就不会被摧垮，范美忠更不用逃跑。只要他们一使用乾坤大挪移，教室就可以轻轻被稳住，哪里劳烦得着网友们辩论、教育部立法？

    我刚认为文武双全德才兼备就已经是千载难逢的标兵好老师了，时代要求马上又进了一步：要做老师，还得继续去修炼，拿个警校的资格证回来。这不？最近又有活生生的例子：安徽一个被称作杨不管的老师，因为学生斗殴时没有及时制止，致使一方死亡。就怪这杨老师对犯罪学造诣不高，分不清打闹的孩子哪个能惹祸，那个在玩耍：那个杀人的孩子刚有动机，他就应嗖地一声出招，大喊一声：“手下留人！”振麻他的手臂，怎么能让造成这样的悲剧？

    再往下看，光有文有武，有德，有制止犯罪的能力，依然不够老师的任职资格，还得担当义务家长：打死同学的，和砍掉老师指头的安徽籍学生，都是留守青少年。被砍掉几根手指头的崔老师工作的学校，仅有300余名学生，留守孩子就占20%。老师们一致反映：这些孩子难带，管理很麻烦。而据几年前统计，四川阆中等地一些学校，留守少年儿童远超出上述比例，这类孩子学坏和犯罪，大家都认为是缺乏家教和父母之爱。他们互砍或砍老师，犯罪了，老师就得承担责任，比如：杨不管杨老师和该校校长都遭受了处罚，安徽方面针对此事，还专门有文件对老师的行为规范做了教师法、教育法以外的规定。所以，要想学生不犯罪，老师就得自觉承担起义务家长的作用来，把这些孩子收留到自家，等都培养成才后交给他们的父母。

    说实话，我真有点为中小学老师捏把汗：不是替他们推卸做老师的责任，而是感到老师这行当，普通人难以胜任：房子盖成豆腐渣工程，塌了教师的脊梁得扛；父母都出外打工了，孩子留家里没人管教，打架斗殴成性搞出人命，老师又得赔款又被撤职。所以，老师为了保住手指头，防止自己学生互殴致死致残，要么赶紧辞职种庄稼去；要么拜师学武艺进警校练格斗学犯罪心理学，并替别人义务教养孩子。否则，你的职业生涯将会死的很难堪。

    看来，能够当好教师的，不能是人，应当是传说中的妖怪。因为时代变化太快了，天灾人祸层出不穷，以后还不知需要教师干什么呢。上穷碧落下黄泉的本事都得具备才行。

javascript常用的表单验证

yifan — 2008-6-19 11:32:06

javascript常用的表单验证

// 检查是否为数字
function checkIsInteger(str){
        if (str == ""){
         return false;
        }
        if (str.search(/^[0-9]+$/) < 0){
         return false;
        }
        else{
         return true;
        }
}

//检查是否整数
function CheckNum(str){
        if(!str || isNaN(str)){
         return false;
        }
        str=(str * 1).toString();
        if(str.indexOf(".") == -1){
         return false;
        }
        return true;
}

// 检查是否为有效的密码，密码只允许由ascii组成，此函数只在修改或注册密码时使用
function checkValidPasswd(str){
        var reg = /^[x00-x7f]+$/;
        if (! reg.test(str)){
         return false;
        }
        if (str.length < 6 || str.length > 16){
         return false;
        }
        return true;
}

// 检查是否为中文
function isChn(str){
        var reg = /^[u4E00-u9FA5]+$/;
        if(!reg.test(str)){
         return false;
        }
        return true;
}

// 检查是否为有效的真实姓名，只能含有中文或大写的英文字母
function isValidTrueName(strName){
        var str = Trim(strName);   //判断是否为全英文大写或全中文，可以包含空格
        var reg = /^[A-Z u4E00-u9FA5]+$/;
        if(reg.test(str)){
         return false;
        }
        return true;
}

//检查邮箱
function isEmail(str){
        var reg = /^([a-zA-Z0-9_-])+@([a-zA-Z0-9_-])+((\.[a-zA-Z0-9_-]{2,3}){1,2})$/;
        return reg.test(str);
}

//检查电话号码
function isTel(str){
        var reg=/^([0-9]|[\-])+$/g ;
        if(str.length<7 || str.length>18){
         return false;
        }
        else{
          return reg.exec(str);
        }
}

//检查年龄
function isAge(str){
        var mydate=new Date;
        var now=mydate.getFullYear();
        if (str < now-60 || str > now-18){
         return false;
        }
        return true;
}

//是否为合法的日期格式:YYYY-MM-DD
function isDateFormat(txt){
        if(txt==null || txt == ""){return false;}
        else{
         var regex = /[0-9]{1,4}-[0-9]{1,2}-[0-9]{1,2}/;
         if( regex.test(txt) ){
          var noArr = txt.split("-");
          var year = eval(noArr[0]);
          var month = eval(noArr[1]);
          var day = eval(noArr[2]);
          if ( year < 1 || month < 1 || month > 12 || day < 1 || day > 31) {return false;}
          if ((month == 4 || month == 6 || month == 9 || month == 11) && day > 30){return false;}
          if (month == 2){
           if ((year % 4 != 0) && day > 29) { return false;}
           if (year % 4 == 0){
            if(year % 100 == 0 && year % 400 != 0 && day > 29){return false;}
            else if (day > 28){
             return false;
            }
           }
          }
          return false;
         }
         else{
          return true;
         }
        }
}

//检测15位或18位的身份证号
function isIdCardNum(txt){
        if(txt == null || txt == ""){
         return false;
        }
        var idNo = txt.toString();
        var len = idNo.length;
        var reg;
        var noArr;
        var dateStr="";
        if(len != 15 && len != 18){
         return false;
        }
        else if(len == 15){
         reg = /(\d{3})(\d{3})(\d{2})(\d{2})(\d{2})(\d{3})/;
         if(reg.test(idNo)==false){
          return false;
         }
         else{
          noArr = reg.exec(idNo);
          dateStr = "19"+noArr[3]+"-"+noArr[4]+"-"+noArr[5];
          return isDateFormat(dateStr);
         }
        }
        else{
         reg = /(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})(\d{1})([0-9xX]{1})/;
         if(reg.test(idNo)==false){
          return false;
         }
         else{
          noArr = reg.exec(idNo);
          dateStr = noArr[7]+noArr[8]+noArr[9]+noArr[10]+"/"+noArr[11]+noArr[12]+"/"+noArr[13]+noArr[14];
          if(isNaN(new Date(dateStr)) == false){
           var wi = new Array(0,7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2);
           var amt = 0;
           var i;
           var chkNo = new Array("1","0","X","9","8","7","6","5","4","3","2");
           for(i=1;i<18;i++){
            amt += (noArr[i]*wi[i]);
           }
           return (chkNo[amt % 11] == noArr[18].toUpperCase());
          }
          else{
           return false;
          }
         }
        }
}

IE自带的打印功能

yifan — 2008-6-16 9:56:20

IE自带的打印功能

首先在网页中添加：

VIEWASTEXT>

然后就可以依次加入功能按钮了：

将这两块东西放到就不会打印这些按钮了。当然要定义noprint了：

.Noprint { DISPLAY: none }只要把不想打印的东西的css设置成noprint就可以了。

现在就实现了基本的web打印，需要注意的情况如下：

必须将ie的internet选项的安全设置中对于没有标记为安全的ActiveX控件进行...设置成提示或者启用，否则会报错，导致不可用。
如果在vs.net编辑环境下编辑该页面，它经常自动的给object添加多余的参数，有了这些东西，打印就会出错，所以要记得最后保存的时候删除它们。
为了简便并且达到最好的效果，我们可以在一个页面实现编辑和打印，这时候会需要很多的textbox，我们把它的css设置成.edittext
{
overflow-y:visible;
width: 100%;
border-top: none;
border-right: none;
border-bottom: none;
border-left: none;
}就可以实现在打印的时候不显示边框和multiline的textbox不显示滚动条了。

还有一些小经验就是在设置标格宽度的时候，对于A4纸张，横打用920，竖打用640，效果最好。

呵呵，以上都是我的一些经验之谈，可能有些错误或者大家有更好的办法，欢迎批评指正。

也谈WEB打印技术

yifan — 2008-6-16 9:39:53

（1）
function SetPrintSettings() {
　// -- advanced features
　factory.printing.SetMarginMeasure(2) // measure margins in inches
　factory.SetPageRange(false, 1, 3) // need pages from 1 to 3
　factory.printing.printer = "HP DeskJet 870C"
　factory.printing.copies = 2
　factory.printing.collate = true
　factory.printing.paperSize = "A4"
　factory.printing.paperSource = "Manual feed"

　// -- basic features
　factory.printing.header = "This is MeadCo"
　factory.printing.footer = "Advanced Printing by ScriptX"
　factory.printing.portrait = false
　factory.printing.leftMargin = 1.0
　factory.printing.topMargin = 1.0
　factory.printing.rightMargin = 1.0
　factory.printing.bottomMargin = 1.0
}

（2）

　　function printsetup(){
　　// 打印页面设置
　　wb.execwb(8,1);
　　}
　　function printpreview(){
　　// 打印页面预览
　　　　
　　wb.execwb(7,1);
　　　　　
　　　　
　　}

　　function printit()
　　{
　　if (confirm('确定打印吗？')) {
　　wb.execwb(6,6)
　　}
　　}
　　

height=0 id=wb name=wb width=0>

onclick="javascript:printit()">

onclick="javascript:printsetup();">

onclick="javascript:printpreview();">

onclick="javascript:window.close();">

------------------------------------------------
关于这个组件还有其他的用法，列举如下：
WebBrowser.ExecWB(1,1) 打开
Web.ExecWB(2,1) 关闭现在所有的IE窗口，并打开一个新窗口
Web.ExecWB(4,1) 保存网页
Web.ExecWB(6,1) 打印
Web.ExecWB(7,1) 打印预览
Web.ExecWB(8,1) 打印页面设置
Web.ExecWB(10,1) 查看页面属性
Web.ExecWB(15,1) 好像是撤销，有待确认
Web.ExecWB(17,1) 全选
Web.ExecWB(22,1) 刷新
Web.ExecWB(45,1) 关闭窗体无提示

2、分页打印

<%while not rs.eof%>

<%=rs(0)%>

<%rs.movenext%>
<%wend%>

3、ASP页面打印时如何去掉页面底部的路径和顶端的页码编号
（1）ie的文件-〉页面设置-〉讲里面的页眉和页脚里面的东西都去掉，打印就不出来了。
（2）

New Document

dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"
'//设置网页打印的页眉页脚为空
function pagesetup_null()
　　on error resume next
　　Set RegWsh = CreateObject("WScript.Shell")
　　hkey_key="\header"　　
　　RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
　　hkey_key="\footer"
　　RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
end function
'//设置网页打印的页眉页脚为默认值
function pagesetup_default()
　　on error resume next
　　Set RegWsh = CreateObject("WScript.Shell")
　　hkey_key="\header"　　
　　RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b页码，&p/&P"
　　hkey_key="\footer"
　　RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d"
end function

巧用javascript中String的函数replace()

yifan — 2008-6-12 11:04:28

在javascript中，String的函数replace()简直太让人喜爱了。它灵活而强大的字符替换处理能力，让我不禁想向大家介绍它。

　　replace()最简单的算是能力就是简单的字符替换。示例代码如下：

var strM = "javascript is a good script language";
//在此我想将字母a替换成字母A
alert(strM.replace("a","A"));

　　我想大家运行后可以看到结果，它只替换了首字母。但如果加上正则表达式结果就不一样了！呵呵，没错。replace()支持正则表达式，它可以按照正则表达式的规则匹配字符或字符串，然后给予替换！

var strM = "javascript is a good script language";
//在此我想将字母a替换成字母A
alert(strM.replace(/a/,"A"));

　　呵呵，您一定发现了。这样还是只替换了第一个字母a。如果您熟悉正则，那这就难不住您。稍加修改就OK了。

var strM = "javascript is a good script language";
//在此将字母a全部替换成字母A
alert(strM.replace(/a/g,"A"));

　　还可以这样，看看效果！

var strM = "javascript is a good script language";
alert(strM.replace(/(javascript)\s*(is)/g,"$1 $2 fun. it $2"));

　　我这儿举的例子都是很简单的应用，replace()在此点上与您使用正则表达式的能力成正比。您正则表达式越强，呵呵，那您就会越疯狂的爱上它。

　　当然，我这儿推荐replace()的原因并不因为它能与正则表达式合作，而在于它还能与函数进行合作，发挥出强大的功能。

　　先看看简单例子：将所有单词首字母换成大写。

var strM = "javascript is a good script language";
function change(word)
{
　return word.indexOf(0).toUpperCase()+word.substring(1);
}
alert(strM.replace(/\b\w+\b/g,change));

　　由上可知，当正则表达式有"g"标志时，代表将处理整个字符串，即函数change的变换将应用于所有匹配的对象。而该函数有三个或更多参数，具体个数视正则表达式而定。

　　有了函数与正则表达式的配合，replace()处理字符串的功能空前强大起来了！

　　最后还举个例子，将字符串所有单词倒序，用replace()处理是如此简单。

var strM = "javascript is a good script language";
function change(word)
{
　var result = word.match(/(\w)/g);
if ( result )
{
　var str = "";
　 for ( var i=result.length-1; i>=0; i-- )
　{
　　 str += result;
　}
　return str;
}
else
{
　 return "null";
}
}
alert(strM.replace(/\b(\w)+\b/g,change));
　

javascript字符串相减函数

yifan — 2008-6-10 23:18:20

function Str_sub(str1,str2) /* 字符串相减函数*/
{
var strA,strB,strI,strN,strC;
strA=str1;
strB=str2;
strI=strB.length;
strN=strA.indexOf(strB);
strC=strA.substring(0,strN)+strA.substring((strN+strI),(strA.length));
return strC;
}