Excel 内 插入图片的方法。

评分 0.00, 满分 5星 0 票 No comments

同样适用于 GoldPrinter 金质打印通。
excel.Application.ActiveSheet.Shapes.AddPicture(“c:\123.gif “, True, True, 600, 100, 160, 370)
参数说明 文件名含路径,是否连接到文件,是否将文件保存到文件中,图片距离左侧距离,图片距离右侧距离,图片宽,图片高。
引自 http://msdn.microsoft.com/en-us/library/bb209605.aspx

SQL Server 自增字段归零

评分 0.00, 满分 5星 0 票 No comments

假设有一数据库表admin.ROLE,现已在其中多次插入删除数据,使得自增字段当前值混乱。于是可通过下列语句,重新设定自增字段的起始值。但要注意在数据库表中不能存在相同的自增字段值。

DBCC CHECKIDENT (‘admin.ROLE’, RESEED, 0)

VB.net DT distinct 功能

评分 0.00, 满分 5星 0 票 No comments
'*----------------------------------------------------------------
'*
'*         函数名称:   VB.net DT distinct 功能
'*         摘    要:   用法 dt = SelectDistinct("新DT名", 需要过滤的DT, "字段名")
'*
'*----------------------------------------------------------------

#Region "DT 临时表 去重复 DT 内 distinct -停止使用"

    Public Function SelectDistinct(ByVal TableName As String, _
                                ByVal SourceTable As DataTable, _
                                ByVal FieldName As String) As DataTable
        Dim dt As New DataTable(TableName)
        dt.Columns.Add(FieldName, SourceTable.Columns(FieldName).DataType)
        Dim dr As DataRow, LastValue As Object
        For Each dr In SourceTable.Select("", FieldName)
            If LastValue Is Nothing OrElse Not ColumnEqual(LastValue, dr(FieldName)) Then
                LastValue = dr(FieldName)
                dt.Rows.Add(New Object() {LastValue})
            End If
        Next
        'If Not ds Is Nothing Then ds.Tables.Add(dt)
        Return dt
    End Function

    Private Function ColumnEqual(ByVal A As Object, ByVal B As Object) As Boolean
        '
        ' Compares two values to determine if they are equal. Also compares DBNULL.Value.
        '
        ' NOTE: If your DataTable contains object fields, you must extend this
        ' function to handle the fields in a meaningful way if you intend to group on them.
        '
        If A Is DBNull.Value And B Is DBNull.Value Then Return True ' Both are DBNull.Value.
        If A Is DBNull.Value Or B Is DBNull.Value Then Return False ' Only one is DBNull.Value.
        Return A = B                                                ' Value type standard comparison
    End Function

#End Region

[原创]VB.net 写入修改Host

评分 0.00, 满分 5星 0 票 No comments
    '提前调用
    Imports System.IO
    Imports System.ServiceProcess
     '窗体内 放置 一个RichTextBox 命名为 rtbHost
		
    Private Function Write_Host(ByVal strIP as string,ByVal strHost as string) As String
        Dim strReturn As String = "OK"
        Try
            '读数据
            Dim operachina As String
            Dim strFileName As String

            strFileName = Environ$("SystemRoot") & "\System32\drivers\etc\hosts"

            Dim SR As New StreamReader(strFileName)
            rtbHost.Text = SR.ReadToEnd

            SR.Close()

            If rtbHost.Find(strHost) < 0 Then

                operachina = strIP + "   " + strHost + vbCrLf

                '写数据
                rtbHost.AppendText(vbCrLf + operachina)

                Dim SW As New StreamWriter(strFileName)
                SW.Write(rtbHost.Text)
                SW.Close()

                '重启DNS服务
                Dim service As New ServiceController

                service.ServiceName = "Dnscache"

                If service.Status = ServiceControllerStatus.Running Then

                    service.Stop()
                    service.WaitForStatus(ServiceProcess.ServiceControllerStatus.Stopped)
                    service.Start()
                    service.WaitForStatus(ServiceProcess.ServiceControllerStatus.Running)
                ElseIf service.Status = ServiceControllerStatus.Stopped Then
                    service.Start()
                    service.WaitForStatus(ServiceProcess.ServiceControllerStatus.Running)
                End If

            End If

        Catch ex As Exception
            strReturn = ex.Message
            Throw
        End Try
        Return strReturn
    End Function
    
    '使用方法
     If Write_Host("192.168.1.100","test.wuxing.name") <> "OK" Then MsgBox("DNS解析错误,可能无法访问。")
     System.Diagnostics.Process.Start("IEXPLORE.EXE", "http://test.wuxing.name/")

魔兽世界 大灾变 4.1补丁 SHA1 MD5 校验

评分 0.00, 满分 5星 0 票 3 comments

为防木马 发出MD5 SHA1 校验 防止升级文件被篡改。

# MD5 checksums generated by MD5summer (http://www.md5summer.org)
# Generated 2011-06-22 08:50:15

343fbfbe13d535f9e1befb463972d34f *Installer Tome 2.MPQ
4ceb868678c3d398072f80eba7309e7d *WoW-3.3.5.13930-4.1.0.14250-CN-Stage-2
7dee2369f49068ec5b4c13a8b2815695 *WoW-3.3.5.13930-4.1.0.14250-CN-Stage-3
c1ebd1f02b742824017629cd51e50dd8 *WoW-3.3.5.13930-4.1.0.14250-CN-Stage-4
90ef83013e8be89b4227825960219d62 *WoW-3.3.5.13930-4.1.0.14250-CN-Stage-5

# MD5 checksums generated by MD5summer (http://www.md5summer.org)
# Generated 2011-06-22 08:55:56

bc913c0e7c0d9d433c3582a18cb7d082075b04b1 *Installer Tome 2.MPQ
6a7c7cec8636d8a1af40edc1b615600dc900adb4 *WoW-3.3.5.13930-4.1.0.14250-CN-Stage-2
44402ccbe56b1ae4c0ab0526b5318bf335a07864 *WoW-3.3.5.13930-4.1.0.14250-CN-Stage-3
a785f3d0693122eb8aea1e05e2fadd7fac7fd49e *WoW-3.3.5.13930-4.1.0.14250-CN-Stage-4
3435b60dabd16be3c72e104f89f5cd0fdaae3b48 *WoW-3.3.5.13930-4.1.0.14250-CN-Stage-5

[原创]PointFar Spread 使用 RadioButton MultiOption 单选

评分 0.00, 满分 5星 0 票 No comments

想用 PointFar Spread 的 RadioButton MultiOption 进行单选,但是自带的 Spread Designer选择 cell style 为 MultiOption 后没有任何效果,没有checkbox 好用。只好采用代码的方式解决了。

       '1.将以下代码 放入 Form Load 或其他事件中
        With Me.spList4.ActiveSheet
            Dim multiType As New FarPoint.Win.Spread.CellType.MultiOptionCellType
            multiType.Items = New String() {" "}
            For i As Integer = 0 To .RowCount - 1
                    .Cells(i, 0).CellType = multiType
                If i = 0 Then
		'选中第一行,第一列的 0为选中 1为非选
                    .Cells(0, 0).Value = 0
                End If
            Next
        End With
     
   '2.然后加入 以下事件代码 实现单选
    Private Sub spList4_LeaveCell(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.LeaveCellEventArgs) Handles spList4.LeaveCell
        Me.spList4.ActiveSheet.Cells(e.Row, 0).Value = 1
        Me.spList4.ActiveSheet.Cells(e.NewRow, 0).Value = 0
    End Sub

华氏温标

评分 0.00, 满分 5星 0 票 No comments

一直搞不懂华氏度的0度由来 特意学习了一下
迁居荷兰的德国玻璃工华伦海特也在英国居住过。他经过1709—1714年的研究,把冰、水、氯化铵的混合物平衡温度定为0℉,人体温度定为96℉(如以今天我国标准体温37℃,则应为98.6℉,可见他采用的体温不是今天我国的标准体温),其间分为96格,每格为1℉。1724年,他又把水的沸点定为212℉。但遗憾的是,他未能将冰的熔点定为0℉,而是定为32℉。这就是华氏温标,其符号为tF。
–学习资料–
http://pei.cjjh.tc.edu.tw/~pei/
http://iask.sina.com.cn/b/198641.html

路遇大汽车

评分 0.00, 满分 5星 0 票 No comments


前几天看到3辆新车 5.8L V8进了保税区,过了1周左右就在街上看到 白色的哪个了。