Public Sub GetResFile(ByVal ResID As Long, ByVal FileName As String)
    Dim bFile() As Byte
    bFile = LoadResData(ResID, "CUSTOM") '将自定义资源中资源读入数组
    If Dir(FileName) = "" Then '只有文件不存在时,才释放 阅读全文……

钢筋表

[size=3]程序需要microsoft framework 2.0 的支持







阅读全文……

        初选截面的时候，可根据柱支承的楼层面积计算由竖向荷载产生的轴力标准值Nk按照下列公式估算柱的截面积Ac，[size=3]然后确定柱的截面边长。
 
一、无地震组合： 阅读全文……

怎不因碌碌无为而羞耻

看了下面这张图，实在是感到羞愧，对不起TLF啊，

阅读全文……

将自定义资源中的文件释放出来
[quote]'*************************************************************************
'**模块名：GetResFile
'**说明：将自定义资源中的文件释放出来 阅读全文……

建筑抗震设计规范  GB 50011-2001

[quote]　13.3.3 砌体墙应采取措施减少对主体结构的不利影响，并应设置拉结筋、水平系梁、圈梁、构造柱等与主体结构可靠拉结：　
阅读全文……

眼泪是爱情的所得税

阅读全文……

[quote]<script language="javascript" type="text/javascript">
function setPng(img, w, h) {
    ua = window.navigator.userAgent.toLowerCase();
    if(!/msie/.test(ua))
        return; 阅读全文……