自定义类(ASP.NET_VB)

最新推荐文章于 2024-09-19 20:58:21 发布

fsvision

最新推荐文章于 2024-09-19 20:58:21 发布

阅读量841

点赞数

分类专栏：技术文章文章标签： asp.net vb integer string function javascript

本文链接：https://blog.csdn.net/fsvision/article/details/352518

版权

技术文章专栏收录该内容

3 篇文章 0 订阅

订阅专栏

Imports System.Diagnostics

Public Class FSVCommon

    '********************************************************************************************
    '功能 :关闭指定进程
    '参数 :ProcessName:进程名
    '返回值:无
    '上传时间:2005/04/18
    '********************************************************************************************
    Public Shared Function KillProcess(ByVal ProcessName As String)
        Dim pProcess() As Process     '进程序列
        Dim myProcess As Process      '进程名

        pProcess = Process.GetProcessesByName(ProcessName)
        '查找所指定的进程
        For Each myProcess In pProcess
            myProcess.Kill()
        Next
    End Function

    '********************************************************************************************
    '功能 :计算指定字符串的长度(Web)
    '参数 :txtString:指定字符串
    '返回值:长度
    '上传时间:2005/04/18
    '********************************************************************************************
    Private Function GetLength(ByVal txtString As String) As Integer
        Dim textLength As Integer                         '字符串的长度
        textLength = txtString.Length

Dim i As Integer '循环变量

        For i = 0 To txtString.Length - 1
            '是否为全角字符的判断
            If Not (0 <= Asc(txtString.Substring(i, 1)) _
                And Asc(txtString.Substring(i, 1)) <= 255) And _
                Not (65377 <= Asc(txtString.Substring(i, 1)) _
                And Asc(txtString.Substring(i, 1)) <= 65439) Then
                textLength = textLength + 1
            End If
        Next

        Return textLength
    End Function

    '********************************************************************************************
    '功能 :保存页面DIV的滚动条(Web)
    '参数 :divIDArray　：　DIV列表
    '       pageObj　   ：　页面对象
    '返回值:无
    '上传时间:2005/04/23
    '注    :与RestoreDivScrollPosition成对出现.使用时页面需要引用JS文本
    '********************************************************************************************
    Public Shared Sub SaveDivScrollPosition(ByVal divIDArray As String, ByVal objPage As Page)
        Dim saveScrollPosition As String
        Dim i As Integer
        Dim divID() As String

divID = divIDArray.Split(",")

For i = 0 To divID.Length - 1
objPage.RegisterHiddenField(divID(i) & "__SCROLLPOS", objPage.Request.Form(divID(i) & "__SCROLLPOS"))

            saveScrollPosition = "<script language='javascript'>" _
                & "function saveScrollPosition() {" _
                & " if (document.all['" & divID(i) & "'] != undefined) {" _
                & "document.forms[0]." & divID(i) & "__SCROLLPOS.value = " _
                & "document.all['" & divID(i) & "'].scrollTop + ',' " _
                & " + document.all['" & divID(i) & "'].scrollLeft;}}" _
                & "if (document.all['" & divID(i) & "'] != undefined) {document.all['" & divID(i) & "'].οnscrοll=saveScrollPosition;}" _
                & "</script>"
            objPage.RegisterStartupScript("saveScroll" & divID(i), saveScrollPosition)
        Next
    End Sub

    '********************************************************************************************
    '功能 :保存页面DIV的滚动条(Web)
    '参数 :divIDArray　：　DIV列表
    '       pageObj　   ：　页面对象
    '返回值:无
    '上传时间:2005/04/23
    '注    :与SaveDivScrollPosition成对出现.使用时页面需要引用JS文本
    '********************************************************************************************
    Public Shared Sub RestoreDivScrollPosition(ByVal divIDArray As String, ByVal objPage As Page)
        Dim restoreScrollPosition As String
        Dim setPositionFunction As String
        Dim i As Integer
        Dim divID() As String

divID = divIDArray.Split(",")

        For i = 0 To divID.Length - 1
            setPositionFunction = setPositionFunction & "SetScrollPosition('" & divID(i) & "');"
        Next
        restoreScrollPosition = "<script language='javascript'>" _
            & setPositionFunction _
            & "</script>"
        objPage.RegisterStartupScript("restoreScroll", restoreScrollPosition)
    End Sub

End Class

-------------------------------------------------- 添附资料---------------------------------------------------------------
1.JS文本
//*******************************************************************************
//   功能：保存页面DIV的滚动条
//   参数　：divID　：　DIV的ID
//   返回值：无
// 上传时间:2005/04/23
//*******************************************************************************
function SetScrollPosition(divID){
    var e;
    var a;
    var obj;
    //对象存在时
    if (document.getElementById(divID)){
  obj = eval('document.forms[0].' + divID + '__SCROLLPOS');
  e=eval('document.forms[0].' + divID + '__SCROLLPOS').value;
  a=e.split(',');

  document.getElementById(divID).scrollTop= a[0];
  document.getElementById(divID).scrollLeft= a[1];
}
}