VFP 控制 EXCEL2003 之 004、限定工作簿窗口大小

  实现仅包含 9 X 9 个单元格区域的窗口界面。 oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add oRange = .Range("A1:I9") WITH .ActiveWindow .DisplayHeadings = .F. .DisplayHorizontalScrollBar = .F. .DisplayVerticalScrollBar = .F. .DisplayWorkbookTab...
sdta 发布于 2018-09-18 19:29 | 阅读 199 次 | 评论 0 条

VFP 控制 EXCEL2003 之 003、真正的全屏显示数据

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...
sdta 发布于 2018-09-17 18:50 | 阅读 206 次 | 评论 0 条

vscode

微软收购 GitHub ,开源vscode。让我看到了他转到了正确的方向!
qunxingw 发布于 2018-09-17 15:18 | 阅读 175 次 | 评论 0 条

VFP 控制 EXCEL2003 之 002、将应用程序和当前活动窗口最大化

  在 Excel 中使用 Window 对象的 WindowState 属性返回或设置窗口的状态,该属性取值可为 XlWindowState 枚举常量之一,分别对应着窗口的 3 种状态。 XlWindowState 枚举 指定窗口的状态。 名称 值 描述 xlMaximized -4137 最大化 xlMinimized -4140 最小化 xlNormal -4143 正常 oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add .WindowState = x...
sdta 发布于 2018-09-16 07:59 | 阅读 214 次 | 评论 0 条

VFP 控制 EXCEL2003 之 001、修改应用程序和活动窗口的标题文本

oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add .Caption = "XXXX信息管理系统" .ActiveWindow.Caption = "" .Visible = .T. ENDWITH -------------------------------- 作者在 2018-09-16 08:00:31 补充以下内容 -------------------------------- 说明   代码中的 oExcel 代表 Applica...
sdta 发布于 2018-09-15 16:43 | 阅读 213 次 | 评论 0 条

vba_date

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 ...
qunxingw 发布于 2018-09-06 15:28 | 阅读 218 次 | 评论 0 条

boostrap按钮总结

样式 说明 btn 原始样式按钮 btn-default 默认按钮 btn-primary 提交按钮 btn-success ...
路飞vs艾伦 发布于 2018-09-03 09:40 | 阅读 319 次 | 评论 0 条

绘图

<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"); ...
qunxingw 发布于 2018-09-01 22:32 | 阅读 327 次 | 评论 0 条

VB中Get网页源码和DownLoad函数

调用网页源代码使用: 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: ...
Furau 发布于 2018-08-30 20:52 | 阅读 284 次 | 评论 0 条

VB6中任务栏的隐藏

VB6.0需要使用Windows Api函数实现隐藏和显示任务栏。 FindWindow函数检索句柄到顶层窗口的类名和窗口名称匹配指定的字符串。此功能不搜索子窗口。该功能不执行区分大小写的搜索。 IsWindowVisible函数检索指定窗口的可见性状态。 ShowWindow函数设置指定窗口的显示状态。 Option Explicit Private Declare Function FindWindow Lib "use...
Furau 发布于 2018-08-30 20:34 | 阅读 244 次 | 评论 0 条

LNMP之Nginx配置.md

如何搭建直播系统LNMP环境,下面先教如何配置Nginx。 一.前期准备: 需要一台服务器(系统centos 6.0以上或者Ubuntu) 1.关闭防火墙及selinux $service iptables stop $chkconfig iptables off $setenforce 0(其实执行这一步selinux=disabled) $vim /etc/sysconfig/selinux SELINUX=disabled #enforcing改为d...
球2144899870 发布于 2018-08-30 17:17 | 阅读 192 次 | 评论 0 条

LNMP之MySQL配置.md

如何搭建直播系统LNMP环境,下面先教如何配置mysql。 一、前期准备 1.关闭防火墙及selinux service iptables stop chkconfig iptables off setenforce 0 vi /etc/sysconfig/selinux SELINUX=disabled #enforcing改为disabled 2.依赖包安装 yum -y install gcc gcc-c++ autoconf libjpe...
球2144899870 发布于 2018-08-29 16:14 | 阅读 222 次 | 评论 0 条

一个1x1px大小Data/Base64数据的gif透明图片

<!---黑--> <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAUEBAAAACwAAAAAAQABAAACAkQBADs="> <!---灰---> <img src="data:image/gif;base64,R0lGODlhAQABAIAAAMLCwgAAACH5BAAAAAAALAAAAAABAAEAAAICRAEAOw=="> <!---透明---> <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABA...
静夜思 发布于 2018-08-29 11:05 | 阅读 256 次 | 评论 0 条

爬虫

# _*_ coding:utf-8_*_ import requests from bs4 import BeautifulSoup import re def download_page(url): headers = {"User-Agent": "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:61.0) Gecko/20100101 Firefox/61.0"} r = requests.get(url, headers=headers) return r.content def get_...
qunxingw 发布于 2018-08-25 19:24 | 阅读 442 次 | 评论 1 条

网易博客宣布关闭

继百度空间,又一个巨头关闭博客服务。十几年前博客像现在的直播、短视频一样火,巨头们都扎堆上博客平台。然而现在发现赚不到钱了,都陆陆续续的关了,包括雅虎中国的邮箱。这邮箱服务一关闭,影响面可不小,很多人一个email地址用了十几年了,已经等同于网上的身份证号。 bccn博客跟网易博客同样建立于2006年,虽然是个人网站的博客平台,时至今日我仍然会时不时的更新程序、添加功能,对网站程序缝缝补补已经成为我生活的一部分,虽然是个人运营,但不会因为不盈利就关闭。bccn博客平台宣布永不关闭、永不投放广告,网易的小伙伴们都来安家吧。
静夜思 发布于 2018-08-25 11:03 | 阅读 395 次 | 评论 3 条

生成数据库中表间关系名

* 生成数据库中表间关系名 CLEAR CLOSE DATABASES ALL SET SAFETY OFF CREATE TABLE T_Rela (父表 c(20),子表 c(20),父表索标 c(20),子表索标 c(20)) OPEN DATABASE Mdf\Comm_Dbf nRelas=ADBOBJECTS(aRela,"RELATION") =ASORT(aRela) FOR i=1 TO nRelas INSERT INTO T_Rela VALUES (aRela[i,2],aRela[i,1],aRela[i,4],aRela[i,3]...
sdta 发布于 2018-08-22 22:29 | 阅读 187 次 | 评论 0 条

生成数据库中表结构明细

* 生成数据库中表结构明细 CLOSE DATABASES ALL SET SAFETY OFF CREATE TABLE Made_Dbf\T_Name (表名 c(30),字段名 c(20),字段说明 c(100),字段类型 c(1),索引类型 c(10),索引方式 c(4),宽度 n(3),小数位 n(1),表说明 c(100)) OPEN DATABASE Made_Dbf\Comm_Dbf nTables=ADBOBJECTS(aTable,"TABLE") =ASORT(aTable) FOR i=1 TO nTables USE ("Made_D...
sdta 发布于 2018-08-22 22:25 | 阅读 223 次 | 评论 0 条

怎么创建直播平台

现在直播应用非常火爆,它以生动直观的方式向用户传达最真实的现场信息,受到广大用户的普遍欢迎。小编作为一名技术人员,经常开发各种直播平台,(娱乐直播、游戏直播、教育直播、财经直播等)下面我把自己积累的一些经验分享给大家,希望和大家一起交流学习,共同进步。 第一步,移动端视音频采集 首先,对于手机端的视音频采集编码技术,我们有过类似的经验。考虑到手机的处理能力,我们的技术路线是利用手机自身核心处理器的视频编码能力来完成。在Android端调用Mediacodec开发接口来实现,iOS端调用苹果提供的Core Video框架来实现,编码格式上我们采用...
球2144899870 发布于 2018-08-22 16:59 | 阅读 244 次 | 评论 0 条

关于C语言的编程习惯和风格

1. 程序设计风格: 1. 选择标识符名称:名称有意义,易于理解和使用,避免使用过长的名称,不使用与其他标识符相似的名称,下划线连接单词提高可读性 2. 一贯谨慎使用空格,在运算符之前或之后加入空格,加入空白行区分主函数 3. 必要的注释 4 在格式字符串中省略字段宽度以消除首位空格 5. 回显输出与提示 6. 位程序中函数添加注释,为主要算法步骤添加注释 7. 函数接口注释与函数原型相结合,注释函数所需所有信息 ...
陈伦怡 发布于 2018-08-17 11:26 | 阅读 409 次 | 评论 0 条

不要浪费时间写完美的代码

  一些代码比其他代码重要   通过研究代码如何随时间变化,Michael Feathers 确定了一个代码库的冥曲线。每个系统都有代码,通常有很多是一次性写成,永远都不会改变。但是有少量的代码,包括最重要和最有用的代码,会一次又一次地改变、会有几次重构或者从头重写。   当你在一个系统、或者问题领域、体系结构方法中有更多经验时,会更容易了解并预测什么代码将一直改变,哪些代码将永远不会改变:什么代码重要,什么代码不重要。   我们应该尝试编写完美的代码么?   我们知道我们应该写干净的代码,代码应该一致、清晰也要尽可能简单。 ...
你好踏踏 发布于 2018-08-17 10:36 | 阅读 361 次 | 评论 0 条