#include <iostream>
#include <string>
#include <cstdlib>
#include <time.h>
using namespace std;
//武器类
class Weapon{
protected: int Price; //武器价格 int ATK; //武器攻击力 string Name; //武器名称 string Rank; //武器等级
public: Weapon(int price=0,int atk=0,string name="",string rank=""){...
最近要往页面上的updatePannel控件中加入验证码，验证码加入以后（验证码使用<asp:Image/>控件），使用js操作这些控件时（比如点击image控件让img的src发生变化），发现js不起作用。
最后发现是因为回发汇使updatePannel导致对updatePannel内部控件的js失效。
解决方案：
在后台回发的时候加上下面的代码：
ScriptManager.RegisterStartupScript(this.Page, this.GetType(), "", "a()", true)...
Sub ai_insurance()
cr = Range("c65536").End(xlUp).Row
Set crng = Range(Cells(1, 3), Cells(cr, 3))
Dim arr(13) As Integer
For Each c In crng
Select Case Left(c, 2)
Case "1月"
arr(1) = c.Row
Case "2月"
arr(2) = c....
oExcel = CreateObject("Excel.Application")
WITH oExcel
.WorkBooks.Add
WITH .Cells(1,1).Resize(5,5)
.Value = "ABC"
.Borders.LineStyle = 1
.BorderAround(-4119,, 37) && 加外框及颜色，此行代码也可以不要。
ENDWITH
.Visible = .T.
ENDWITH
cd到用户根目录
vi .bashrc
然后加入一行：
HISTCONTROL=ignoreboth
保存对不同文件中的工作表的更改。
语法
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
expression 必需。该表达式返回上述对象中一个对象。
参数
Filename 字符型，可选。
该字符串表示要保存的文件名。一定要包含完整路径。如果不指...
关闭对象。
语法
object.Close(SaveChanges, Filename, RouteWorkbook)
参数
SaveChanges 逻辑型，可选。
如果工作簿没有改变则忽略此参数；
如果工作簿发生了改变并且在另外的窗口中也打开了该工作簿，则仍然忽略此参数；
如果工作簿发生了改变并且没有在另外的窗口中打开，则此参数将指定是否在工作簿中保存所发生的更改。
取值与操作如下表所示：
值 作用
.T. 将改变保存到工作簿。如果该工作簿尚未命名，则使用 FileName 指定的名称。如果省略 FileName 参数，则要求用户输...
打开一个工作簿。返回一个 Workbooks 对象。
语法
object.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
参数
FileName 字符型，必需。要打开的工作簿的文件名。
UpdateLinks 整型，可选。指定文件中链接的更新方式。
如...
新建工作簿。新建的工作簿将成为活动工作簿。返回 Workbook 对象。
语法
object.Add(Template)
该表达式返回一个 Workbooks 对象。
参数
Template 字符型或整型，可选。确定如何创建工作簿。
如果本参数指定为一现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板。
如果本参数为常量，新工作簿将包含指定类型的单张工作表。可为下表 XlWBATemplate 枚举中常量之一。XlWBATemplate 枚举
常量 值 描述
xlWBATChart -410...
新建工作表、图表或宏表。新建的工作表将成为活动工作表。使用 Add 方法可创建一个新的工作表并将它添加到集合。
语法
表达式 .Add( Before, After, Count, Type )
表达式 一个代表 Sheets 对象的变量。
参数
名称 必需/可选 数据类型 说明
Before 可选 对象型 指定工作表的对象，新建的工作表将置于此工作表之前。
After 可选 对象型 指定工作表的对象，新建的工作表将置于此工作表之后。
Count 可选 数值型 要添加的工作表数。默认值为 1。
Type 可选 数值型 指定工作表类型。可以...
实现仅包含 9 X 9 个单元格区域的窗口界面。
oExcel=CreateObject("Excel.Application")
WITH oExcel
.WorkBooks.Add
oRange = .Range("A1:I9")
WITH .ActiveWindow
.DisplayHeadings = .F.
.DisplayHorizontalScrollBar = .F.
.DisplayVerticalScrollBar = .F.
.DisplayWorkbookTab...
oExcel=CreateObject("Excel.Application")
WITH oExcel
.WorkBooks.Add
.DisplayFullScreen = .T.
.CommandBars(1).Enabled = .F.
.CommandBars("Full Screen").Controls(1).Onaction = "RestoreWindow"
WITH .ActiveWindow
.DisplayHeadings = .F.
.DisplayHorizontalScr...
微软收购 GitHub ，开源vscode。让我看到了他转到了正确的方向！
在 Excel 中使用 Window 对象的 WindowState 属性返回或设置窗口的状态，该属性取值可为 XlWindowState 枚举常量之一，分别对应着窗口的 3 种状态。
XlWindowState 枚举
指定窗口的状态。
名称 值 描述
xlMaximized -4137 最大化
xlMinimized -4140 最小化
xlNormal -4143 正常
oExcel=CreateObject("Excel.Application")
WITH oExcel
.WorkBooks.Add
.WindowState = x...
oExcel=CreateObject("Excel.Application")
WITH oExcel
.WorkBooks.Add
.Caption = "XXXX信息管理系统"
.ActiveWindow.Caption = ""
.Visible = .T.
ENDWITH
Sub mydate_deal()
Dim r_max, r_min, r As Integer
r_max = Range("b65500").End(xlUp).Row
r_min = Range("k65500").End(xlUp).Row
y = Year(Now())
dm = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
If ((y Mod 400 = 0) Or (y Mod 4 = 0 And y Mod 100 <> 0)) Then
dm(1) = 29
...
样式
说明
btn
原始样式按钮
btn-default
默认按钮
btn-primary
提交按钮
btn-success
...
<html>
<head>
<meta charset=utf-8" />
<title>canvas</title>
</head>
<body>
<canvas id="myCanvas" width="300" height="300" style="border: 1px
solid #d3d3d3;"> your bolowr is not draw!
</canvas>
<script>
var c=document.getElementById("myCanvas");
var ctx=c.getContext("2d");
...
调用网页源代码使用:
Dim str As String
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.open "get", "https://v1.hitokoto.cn/", True
xmlHTTP1.send
While xmlHTTP1.readyState <> 4
DoEvents
Wend
chuli (xmlHTTP1.responseText)
text = s
Set xmlHTTP1 = Nothing
Donwload可以使用系统API:
...
VB6.0需要使用Windows Api函数实现隐藏和显示任务栏。
FindWindow函数检索句柄到顶层窗口的类名和窗口名称匹配指定的字符串。此功能不搜索子窗口。该功能不执行区分大小写的搜索。
IsWindowVisible函数检索指定窗口的可见性状态。
ShowWindow函数设置指定窗口的显示状态。
Option Explicit
Private Declare Function FindWindow Lib "use...