barriers / 阅读 / 详情

VB中怎么是PICTURE半透明呐?

2023-08-20 12:17:32
共1条回复
snjk

vb写不出24位透明通道来但,可以镂空 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)"把这些写到声明区Dim ExsTyle As Long, crKey As Long, bAlpha As Byte, dwFlags As Long

ExsTyle = GetWindowLong(Me.hwnd, GWL_EXSTYLE)

ExsTyle = ExsTyle Or WS_EX_LAYERED

SetWindowLong Me.hwnd, GWL_EXSTYLE, ExsTyle

dwFlags = 1 "2 所有颜色都透明,忽略 bAlpha 参数 "1 只有 crKey 指定的颜色才透明

Me.BackColor = &H80000 "123设置背景颜色

crKey = Me.BackColor "窗体中那种颜色设为透明

bAlpha = 160 "透明度,范围是 0-255,0的透明度最大,窗体将不可见

"设为 1 会产生这样的效果:窗体实际是可见的,因透明度高好像不可见,看见的下面的其他程序却无法使用。

SetLayeredWindowAttributes Me.hwnd, crKey, bAlpha, dwFlags这些写到form里,你试着写吧,把控件的的背景设为H80000,就会透明,包括窗体背景也会被镂空

相关推荐

be layered with

be layered with被分层双语例句1It is found that the control power of China family firms could be layered. With the exterior social environment, special legal system environment changed, the property right structures have different control power configurations. 通过研究发现,中国家族企业控制权可以进行分层,企业产权结构随着外部社会环境,尤其是法制环境的改变而调整,同时有不同的控制权配置。
2023-08-11 19:13:581

layered fragrance香水怎么没了

停产了layeredfragrance是最近火起来的日本小众香水,其实价格不算特别平价,几毫升的香水六七十,买的是柠檬皮味的,没有啥柠檬味,是很温和的类似沐浴乳。
2023-08-11 19:14:161

如何在layeredwindow下半透明显示WebBrowser控件

据我目前所知道的,flash是支持 Windowless 的,而 WebBrowser 还没见有人用Windowless实现了,都是将WebBrowser放在另一个Popup Window中,然后与主窗口一起移动。你可以将这个Popup Window设置为WS_EX_LAYERED,然后调用SetLayeredWindowAttributes设置一下透明度,应该也能达到你的目的。
2023-08-11 19:14:231

请问有没有用过原声电子的layered sound雷奥德专业音响?性价比如何?

不错性价比高,单元都是自己生产的,品质非常好,我用了他们家双八寸的线阵,13年购买的,后期的售后比较及时挺给力的,不像我那个灯光厂家卖了就不管了,兄弟我支持你!
2023-08-11 19:14:331

软件架构入门-分层架构、事件驱动、微服务架构和云原生架构

软件架构(software architecture)就是软件的基本结构。 合适的架构是软件成功的最重要因素之一。大型软件公司通常有专门的架构师职位(architect),只有资深程序员才可以担任。 O"Reilly 出版过一本免费的小册子《Software Architecture Patterns》(PDF), 介绍了五种最常见的软件架构,是非常好的入门读物。 软件架构就是软件的基本结构。架构的本质是管理复杂性。 如果你觉得架构不重要,可能是你做的事情不够复杂,或者是你没有管理好复杂性。架构模式虽多,经过抽象沉淀之后,也就那么几种: 1. 分层架构(比较传统的单体架构) 2. 事件驱动架构 (一般适用于应用局部场景,用来实现异步解耦) 3. 微核架构(又称插件架构,开发难度较高,一般用来做工具软件开发,如Eclipse,不太适合分布式业务场景) 4. 微服务架构(当前比较流行的服务化架构,解决单体架构面临的问题,适合敏捷开发,快速迭代) 5. 云架构(现在的说法是云原生架构-Cloud Native,基于Docker、Kubernetes、Service Mesh 云原生架构) 在原文的基础上,我按照自己的想法,进行了小幅调整。 分层架构( layered architecture )是最常见的软件架构,也是事实上的标准架构。如果你不知道要用什么架构,那就用它。 这种架构将软件分成若干个水平层,每一层都有清晰的角色和分工,不需要知道其他层的细节。层与层之间通过接口通信。 虽然没有明确约定,软件一定要分成多少层,但是四层的结构最常见。 有的软件在逻辑层(business)和持久层(persistence)之间,加了一个服务层(service),提供不同业务逻辑需要的一些通用接口。 用户的请求将依次通过这四层的处理,不能跳过其中任何一层。 优点 缺点 事件(event)是状态发生变化时,软件发出的通知。 事件驱动架构(event-driven architecture)就是通过事件进行通信的软件架构。它分成四个部分。 事件驱动架构(event-driven architecture)核心组件: 对于简单的项目,事件队列、分发器和事件通道,可以合为一体,整个软件就分成事件代理和事件处理器两部分。 优点 缺点 事件驱动架构在通信产品中应用得也非常广泛,典型的如状态机处理。 事件驱动架构不适于做顶层架构,但适合做局部实现,几乎遍布在通信软件的各个角落。 微核架构(microkernel architecture)又称为"插件架构"(plug-in architecture),指的是软件的内核相对较小,主要功能和业务逻辑都通过插件实现。 内核(core)通常只包含系统运行的最小功能。插件则是互相独立的,插件之间的通信,应该减少到最低,避免出现互相依赖的问题。 优点 缺点 微核架构的设计和开发难度较高,这就注定它在企业产品中用得不多,虽然它的优点还不少。 微服务架构(microservices architecture)是服务导向架构(service-oriented architecture,缩写 SOA)的升级。 每一个服务就是一个独立的部署单元(separately deployed unit)。这些单元都是分布式的,互相解耦,通过远程通信协议(比如REST、SOAP)联系。 微服务架构分成三种实现模式。 现在开源的微服务框架比较多,如常用的有Spring Cloud、Dubbo、ServiceComb等等。 优点 缺点 云架构(cloud architecture,现在的说法是云原生-Cloud Native)主要解决扩展性和并发的问题,是最容易扩展的架构。 它的高扩展性,主要原因是可以基于云上计算资源弹性伸缩。然后,业务处理能力封装成一个个处理单元(prcessing unit)。访问量增加,就新建处理单元(Docker容器);访问量减少,就关闭处理单元(Docker容器)。由于没有中央数据库,所以扩展性的最大瓶颈消失了。由于每个处理单元的数据都独立分库。 这个模式主要分成两部分:处理单元(processing unit)和虚拟中间件(virtualized middleware)。 虚拟中间件又包含四个组件: 随着Docker、Kubernetes等容器化技术的快速发展,上述关于云架构描述有点陈旧了。当前最新的云原生架构,以Docker+Kubernetes为核心,尤其是容器编排Kubernetes 已经成为事实上的行业标准。 云原生架构图的主要特征: 主要目标: 1. 让开发人员聚焦业务逻辑的实现,其他交给容器云平台来完成; 2. 支持业务系统的快速迭代,支撑业务的快速变化和发展; 3. 构建以共享服务体系为核心的业务中台; 下面是我针对某新零售企业设计的云原生架构图,以云和微服务架构为基础构建云原生应用,这里云可以是公有云、私有云、混合云等等。 以上是从不同的视角,对架构进行了分类。实际应用中,各种架构并不是孤立的,可以根据业务环境和业务诉求,对各种架构进行综合和嫁接。每种架构都有其优点和缺点。优点不必多说,缺点则几乎都是通过工具工程(比如自动化发布工具、自动化测试等等)能力的方法来规避,工具工程对软件架构非常重要。
2023-08-11 19:15:361

Release下UpdateLayeredWindow错误,为ERROR_NOT_ENOUGH_MEMORY,哪位大虾知道怎么解决?

bRet= ::UpdateLayeredWindow(m_hWnd,//主窗口的HWND hdcScreen,//主窗口的HDC &ptWinPos,//主窗口的左上角的POINT &sizeWindow,//主窗口的SIZE m_hdcMemory,//含背景图的HDC &ptSrc,//图片从主窗口开始贴的POINT 0,//要透明的COLOR(这里不是COLOR透明,当然不管) &m_Blend,//主窗口透明度 2//标记位,2为允许半透明的窗体,1为COLOR透明,3为不透明 ); if(bRet == false) { //取得GetLastError()函数返回的错误代码的解释信息 LPVOID lpMsgBuf; FormatMessage( FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS, NULL, 0x485, //错误代码 MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language (LPTSTR) &lpMsgBuf, 0, NULL ); AfxMessageBox((LPCTSTR)lpMsgBuf); // Free the buffer. LocalFree( lpMsgBuf ); AfxMessageBox( "UpdateLayeredWindow Error "); } 如上.程序在有些机器上运行函数返回失败.GetLastError提示是“找不到函数相关的库文件”,大概10台机器里有2台是这个错误.而且都是XP的操作系统.使用VC8编译的程序,请问为什么这个函数会有这样的问题?看MSDN上说2000以上的系统就支持的.
2023-08-11 19:16:071

在pb中OpenSheet(W_findbook1,w_main,0,Original!)这句话是什么意思?

OpenSheet的语法格式是:OpenSheet(Sheetrefvar{,windowtype},mdiframe,{,position{,arrangeopen}})其中,Sheetrefvar是要打开的Sheet的名称(注意,不能是MDl类型的窗口);mdiframe是Frame的名称,表示要在这个Frame的客户区打开名称为sheetrefvar的Sheet;这两个参数指明了在哪个Frame中打开哪个Sheet,都是必须的。变量windowtype为string类型,用来表示要打开的窗口的名称,如果指明该参数,则sheetrefvar的类型必须是能够接受window类型的赋值,这时的函数表示要打开windowtype名称的窗口,并将其实例保存在变量sheetrefvar中,可以使用该变量引用这个sheet。position是一个integer类型的参数,表示在菜单条中的位置,新打开的sheet名称作为一个菜单项添加在该位置的下拉菜单中。菜单条最左面的项目位置为1,依次增加,当该参数大于菜单条中的项目数时则将sheet名称添加到右侧倒数第二个菜单的下面。如果打开的sheet数据超过9个,多余的则以级联菜单的形式显示在该菜单的more windows下。参数arrangeopen是指打开sheet后在客户区中的布局方式,是arrangeopen枚举类型的值,有3个可以使用的取值。Cascaded!:将打开的sheet层叠起来,使所有的标题栏都可见。这是缺省方式。Layered!:将打开的sheet完全地覆盖在客户区,后打开的覆盖前面的sheet。Original!:用窗口的原始尺寸打开,打开后并以Cascaded!方式安排布局。实例:在名称为MDI_my的Frame中打开窗口名称为w_edit的窗口opensheet(w_edit,MDI_my)opensheet(w_edit,MDI_my,3,Cascaded!)window lw_wopensheet(lw_w,"w_edit",MDI_my,3,Cascaded!)
2023-08-11 19:16:422

求电子信息工程专业英语翻译大神帮我翻译这段话

At present, about the definition of neural network are not unified, according to the neural network at Hecht, Nielsen"s point of view, the neural network is defined as: "the neural network is made up of a number of very simple processing units to each other in some way connected to form a computer system, the system depends on its status, the dynamic response of the external input information to process information." The sources and characteristics of integrated neural network and a variety of interpretation, it can be expressed as: simple neural network is a designed to mimic the human brain structure and function of information processing system.From the perspective of the theory model of neural network, it can be divided into two main categories; Namely layered feedforward neural network, neural network and Internet feedback for layered feedforward neural network, its characteristic is through appropriate BP algorithm for sample training and learning of the neural network input and output can approximate arbitrary input and output the corresponding nonlinear mapping, that after learning to implementing a map is a kind of adaptive control function. Due to the layered feedforward neural network has "self learning" and "training" function, and can imitate the intelligence of the human brain, thus has strong classification and recognition. Therefore, layered feedforward neural network is widely used in network communication channel equalization, the global network management, information flow prediction as well as other adaptive control, etc. And the characteristics of the feedback neural network is through design to study the associative memory content or optimization answer set to minimum point of the system energy function, the dynamic equilibrium process of neural network can realize the automatic rapid processing optimization problems, so it can be widely used for the field of network communication, including the selection of packet scheduling and optimal routing, exchange of information and control. High speed Internet, nonlinear neural network also has the chaotic behavior, it is a very complex NP problem, can produce unpredictable sequence trajectory, fast password algorithm can be designed to be safe and reliable. It is because of the neural network learning mapping, lenovo optimization function and the characteristics of chaotic behavior can in theory to resolve the broadband network communication technology is facing some problems, which has been widely used in network communication.3 neural network application in network communicationThe following according to the "self learning" function of neural network, lenovo optimization function and chaotic behavior of the three functional features from three aspects: introduces the application of neural network in network communication instance求采纳
2023-08-11 19:17:092

日本好物推荐:经典香水推荐TOP10

第一次选购专柜 香水 ,不知道怎么选香水吗?下面为大家推荐专柜香水品牌 Dior 、 Chloe 和 Jo Malone 各自的经典款;想要找平价香水也可以试试看日本 OHANA MAHAALO 、 FIANCEE 的轻香水或香氛喷雾,不到2000日元的预算,新手买来试喷也没有负担! 香水3迷思:可以搭飞机?喷衣服还是喷皮肤?放太久会变臭? ① 香水可以搭飞机吗? 大家在出国旅行时是不是经常会很疑惑,成份内含有酒精的香水到底能不能带上飞机呢?其实香水在行李分类上属於「 液体化妆品 」,跟其他化妆水和乳液等等的液体一样,只要单瓶容量不超过100毫升,而跟其他液体加起来总容量不超过1公升,就 可以放进随身行李带上飞机 了!如果要放进 托运行李 的话,因为香水属易燃性物品,每一瓶的容量不能超过500毫升,跟其他易燃性物品加起来也不能超过2公升或2公斤,才可以托运哦! ② 香水喷哪里味道最持久? 大家在使用香水时,通常都应该是喷在 手腕内侧 、 脖子 和 耳后 这些地方。因为这些位置体温比较高,喷上香水后可以更 有效散发香味 。但是想要更持久,推荐把香水喷在 衣服上 喔!尤其是喷在冬天的大衣或围巾上,香味甚至可能 维持一整个冬季 呢!不过根据衣服物料不同,喷上香水后有可能会让衣服发黄甚至是留下香水渍,建议不要一下子喷太多,或是喷的时候可以拉远一点距离。 ③ 香水可以用多久? 香水一次只要喷一丁点就够,不常用的话,可能几年也用不完一瓶。香水一般的保存期限通常为3至5年,但如果保存得好、没有变质的话, 用上10年也不是问题 。在保存的时候,要把香水收藏在 阴凉干燥 、没有阳光直射的地方。如果保存不善,尤其是用完后盖子没有盖好的话,香水就会挥发、变色,味道变淡了还好,最怕变得只剩下酒精的味道或臭味,大家想要香水耐用一点,可要记得好好保存啊。 想增加女子力就买这些!10款日本女生都爱用的香水推荐 经典款:浓淡得宜的高级香水5选 如同躺在玫瑰花海当中:Dior 花漾迪奥淡香水 品牌: Christian Dior 名称: Miss Dior花漾迪奥淡香水 原名: ミスディオール ブルーミングブーケ オードトワレ Christian Dior 品牌创办人迪奥先生从小就非常热爱花朵,而这款散发着华丽花香的「 Miss Dior 」香水,正是由他本人在1947年构想设计出来的。有着蝴蝶结经典瓶身设计的「Miss Dior」,其主调为在南法花田种植的有机「 格拉斯玫瑰 」,另外还加入了 佛手柑 、 牡丹花 和 白麝香 ,温柔花香中带着微微的 柑橘 香气。香水闻起来极具春天气息,当喷了以后,仿佛会看见青春甜美的「迪奥小姐」走在你面前呢! 打造英伦田园风格:Jo Malone 蓝风铃香水 品牌: Jo Malone 名称: 蓝风铃香水 原名: ジョーマローンワイルドブルーベル EDC 如果你嫌太浓烈的香水显得俗气,要不要来试试看由 Jo Malone 推出的这款「 蓝风铃香水 」呢?市面上很少见到有蓝风铃气味的香水,这也难怪,因为野生蓝风铃是一种濒临绝种的珍贵植物。品牌在香水前调中加入了 丁香花 来模拟蓝风铃的清新鲜嫩香气,加上中调的 柿子 和基调的 麝香 ,整体带给人非常脱俗的印象。如果想要打造与众不同的英伦田园感觉的话,就用这瓶蓝风铃香水吧! 无人不爱的舒适香气:Chloe 同名淡香精 品牌: Chloe 名称: Chloe 同名淡香精 原名: クロエ オードパルファム 永久不灭的童话少女心:Anna Sui 童话美人鱼淡香水 品牌: Anna Sui 名称: 童话美人鱼淡香水 原名: アナスイ ファンタジアマーメイドオーデトワレ 无论你现在几岁,都一定保存着对美好童话的憧憬吧!这瓶蓝绿色瓶身、使用了「美人鱼」作设计重点的「 童话美人鱼淡香水 」,贯彻了品牌 Anna Sui 一向的风格,非常吸睛且有着极高的辨识度。前调的 血橙 、中调的 茉莉 和 芍药 ,加上基调的 蜂蜜 和 香草 ,光用听的就感到层次非常丰富,营造了一种梦幻到几近「魔幻」的感觉。想学美人鱼一样投身进波光粼粼的大海,就在身上喷喷这款香水吧! 阳光少女必收:Marc Jacobs 雏菊淡香水 品牌: Marc Jacobs 名称: 雏菊淡香水 原名: マークジェイコブス デイジー オードトワレ 「 雏菊淡香水 」以「雏菊」为主体,希望让女生能够彷如奔跑在充满阳光的花园内的少女生,打造出时而活泼时而乖巧,既充满活力也不失优雅的形象。香水瓶上装饰着大小不一的立体雏菊,既 时尚 又带着 Marc Jacobs 品牌一向的高贵典雅。 紫罗兰 、 槴子花 和 葡萄柚 等等散发出俏皮又清新的香气,尤其适合个性比较阳光开朗的女生使用! 入门款:2,000日元买得到的轻香水5选 带保湿功效的香水喷雾:Samourai woman 保湿喷雾香水 品牌: Samourai woman 名称: 保湿喷雾香水 原名: サムライウーマン フレグランスミスト 要是想要让整个人香香的,又不想要买太贵的香水,那大家可以选择市面上一些 香体喷雾 ( Body Spray )哦!这款由日本香水品牌 Samourai woman 推出的「 保湿喷雾香水 」,跟同款的香水气味完全没有分别,同样是有着前调 葡萄柚 、 橘子 ,中调 茉莉花 、 玫瑰 和基调 檀香 、 麝香 的温和舒服香味。它最大优点是可以随时喷在身体或头发上,边保湿边散发惹人爱的好闻香气! 让人怀缅童年的美好时光:OHANA MAHAALO Halia nohea 奇幻梦境淡香水笔 品牌: OHANA MAHAALO 名称: Halia nohea 奇幻梦境淡香水笔 原名: ハリーアノヘア 这款淡香水名字中的「Halia」意思为「回忆」,而「Nohea」则是「可爱」的意思,设计的概念就是要让人联想起那个最纯真无邪的童年。从包装到名字都这么梦幻,难怪 OHANA MAHAALO 推出的产品全部都超受日本年轻女生的喜爱!「 Halia nohea 奇幻梦境淡香水笔 」的香调包含 花香 、 水果香 和 琥珀 香气,闻起来甜美但不会太腻太刺鼻。10毫升装带出门也非常轻便,随时随地补香毫无难度! 男女通杀的肥皂香:FIANCEE 清晨香水 品牌: FIANCEE 名称: 清晨香水 原名: パルファンドトワレ はじまりの朝の香り 脸上有「裸妆」,身上也有「裸香水」!日本品牌 FIANCEE 推出的「 清晨香水 」最初闻起来没有一般香水那种甜腻刺鼻的香气,取而代之的是扑面而来的舒服肥皂香气。以官方的说法来形容,就是一种「早上起床刚洗完脸」的纯净味道。不只女生一定会喜欢,就算是不习惯闻香水气味的男生也一定能接受,推荐大家在约会的时候使用哦! 叠加出专属香味:Layered Fragrance 试管身体香氛喷雾香水 品牌: Layered Fragrance 名称: 试管身体香氛喷雾香水 原名: レイヤードフレグランス ボディスプレー 最近这款「 试管身体香氛喷雾香水 」的 Layered Fragrance 在日本非常受小资女欢迎,原因是它不但小瓶轻便、款式选择多,而且还因为它价格亲民,多买几支也不会心疼。初次入手的话,可以挑选最受欢迎的 香槟酒 、 梨子 和 甜荔枝 等等 果香 。而如同品牌的名字一样,当大家熟悉各种香味以后,可以同时 叠加不同的香气 来使用,营造出更丰富的层次和无限的变化! 最适合夏天使用的清新感:Parfait Amour 头发身体保湿香氛喷雾 品牌: Parfait Amour 名称: 头发身体保湿香氛喷雾 原名: サボンサボン フレグランス ヘアー&ボディミスト 新手们看了以上介绍的香水都还不知道该如何入手吗?那就先从夏天用最舒服的 Parfait Amour 三款「 头发身体保湿香氛喷雾 」开始吧!粉红色为经典 玫瑰花 香、紫色是 高雅麝香 香,还有黄色的 明亮果 香,基本上已经包含女生们喜欢的所有元素。加上产品全部在基调里加入了 肥皂 香气,炎夏中这清爽的香气,分外怡人! 在身上缠绕喜欢的香味,心情会随之变好, 香水 还可以令你女子力和魅力一秒大增。上面的香水产品现在网络上就找得到,但香水的味道会 随时间有层次变化 ,初次入手香水,如果不知道怎样的香气才适合自己,可以先到专柜试喷看看,体验过一整天下来香水有何变化后,感觉对了就点击上门的传送门,把香水买下来吧!
2023-08-11 19:18:001

pb中打开窗口OpenSheet(w_storage , parentwindow, 1, Layered! )其中后几个参数是什么意思?

这个问题一直都没人回答将工作表显示在客户区的左上角 并最大化工作表 使其充满MDI框架窗口的整个客户区
2023-08-11 19:18:271

如何美化VB界面?高手进(不要皮肤控件)

透明窗体并不难 就3个API GetWindowLong SetWindowLong SetLayeredWindowAttributes 可以在API查看器里找到原型 还有几个值 MSDN里或百度上都有关键是设一个透明色这个把红色设为透明(当然也可以换成别的色)如果你的其他控件中的背景颜色或字体颜色为红色 也会变成透明 所以做各种不规则的窗体就是填涂红色了 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongConst WS_EX_LAYERED = &H80000 Const GWL_EXSTYLE = (-20) Const LWA_COLORKEY = &H1 Private Sub Form_Load()Me.BackColor = vbRedDim rtn As Longrtn = GetWindowLong(hwnd, GWL_EXSTYLE) "先取窗体的扩展样式值rtn = rtn Or WS_EX_LAYERED"把扩展的layered样式添加进去SetWindowLong hwnd, GWL_EXSTYLE, rtn"设置窗体扩展样式值SetLayeredWindowAttributes hwnd, vbRed, 0, LWA_COLORKEY"设置Layered属性 将vbred设为透明End Sub
2023-08-11 19:18:541

托福阅读文章出处是哪里呢

想要进行托福考试的同学都知道托福考试成绩对于决定自己能否成功申请上心仪的院校有十分很重要的作用。那么在备考托福考试的过程中,阅读考试的 文章 篇幅长,对于很多同学来说还是一个不小的挑战,以致很多同学其实不是很适应备考阅读考试,那么我今天就带大家了解托福考试的阅读部分的出处,帮助大家更好地了解托福考试的阅读部分。 托福阅读文章出处是哪里呢 一、托福评分标准 托福阅读部分的考试满分30分,对于大家而言24分是一个比较高分的成绩了,那么想要拿到24分的话,托福阅读又能错多少呢?以下有这些分析,托福阅读有三篇文章,总共42道题。除每篇文末尾一题每题2分之外,其他题目都是每题一分。也就是说托福阅读的原始分是45分。原始分与结果成绩有个对应关系。根据分数对应关系,托福阅读如果想要拿到24分,原始分就要38分,想要38分的原始分,有以下几个情况,一是两分题都做对了的话,原始分39分基础题可错6道题,二是两分题都做错的情况下,已经扣6分,原始分得分为38分,在这种情况下托福阅读24分只能错3道大题,基础题一道都不能错。三是比较复杂了,如果其中一道题选错一个选项即扣一分,而其他两道题没错,那么错五个基础题就能拿到托福阅读24分;如果错两个选项扣两分,其他两道题没错,那么错四个基础题也能拿到托福阅读24分了。 二、选材出处 托福考试的阅读文章选材范围及其广泛,涉及有自然科学包括:天文学、地质学、生物学、气象学等;人文科学包括:艺术美学、考古学、语言学、文学等;社会科学包括:人类学、政治学、经济学、 教育 学、等交叉学科。 大家可以多关注一下报纸《纽约时报》、《纽约客》、《卫报》、《泰晤士报》、《每日快报》、《世界新闻报》,同时还有英语的主要期刊《国家地理》、《经济学家》、《旁观者》、《新政治家》、《高等教育纪事报》以及周刊《侦探》、《听众》、《科学美国人》、《发现》、《自然》等。这些都是备考托福考试阅读的好题材出处。 托福阅读推理题的解析 推理题的题干中常出现infer, imply , most likely (least likely) 或probably 等词语。根据OG, 在IBT 阅读的3篇文章中,每篇会有0-2道这类问题,一次考试总共有3-4道推断题。 一、推理题的两大分类:有共性的推理题和无共性的推理题。 这里所谓的有共性推理题就是说题干中有和原文内容相同的关键词(也叫线索)。根据关键词回原文定位,然后进行推理。一般来说,大多数的推理题都属于这类题目。对于无共性的推理题,也就是题干中无线索,一般使用排除法,即根据各个选项的关键词回原文定位,通过排除法得出正确答案。返回原文找信息点,采用排除法是解决这两类题型解决的共同策略。 二、推理题的三个具体的解题思路: 1、一般对比推理:根据两个事情的对比特征,问其中一个事物的特征,只要将与之形成对比的另外一个事情的特征否定掉就可以。 2、时间对比推理:在这种推理中,一般有两个形成对比的时间段,它们所具有的特征一般相反。当题干问一个时间段的特征时,只要将与之相反的时间段的特征否定掉就可以了。 3、集合概念推理 :一个大的集合的两个方面形成对比,两者之间存在着互补性关系,也就是一个的增加意味着另一个的减少。反之,相同。这个比较抽象,我们来看一个例子: 例如:Both the number and the percentage of people in the United States involved in nonagricultural pursuits expanded rapidly during the half century following the civil war, with some of the most dramatic increases occurring in the domains of transportation, manufacturing, and trade and distribution. What can be inferred from the passage about the agricultural sector of the economy after the Civil War? (A) New technological developments had little effect on farmers. (B) The percentage of the total population working in agriculture declined. (C) Many farms destroyed in the war were rebuilt after the war. (D) Farmers achieved new prosperity because of better rural transportation. 文中指出:非农业人口的数量和比例都增加了。由此可知农业人口的数量和比例下降,所以(B)为正确答案。 三、解答这类题目需要注意的信息点: 1.日期和数字。 2.关键词: 表示多少的副词: many , some, much of, several , a few ,most …;情态动词:may, can , could…;表示过去的:used to be , was, were , at one time, previously ;表示不是唯一的: not only ,not exclusively等。 托福阅读句意解释题 这类型题目的题干表达为:Which of the sentences below best expresses the essential information in the highlighted sentence in the passage? Incorrect choices change the meaning in important ways or leave out essential information. 解决这类题目的三种 方法 : 第一种:在保持原句序基本不变的前提下进行重点词汇或者词组的同义替换; 第二种:在句序不变的前提下再进行重点词汇或者词组的同义替换; 第三种:对原句进行 总结 性重复。 下面我们通过一个例子来看这些方法的具体应用: Small marketers should be less concerned with whether U.S. and European consumers are alike and more concerned with monitoring the variety of factors that account for potential similarities and differences. Attention to the dynamic nature of those factors will produce opportunities for the alert marketer. Which of the sentences below best expresses the essential information in the highlighted sentence in the passage? Incorrect choices change the meaning in important ways or leave out essential information. A marketer who is not so smart should be more concerned with the difference of eating habits between U.S. and European consumers and less concerned with monitoring the variety of factors that account for potential similarities and differences. It is not important whether U.S. and European consumers have a similar eating habit. I t is the potential similarities and differences that people should be more concerned with. Marketers should focus on the factors that account for difference rather than the difference themselves. Monitoring the variety of foods could explain the potential similarities and differences. 解题: 首先,我们来分析这个 句子 ,整个主句的主语为Small marketers,谓语为be concerned with,宾语为factors,这个分析完成之后,我们采用同意替换的方法,替换其中的重点词组-谓语be concerned with,其 同义词 为focus on。这样替换完之后把两个句子的意思进行比较,得出正确答案C。这道题目采用了第一种方法。 托福阅读如何应对文章难句 NO8-1,我们从“词--句--篇章”来谈谈这篇文章。 原文: Geologists have long known that the Earth"s mantle is heterogeneous, but its spatial arrangement remains unresolved—is the mantle essentially layered or irregularly heterogeneous? The best evidence for the layered-mantle thesis is the well-established fact that volcanic rocks found on oceanic islands, islands believed to result from mantle plumes arising from the lower mantle,are composed of material fundamentally different from that of the midocean ridge system, whose source, most geologists contend, is the upper mantle.Some geologists, however, on the basis of observations concerning mantle xenoliths, argue that the mantle is not layered, but that heterogeneity is created by fluids rich in "incompatible elements" (elements tending toward liquid rather than solid state) percolating upward and transforming portions of the upper mantle irregularly, according to the vagaries of the fluids" pathways. We believe, perhaps unimaginatively, that this debate can be resolved through further study, and that the underexplored midocean ridge system is the key. 一、难词 spatial: a.1.空间的,太空的;2.存在(或者发生)于宇宙空间的 plume: n.1.羽状物2.柱,地柱 xenolith:俘虏岩 percolate:v.1.渗透2.扩散到,弥漫于 portions: n.一部分 二、难句 1.the best evidence for the layered-mantle thesis is the well-established fact that volcanic rocks found on oceanic islands,islands believed to result from mantle plumes arising from the lower mantle,are composed of material fundamentally different from that of the mid-ocean ridge system, whose source,most geologists contend,is the upper mantle. 对于地幔分层论点来说,最好的证据乃这样一个确认的事实,即在那些海洋岛屿——这些岛屿据信是源于由下层地幔升上来的地幔柱状溶岩流(mantle plume)——上发现的火山岩石,是由与海洋中部山脊系统的物质根本不同的物质构成的,而这一海洋中部山脊系统的成因,大多数地质学家论辩道,为上部地幔。 难句类型:复杂修饰、插入语 解释:本句前面的主干并不算难,即the evidence is the fact that,难就难在fact之后说明fact 的同位语从句。此从句中既有大段插入语,又有从句,较为难读。同位语从句的主语是volcanic rocks,主语后面的found on oceanic islands是分词修饰volcanic rocks的;islands后面又有一个说明islands的同位语islands believed to result from mantle plumes arising from the lower mantle,此同位语实际起到一个分隔主谓的同位语的作用。其后是谓语动词are composed/of fundamentally different from that of the midocean ridge system, whose source, most geologists contend, is the upper mantle。 句中有一些专有词汇。如果抛开文章不说,单看这一个句子,则句首的layered mantle thesis就难以理解。但是如果读者能够读懂句子的大致意思,看到layered mantle thesisr最有力证据就是其材料fundamentally different from… the upper mantle,这应该可以推测出,既然不同于上层地幔,则这个理论一定是在说地幔有不同的层面。 2. some geologists,however,on the basis of observations concerning mantle xenoliths, argue that the mantle is not layered,but that heterogeneity is created by fluids rich in "incompatible elements" (elements tending toward liquid rather than solid state)percolating upward and transforming portions of the upper mantle irregularly,according to the vagaries of the fluids" pathways. (4+) 但是,某些地质学家,以对地幔捕虏岩体(xenolith)所作的观察为依据,指出地幔并非是分层排列的,相反,地幔的异质性是由那些富含“不相容成分”的流质构成的,这些成分趋向于流体而非固体的状态,自下而上渗透扩散,并依照这些流质流向的任意性,不规则地将上部地幔的某些部分予以改变。 难句类型:复杂修饰、插入语 解释:本句的主句中有一个长插入语however,on the basis of observations concerning mantle xenoliths,割裂了主谓,但句子的主要难度还是在that引导的宾语从句中,从句中有由but 所连接的两个句子,一起延续到句末。首选是rich in incompatible elements修饰fluids;后面又有一个同位语和一个分词结构,都是修饰incompatible elements的,最后还有一个状语来修饰那个分词结构,层层修饰,比较复杂。 三、文章结构 Ts是文章的第一句,因此这一篇短文章是结论解释型。文章开始说出了地幔是heterogeneous,然后又指出了他的spatial arrangement remains unresolved,然后提出了两种理论,一是layyered-mantle thesis,另外一个是irregularly heterogeneous.然后分别对这两种理论进行describe.最后作者指出,We believe,perhaps unimaginatively, that this debate can be resolved through further study, and that the underexplored midocean ridge system is the key.
2023-08-11 19:19:151

VB窗体透明问题!

SetLayeredWindowAttributesMe.hwnd,0,150,LWA_ALPHA"150为透明度(0-255)不能让控件单独透明。只能随你的窗体半透明SetLayeredWindowAttributesMe.hwnd,&Hff00ff,0,&H1这样会让是&HFF00FF(VB常数vbMagenta的值)一样颜色,都透明你可以试试以下代码PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongPrivateDeclareFunctionSetLayeredWindowAttributesLib"user32"(ByValhwndAsLong,ByValcrKeyAsLong,ByValbAlphaAsByte,ByValdwFlagsAsLong)AsLongConstWS_EX_LAYERED=&H80000ConstGWL_EXSTYLE=(-20)ConstLWA_ALPHA=&H2"ConstLWA_COLORKEY=&H1PrivateSubForm_Load()me.backcolor=&Hff00ffSetWindowLongMe.hwnd,GWL_EXSTYLE,WS_EX_LAYEREDSetLayeredWindowAttributesMe.hwnd,&HFF00FF,0,&H1EndSub
2023-08-11 19:20:063

如何让窗口半透明,总在最前,但不接收输入?

窗口半透明,要在XP及以上才方便点,那几个API函数记不得了,但是倒处都可以查到,实在查不到就HI我吧要达到第二个要求,那就让窗口的属性为Disable和TopWnd吧
2023-08-11 19:20:243

大陆岩石圈张裂、分离过程及其变形特征

大陆岩石圈在张性应力场作用下,是怎样变形的呢?到目前为止,科学家已提出三种模式:首先是McKenzie(1978,1980)提出纯剪切模式(pure-shear model),他认为,岩石圈在受到张性应力作用时,可将岩石圈整体看作一塑性体,发生纯剪切拉张而厚度变薄。在此基础上,他利用求解一维热传导方程来计算大陆边缘的热沉降、温度和热流的演化历史。第二种模式是由Wernicke(1981,1985)提出的。他对美国西部地区进行野外观测,发现了许多低角度断层,他认为这些断层可切穿整个岩石圈,当岩石圈受到张性应力场作用时,它可沿这些低角度断层被拉开。由此他提出了岩石圈的简单剪切的变形模式(simple-shear model)。第三种模式是Lister等(1986)提出的。根据美国西部盆地和山脉省岩石圈中存在拆离断裂、变质核和变质杂岩,他们认为岩石圈被拉开时,会出现上板块边缘和下板块边缘,由此他们提出了岩石圈的拆离模式(delamination model)。这三种模式是目前关于张性应力场作用时岩石圈变形的最流行之模式。下面,我们以南海北部陆缘为例,研究大陆岩石圈在张性应力场作用下是怎样变形的。南海北部大陆边缘的上地壳和中地壳中存在许多张性正断层,断层的倾角由上向下角度变小,成为犁式正断层;下地壳中基本无断层,但存在许多近水平的断续的地震反射界面;岩石圈上地幔存在断面反射波,说明这里存在断裂。由此作者认为,在张性应力场作用下,岩石圈的物理性质是分层的:上地壳和中地壳呈脆性,下地壳为塑性,而岩石圈上地幔仍表现为脆性。因此,当张性应力场作用于岩石圈时,上地壳和中地壳发生脆性断裂,产生许多断块,断块沿断面转动,在地表产生一系列地堑和半地堑,并使上地壳和中地壳的厚度减薄;下地壳则发生塑性蠕动,产生许多蠕动面,这些面上可产生地震反射波,即我们所观测的近水平反射波,同时,下地壳由于塑性蠕动而厚度减薄;岩石圈上地幔也可产生断层,其变形方式与上、中地壳基本相同。由此作者提出了岩石圈的分层剪切变形模式(Layered-shear model,姚伯初,1998)。南海南北大陆边缘在新生代为被动大陆边缘,在新生代南海海底扩张之前,南沙地块和礼乐-东北巴拉望地块与南海北部是连在一起的,只是在海底扩张期间南部边缘曾不断地向南运动,直到17Ma前才到达今日的位置(Taylor等,1980,1983)。因此,南海南北边缘是一对共轭边缘。这里我们将通过研究这对共轭边缘的地壳结构和沉积剖面特征,推测大陆岩石圈在张裂和分离时的变形特征。7.2.1 南海北部陆缘的张裂特征南海西北部的红河-莺歌海-南海西缘-万安-卢帕尔断裂在新生代是一条重要的断裂,是华南地块和印支地块的分界线。在中生代末至新生代早期,它是一条右旋走滑断裂,沿此断裂,华南地块向东南方向拉伸运动;在42~35Ma期间,南沙地块沿它向南运移,直到35Ma时到达与婆罗洲碰撞的位置;约25Ma时,由于印支地块向南挤出,此断裂成为左旋走滑断裂;到5Ma时,它停止了走滑运动。西沙海槽断裂是一条深切地壳的断裂,可能是印支-西沙地块与华南地块在中生代早期的缝合线(姚伯初等,1994)。在32~17Ma期间,南海发生第二次海底扩张,礼乐-东北巴拉望地块沿中南-礼乐断裂向南运动,直到与加里曼丹-苏禄地块碰撞的位置(姚伯初,1995)。Tongkul(1990)认为,这条断裂向南可能延伸至加里曼丹的沙巴地区,成为东北沙巴地区东西向构造与西南沙巴地区北东向构造的分界线。南海海盆呈北东向菱形,中南-礼乐断裂将其分为西北海盆、西南海盆和中央海盆。西北海盆的构造走向呈北东向,其中部的双峰海山之走向为北东向(薛万俊,1987;鲍才旺,1987)。由于此海盆太窄,至今未能对比出磁异常条带。但根据其区域构造走向和沉积特征,推测它与西南海盆是同时形成的(姚伯初,1999)。西南海盆的区域构造走向为北东向,其中部的长龙海山亦呈北东向。Taylor等(1983)虽然没有在这里对比出磁异常条带,但认为西南海盆是与南海中央海盆同时形成的。陈圣源(1987)曾在此海盆中对比出M7-M11号磁异常条带(126~119Ma);因此,何廉声(1988)认为南海第一次海底扩张发生在白垩纪。Briais(1993)通过对比磁异常,推测南海西南海盆是在25~17Ma期间通过海底扩张形成的。姚伯初等(1994)利用高通滤波法,滤去磁异常讯号中的低频部分,然后对比出13-18号磁异常条带(42~35Ma)。在中央海盆,Taylor等(1980,1983)对比出5d-11号磁异常跳带,由此他们认为中央海盆是在32~17Ma前由南北向海底扩张而形成的。Briais(1993)和姚伯初等(1994)的工作结果也和Taylor的结果一致。由上述讨论可见,南海地区在新生代发生过两次海底扩张:第一次发生在晚始新世至早渐新世(42~35Ma),扩张方向为北西—南东向;第二次扩张发生在晚渐新世至早中新世(32~17Ma),扩张方向为南北向。多方向和多次海底扩张,可能是边缘海海底扩张的特征。图7.1 南海北部东沙群岛东南陆坡处的地震反射剖面(速度单位为km/s)南海北部在中生代末至新生代早期发生过一次张性构造运动,被命名为神狐运动(何廉声,1987;姚伯初,1993)。神狐运动是早白垩世北东向燕山运动造山带的岩石圈在晚白垩世至早古新世时期发生岩石圈拆离而产生的构造运动,这次运动使古南海北部边缘发生区域抬升并产生一系列北东向正断裂和由断裂运动而产生的地堑半地堑。在晚始新世时,这里又发生了一次张性构造运动,被称做南海运动(姚伯初,1993)。南海运动是印度板块在42Ma前和欧亚板块发生碰撞而使亚洲大陆上地幔产生向东南方向运动所引起的,它进一步对南海北部陆缘岩石圈又一次拉张,并引起南海新生代第一次海底扩张。从北部陆缘东沙群岛东南处的地震反射剖面可见(图7.1),海底反射出现在3.2~3.5s(双程走时)处,新生代沉积地层沉积在两个半地堑中,基底反射出现在4.5~6.5s处。上部沉积的速度为1.6~3.6km/s,是一套近水平地层;下部地层沉积在两个半地堑中,其速度为4.0km/s,是一套充填沉积。基底反射为多相位低频反射,其地震层速度为5.0km/s,反映它可能是中生代沉积顶部的反射。由南部的半地堑看出,半地堑是由基底断裂形成的。基底断裂向北倾斜,下延至6.6km/s地壳层和7.0km/s地壳层之间的界面上,然后沿该界面延伸。此断裂并没有切断7.0km/s地壳层,说明该断裂到下部成为剪切带,而不再是断裂。此断裂应是一条犁式断裂。莫霍反射出现在9.2s处,为一多相位反射。北部半地堑也是由基底断裂形成的,基底断裂也是一条犁式断裂,只是由于多次波的干扰而不易看清。由上述分析可见,南海北部陆缘的基底断裂大多为犁式断层,它们切断上地壳,至中地壳与下地壳的界面,但不能切断整个地壳。这类断裂在基底面上形成许多半地堑,它们后来发展成为新生代沉积盆地。7.2.2 陆缘岩石圈的变形特征图7.2 南海北部东沙群岛隆起处的合成排列剖面(SAP,速度单位为km/s)在南海北部东沙群岛东北部观测的地震反射剖面上(图7.2),基底反射波在2.2~2.5s(双程走时)处,为一低频弯曲反射。新生代沉积的地震纵波速度在1.7~4.7km/s之间,厚2.6km左右。上下地壳之间的界面出现在6s附近,上地壳中只存在倾斜反射,应是断面反射波;上地壳的地震层速度在5.3~6.2km/s之间,厚4.0km。而下地壳中则出现许多近水平反射,是一系列近水平波阻抗界面的反射;下地壳的速度在6.5~7.2km/s之间,厚22km。莫霍反射出现在10.5s处,为一低频(约8Hz)反射波组,由六个反射波组成。反映莫霍界面是由多层物质组成的,应是一个层,而不是一个面。在岩石圈上地幔中,既有近水平的反射,也存在倾斜的断面反射。图7.3是中国大陆有记录以来震级等于或大于6级的地震之震源深度分布图。由图可见,绝大多数地震发生在10~25km深度范围内。而中国大陆地壳的厚度从东部30km到西部青藏地区76km(朱介寿,1986)。因此,中国大陆上地壳下部和中地壳可积累应变能,当应变能超过岩石的极限强度时,岩石便破裂,释放应变能,发生地震。而下地壳不能积累或很少积累应变能,因此不能或很少发生地震。由此我们推测,上地壳和中地壳的物理性质呈脆性,而下地壳则表现为塑性。这和上面在南海北部陆缘观测的地震反射剖面之特征所反映的岩石圈地壳物理性质是一致的。图7.3 中国大陆的地震震源深度分布图德国科学家Kusznir等(1988)计算了地壳与上地幔的黏滞度随深度变化之函数,他们发现,上地壳和中地壳的黏滞度较大,而下地壳的黏滞度则很小。他们称下地壳为低黏滞度窗(low viscosity channel)。下地壳的黏滞度小,表示它的塑性强,流动性大;而上地壳和中地壳的黏滞度大,表明它们的塑性小,脆性强。他们的计算结果和我们通过对天然地震之观测和人工反射地震剖面的分析结果是一致的。另外,根据MONA LISA Working Group在北海所做深地震反射剖面的结果,在岩石圈上地幔中仅存在陡倾角断裂(1997)。由此作者曾提出过大陆岩石圈的变形模式为:在张性应力场的作用下,上地壳和中地壳呈脆性变形,发生断裂;下地壳则表现为塑性,发生塑性流动;而岩石圈上地幔仍表现为脆性,可发生断裂。这就是作者提出的岩石圈之分层变形模式(layered-shear model)。7.2.3 南海南北共轭边缘地壳剖面的对比分析南海南北边缘是一对共轭边缘,在南海新生代海底扩张之前,它们是连在一起的。从南海北部珠江口外下陆坡—深海平原处的地震反射剖面分析(图7.4),海底反射波在4.4s(双程走时)附近,陆坡基底在5.0~5.8s之间;进入深海平原,洋壳基底(层2顶面)下落至5.8~7.3s之间。陆坡基底上存在两条南倾的断裂,南边一条为盆-坡边界。基底断裂影响到海底,反映它们的构造活动影响到近代。由洋壳年代推测,Tg—T4之间的沉积应为渐新世沉积,而T4至海底之间的沉积是中新世至第四纪沉积。深海平原上的沉积厚2.4s,而陆坡上的沉积较薄,不足1s。反映陆坡早期的沉积受底层流或浊流冲刷,大部分没有保留下来,直到上新世后,大部分沉积才能保存。在南部礼乐滩北部边缘的地震反射剖面上显示(图7.5),在礼乐滩上,水深约0.4s(300m),新生代沉积厚1.0~3.0s(曾维军,1991)。由礼乐滩向北,海底出现第一条断裂,视倾角约80°,海底视断距1.5s(1125m);第二条断裂的视断距1.0s(750m)。再往北经过四条断裂,到盆-坡边界处存在另一条断裂,这条断裂海底水深4.5s(3375m),它应是陆坡和海盆的边界。从盆-坡边界到礼乐滩,陆坡上的沉积为杂乱沉积,反映它们是由于断裂活动而发生滑坡,最后堆积而成的。图7.4 南海北部珠江口外下陆坡海盆与陆坡交界处的地震反射剖面(速度单位为km/s)图7.5 南沙群岛礼乐滩北部陆坡和深海平原处的地震反射剖面根据南海南北共轭边缘的地壳对比剖面分析(图7.6),北部陆坡下部的水深3000~3500m;新生代沉积厚1000~1500m。上地壳厚2.0~2.5km,层速度为6.0km/s。大陆地壳中上地壳上部之速度一般在5.4~5.8km/s之间,很显然,这里缺失这一地壳层。下地壳包含两个地壳层,其速度分别为6.5km/s和6.9km/s,总厚度为10.5km。莫霍速度为8.3km/s,是正常地幔顶部的速度。向南越过盆-坡边界,进入深海平原,地壳为洋壳结构。由声呐浮标SB34探测结果看,这里层1(沉积层)厚2.0km,地震速度在1.8~3.4km/s之间;层2的速度为5.5km/s,厚1.6km;层3含两个地壳层,速度分别是6.5km/s和7.3km/s,厚4km。莫霍的地震速度为8.4km/s。在南部边缘,如上述,礼乐滩上水深300m,由其向北,海底以陡倾角断裂向北下落,经五条断裂后,海底水深下降到4000m,然后经盆-坡边界进入深海平原,即洋盆。Schluter等(1996)在这里进行过地球物理探测,证明这里深海平原是洋壳。深海平原磁测资料(磁异常条带)和海底地形地貌资料表明,这里南北剖面上的盆-坡边界点在海底扩张之前是连在一起的,在大陆岩石圈发生分离和随后的海底扩张之后,它们才分开,位于今日的位置。图7.6 南海南北边缘地壳对比剖面(速度单位为km/s)7.2.4 大陆岩石圈在破裂分离时的变形特征大陆岩石圈在发生张裂之后,经过一段构造发展时期,可能要发生破裂分离,及随后的海底扩张。那么,大陆岩石圈在破裂分离时是如何变形的呢?我们希望通过对南海南北共轭边缘的研究,来讨论这个问题。上面已经分析过南海南北共轭边缘的剖面结构特征,由此我们可推测它们在破裂分离时的变形情景。在神狐运动(晚白垩世—早古新世)中,古南海北部边缘的大陆岩石圈受到北西—南东向拉伸,上、中地壳发生许多犁式正断层,它们向下延伸到中地壳与下地壳边界处,沿水平方向伸展,变为剪切带;在边缘的北部,断层的下降盘沿断面向南运动,形成被动大陆边缘的枢纽带;在边缘的南部,断层的下降盘沿断面向北滑动;这些断层的活动,在地表则形成一系列半地堑。下地壳由于物理性质具塑性,受拉伸后则发生塑性变形,被整体拉长而厚度减薄。岩石圈上地幔由于具脆性,受拉伸后可产生陡倾角断裂,这些断裂可能沿燕山运动古缝合线延伸。南海运动(晚始新世至早渐新世)进一步拉伸岩石圈;到晚渐新世,上、中地壳沿犁式断裂拉开,下板片边缘留在北部,而上板片边缘(礼乐-东北巴拉望地块)则向南移动。下地壳被塑性拉断,而岩石圈上地幔则沿陡倾断裂被拉开。此时从上地幔来的熔融物质(岩浆)进入地表,开始海底扩张,在南北地块之间形成新洋壳;同时,熔融物质也占据南移上板块边缘的上地壳板片之下的空间,形成新的下地壳。在17Ma前,南移的礼乐-东北巴拉望地块与加里曼丹-苏禄地块发生碰撞,海底扩张停止了。从此之后,南海新洋壳开始发生热沉降,南部礼乐-东北巴拉望地块上地壳上部板片之下的熔融物质也冷却沉降,而其南部地区的地壳之热沉降很小。因此,礼乐滩北部边缘上地壳板片不断向北下落,在当时地表(基底面)形成一系列向北的陡倾角正断层(图7.7),最后形成了今日我们在地震剖面上所见之构造景观。我们这里所提出的大陆岩石圈破裂分离时的变形模式是分层的,即岩石圈分为上中地壳、下地壳和岩石圈上地幔三层,由于它们的物理性质不同,所以变形方式也不同,这就是我们称之为分层破裂分离模式(Layered-breakup model)。图7.7 南海海底扩张时大陆岩石圈的变形特征7.2.5 讨论这里我们通过研究南海南北共轭边缘的地壳剖面结构,探讨大陆岩石圈在张裂和分离时的变形特征。我们的研究发现,大陆岩石圈的物理性质是分层的,因此其变形方式也是分层的:上、中地壳呈脆性,在受张性应力场作用时,可以发生犁式断裂,形成一系列断块,断块沿断面转动,使地壳层厚度减薄,并在地表形成一系列半地堑;下地壳表现为塑性,受张性应力场作用时被塑性拉长,从而使地壳厚度减薄;岩石圈上地幔仍表现为脆性,受张性应力场作用后,可发生断裂,地块沿断裂错动,使其厚度减薄。当张性应力场进一步作用时,上、中地壳沿犁式断裂被拉开,形成上、下板块边缘并被分开;下地壳则被塑性拉断;而岩石圈上地幔将沿断裂被拉开,从而整个岩石圈发生破裂分离。这就是我们关于岩石圈变形方式和破裂分离时的分层破裂分离模式。此模式的特点是认为大陆岩石圈的物理性质是分层的,因此,其变形和破裂分离也是分层进行的,而不是以前的模式那样认为岩石圈是一整体板片,因此其变形和破裂分离也按整个板片进行的。板块运动的主要特征表现在边缘处,本文讨论离散边缘形成过程中岩石圈之变形特征,是板块运动研究的重要课题,至今仍未得到理想的解决。大陆岩石圈破裂分离后形成离散边缘,离散边缘在大洋中为洋中脊,即海底扩张脊,在大陆边缘则是被动大陆边缘,即大西洋型大陆边缘。大西洋两岸边缘是不对称的,本文提出的模式是根据南海南北共轭边缘之构造特征而提出的,它所产生之边缘是不对称的,与大西洋两岸的构造景观是相符的。因此,我们认为,我们的分层破裂分离模式符合对大西洋式被动大陆边缘之岩石圈用地球物理方法观测的结果,并与大西洋两岸今日之构造景观是一致的。因此我们的模式是较符合实际的。
2023-08-11 19:20:461

vb这种窗体的代码,如图Q+ 的。

图剪切下来然后自己画上去补就完了吗
2023-08-11 19:21:265

VB中SetLayeredWindowAttributes实现窗体透明的问题。

你可以这样尝试使用两个窗体,比如:form1显示你需要显示的内容新建个form2,然后将form2的窗体设置成基本看不出来的半透明,用SetLayeredWindowAttributes form2.hwnd, 0, 1, 2是可以响应鼠标的并且使用setwindowpos固定在form1的后面然后hook下form1的窗体处理函数,让form1动的时候form2跟着也动就行了然后处理黑色透明部分的代码写到form2里边就行了
2023-08-11 19:21:401

易语言中如何实现编辑框透明,并且不穿透窗体!

是指就可以显示字,但是没有白边吗?那可以用透明标签不然 我不清楚你的意思
2023-08-11 19:21:482

vb6.0程序的一些问题

重新安装到原来的目录即可,安装程序会覆盖原有文件,至于删除嘛,用控制面板里的添加删除程序就可以了,一定不放心就先覆盖安装VB,等于是修复原有系统,再删除,再安装一次就好了.VB的主要程序就是放在安装目录下的,其它安装的都是一些DLLOCX等部件,一般放在系统目录下的,无需处理的.
2023-08-11 19:21:582

VB 给我图形窗体的代码 要窗体一载入就是图形窗体那种

"窗体的borderstyle=0"窗体的picture=你需要用到的图片"然后代码如下"注:图片背景色默认为白色,可自行修改Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const GWL_EXSTYLE = (-20)Private Const WS_EX_TRANSPARENT = &H20Private Const WS_EX_LAYERED = &H80000Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const LWA_COLORKEY = &H1Dim Nx As Single, Ny As SinglePrivate Sub Form_Load() SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED "Or WS_EX_TRANSPARENT " SetLayeredWindowAttributes Me.hwnd, RGB(255, 255, 255), 0, LWA_COLORKEY"去掉图片的颜色End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Nx = X: Ny = YEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Nx = 0 Or Button <> 1 Then Exit Sub Me.Move Me.Left - Nx + X, Me.Top - Ny + YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Nx = 0: Ny = 0End Sub
2023-08-11 19:22:231

为什么我家电脑每次联网都要修复LSP?

杀毒
2023-08-11 19:22:335

求一个VB半透明无边框窗体且能拖动程序!

VB 半透明窗体 很容易VB 无边框窗体 也很容易VB 半透明无边框窗体 也能实现,但无边框的窗体是无法移动的。。。这个就无法实现了。。。VB 半透明无边框窗体代码;"透明函数SetLayeredWindowAttributes "使用这个函数,可以轻松的实现半透明窗体。按照微软的要求,透明窗体窗体在创建时应使用WS_EX_LAYERED参数(用CreateWindowEx),或者在创建后设置该参数(用SetWindowLong),我选用后者。全部函数、常量声明如下:Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long "其中hwnd是透明窗体的句柄,crKey为颜色值,bAlpha是透明度,取值范围是[0,255],dwFlags是透明方式,可以取两个值:当取值为LWA_ALPHA时,crKey参数无效,bAlpha参数有效;当取值为LWA_COLORKEY时,bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明--这个功能很有用:我们不必再为建立不规则形状的窗体而调用一大堆区域分析、创建、合并函数了,只需指定透明处的颜色值即可,哈哈哈哈!请看具体代码。Private Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Private Const LWA_COLORKEY = &H1Private Const GWL_STYLE = -16Private Const WS_CAPTION = &HC00000Private Const WS_BORDER = &H800000Private Sub Form_Load() "半透明 Dim rtn As Long rtn = GetWindowLong(hwnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hwnd, 0, 125, LWA_ALPHA "无边框 SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, GWL_STYLE) - WS_CAPTION - WS_BORDER End Sub
2023-08-11 19:22:501

VB透明窗体

楼主是否为如下这样运行一个全屏的程序并且180的透明窗体鼠标反键点击可以弹出系统的菜单并且可以访问所有的文件
2023-08-11 19:22:571

layered photoshop psd 什么意思

layered photoshop psdPS图象处理软件PSD分层.很高兴为你解答!如有不懂,请追问。 谢谢!
2023-08-11 19:23:221

c++请问如何用updatelayeredwindow函数使窗口半透明,或者说setayeredwindow也可以

2023-08-11 19:23:381

LFH-layer 什么意思

第一个意思是层;第二个意思是产卵鸡词形变化: layered layered layering layers n. 层This layer of rock contains a lot of flint.这一岩层中有大量燧石。There is a fine layer of dust on the desk.桌子上有一层薄薄的尘土。There are several layers of meaning.有几层不同的含意。The pollution had destroyed ozone layer and caused many changes in weather.污染破坏了臭氧层,并引起了许多天气变化。vi. 分层Mists layered thick about him.层层雾霭笼罩着他。vt. 将某物堆积成层Layer the potatoes and onions in a dish.把土豆和洋葱分层放在盘子里。We layer the crops to make them grow better.我们对农作物进行压条处理,以利于他们生长。n. 产卵鸡,[园艺]压条vt. [园艺]用压条法使(嫩枝)生根
2023-08-11 19:24:001

英语句子“它是二层的”怎么写

It has two layers.
2023-08-11 19:24:073

我电脑上的LSP损坏了怎么办啊

修复LSP360安全卫士/高级/高级工具集/LSP修复工具/修复WindowsLSP开启保护360安全卫士/保护/点击开启:开启实时保护/恶评插件入侵拦截;网页防漏及恶意网站拦截;U盘病毒免疫;局域网ARP攻击拦截(局域网用户);系统关键位置保护
2023-08-11 19:24:153

vb一段关于窗体透明度的代码求解释

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long上面这些是API,Private Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Private Const LWA_COLORKEY = &H1上面这些是系统常数Private Sub Check1_Click() If Check1 = 1 Then Dim rtn As Long rtn = GetWindowLong(hwnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA End IfEnd Sub复选框的单击事件
2023-08-11 19:24:232

为什么LSP一直会损坏拜托了各位 谢谢

一般lsp损坏都是恶意软件或者病毒造成的。可以尝试用360安全卫士修复。不建议你用金山,他不是很厉害,如果用国产的话,推荐瑞星好些! 国外的,卡巴也不错, 这个网站里有下载+升级办法 http://www.kill366.cn 360安全卫士中,高级里的高级工具集,其中有个LSP修复工具,用它修复下就好 . 我来解释一下什么是LSP: LSP即分层服务提供商 Winsock 作为应用程序的 Windows 的网络套接字工具,可以由称为“分层服务提供商”的机制进行扩展。Winsock LSP 可用于非常广泛的实用用途,包括 Internet 家长控制 (parental control) 和 Web 内容筛选。在以前版本的 Windows XP 中,删除不正确的(也称为“buggy”)LSP 可能会导致注册表中的 Winsock 目录损坏,潜在地导致所有网络连接的丢失。 一 什么是LSP协议,LSP协议? LSP全称为Layered Service Provider ,中文名为分层服务提供程序。 LSP就是TCP/IP协议等的接口.LSP用在正途上可以方便程序员们编写监视系统网络通讯情况的Sniffer,可是现在常见的LSP都被用于浏览器劫持 二Winsock LSP(Layered Service Provider)“浏览器劫持浏览器劫持”是什么意思? Winsock LSP(Layered Service Provider)“浏览器劫持”。 某些间谍软件会修改Winsock 2的设置,进行LSP“浏览器劫持”,所有与网络交换的信息都要通过这些间谍软件,从而使得它们可以监控使用者的信息。著名的如New.Net插件或WebHancer组件,它们是安装一些软件时带来的你不想要的东西。 三、LSP(Label Switched Path)标签交换路径 一个转发等价类在MPLS网络中经过的路径称为标签交换路径LSP(Label Switched Path)。 LSP在功能上与ATM和Frame Relay的虚电路相同,是从入口到出口的一个单向路径。LSP中的每个节点由LSR组成。
2023-08-11 19:24:431

什么问题能造成LSP网络故障需要修复?

LSP即分层服务提供商Winsock 作为应用程序的 Windows 的网络套接字工具,可以由称为“分层服务提供商”的机制进行扩展。Winsock LSP 可用于非常广泛的实用用途,包括 Internet 家长控制 (parental control) 和 Web 内容筛选。在以前版本的 Windows XP 中,删除不正确的(也称为“buggy”)LSP 可能会导致注册表中的 Winsock 目录损坏,潜在地导致所有网络连接的丢失。一 什么是LSP协议,LSP协议?LSP全称为Layered Service Provider ,中文名为分层服务提供程序。 LSP就是TCP/IP协议等的接口.LSP用在正途上可以方便程序员们编写监视系统网络通讯情况的Sniffer,可是现在常见的LSP都被用于浏览器劫持 二 Winsock LSP(Layered Service Provider)“浏览器劫持浏览器劫持”是什么意思?Winsock LSP(Layered Service Provider)“浏览器劫持”。某些间谍软件会修改Winsock 2的设置,进行LSP“浏览器劫持”,所有与网络交换的信息都要通过这些间谍软件,从而使得它们可以监控使用者的信息。著名的如New.Net插件或WebHancer组件,它们是安装一些软件时带来的你不想要的东西。 三、LSP(Label Switched Path)标签交换路径一个转发等价类在MPLS网络中经过的路径称为标签交换路径LSP(Label Switched Path)。 LSP在功能上与ATM和Frame Relay的虚电路相同,是从入口到出口的一个单向路径。LSP中的每个节点由LSR组成
2023-08-11 19:24:502

vb6 隐形控件

做一个透明的窗体跟踪原窗体需要遮挡的相对位置可能可以。PS. 函数SetLayeredWindowAttributes 使用这个函数,可以轻松的实现半透明窗体。按照微软的要求,透明窗体窗体在创建时应使用WS_EX_LAYERED参数(用CreateWindowEx),或者在创建后设置该参数(用SetWindowLong),我选用后者。全部函数、常量声明如下: Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long 其中hwnd是透明窗体的句柄,crKey为颜色值,bAlpha是透明度,取值范围是[0,255],dwFlags是透明方式,可以取两个值:当取值为LWA_ALPHA时,crKey参数无效,bAlpha参数有效;当取值为LWA_COLORKEY时,bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明--这个功能很有用:我们不必再为建立不规则形状的窗体而调用一大堆区域分析、创建、合并函数了,只需指定透明处的颜色值即可,哈哈哈哈!请看具体代码。 Private Const WS_EX_LAYERED = &H80000 Private Const GWL_EXSTYLE = (-20) Private Const LWA_ALPHA = &H2 Private Const LWA_COLORKEY = &H1 代码:一个半透明窗体 Private Sub Form_Load() Dim rtn As Long rtn = GetWindowLong(hwnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA End Sub
2023-08-11 19:25:171

laquered.什么意思

翻译:漆器的,上漆的
2023-08-11 19:25:242

LSP损坏了,一定是有病毒或者木马吗?有哪些情况

先解释一下什么是LSP:LSP即分层服务提供商 Winsock 作为应用程序的 Windows 的网络套接字工具,可以由称为“分层服务提供商”的机制进行扩展。Winsock LSP 可用于非常广泛的实用用途,包括 Internet 家长控制 (parental control) 和 Web 内容筛选。在以前版本的 Windows XP 中,删除不正确的(也称为“buggy”)LSP 可能会导致注册表中的 Winsock 目录损坏,潜在地导致所有网络连接的丢失。 一 什么是LSP协议,LSP协议? LSP全称为Layered Service Provider ,中文名为分层服务提供程序。 LSP就是TCP/IP协议等的接口.LSP用在正途上可以方便程序员们编写监视系统网络通讯情况的Sniffer,可是现在常见的LSP都被用于浏览器劫持 二 Winsock LSP(Layered Service Provider)“浏览器劫持浏览器劫持”是什么意思? Winsock LSP(Layered Service Provider)“浏览器劫持”。 某些间谍软件会修改Winsock 2的设置,进行LSP“浏览器劫持”,所有与网络交换的信息都要通过这些间谍软件,从而使得它们可以监控使用者的信息。著名的如New.Net插件或WebHancer组件,它们是安装一些软件时带来的你不想要的东西。 三、LSP(Label Switched Path)标签交换路径 一个转发等价类在MPLS网络中经过的路径称为标签交换路径LSP(Label Switched Path)。 LSP在功能上与ATM和Frame Relay的虚电路相同,是从入口到出口的一个单向路径。LSP中的每个节点由LSR组成。 一般lsp损坏都是恶意软件或者病毒造成的。可以尝试用360安全卫士修复。如果还不行的话,那建议您从装系统。
2023-08-11 19:25:321

窗口句柄的案例

获取窗口句柄案例说明本例实现窗口句柄的获取。实现过程Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = H2Private Sub Form_Activate()On Error Resume NextFor i = 0 To 150 Step 2.5SetLayeredWindowAttributes Me.hwnd, 0, i, LWA_ALPHADoEventsNext iEnd SubPrivate Sub Form_load()Dim rtn As Longrtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE)rtn = rtn Or WS_EX_LAYEREDSetWindowLong Me.hwnd, GWL_EXSTYLE, rtnSetLayeredWindowAttributes Me.hwnd, 0, 0, LWA_ALPHAEnd Sub
2023-08-11 19:25:401

VB实现窗体鼠标穿透

鼠标穿透是一种窗体模式,透明和鼠标不能点击与控制,可以点击和控制窗体后面的程序或则文件,不过现在我也没有找到取消的方法 应该是有一个函数再从新调用回来!呵呵 刚刚找到的 ! 规则的Form窗体可以! SetWindowLong Me.hWnd, GWL_EXSTYLE, WS_EX_LAYERED
2023-08-11 19:25:562

VB6.0 其它窗口透明

这个很简单,你只需要设置borderstyle的属性为0
2023-08-11 19:26:042

1000分 赏求 求助一本电子书 Handbook.Of.Layered.Materials

搞到手望后,楼主共享!
2023-08-11 19:26:242

VB6中Print和Line的使用问题

Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As LongPrivate Const GWL_EXSTYLE = (-20)Private Const WS_EX_LAYERED = &H80000Private Const WS_EX_TRANSPARENT = &H20&Private Const LWA_ALPHA = &H2&Option ExplicitPrivate Sub Form_click()Dim lOldStyle As LongDim bTrans As BytebTrans = 128lOldStyle = GetWindowLong(Me.hwnd, GWL_EXSTYLE)SetWindowLong Me.hwnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED Or WS_EX_TRANSPARENTSetLayeredWindowAttributes Me.hwnd, 0, bTrans, LWA_ALPHAMe.ShowMe.Print "123456"Me.Line (0, 200)-(500, 1000)End Sub
2023-08-11 19:26:411

VB如何让控件透明?

要调用API函数,我有一个设置窗体透明,要么?
2023-08-11 19:26:495

VB6怎么使窗体透明???

Option Explicit"--窗体透明,控件不透明Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongConst WS_EX_LAYERED = &H80000Const GWL_EXSTYLE = (-20)Const LWA_COLORKEY = &H1Private Sub Form_Load() BackColor = &HFEFEFE SetWindowLong hwnd, GWL_EXSTYLE, WS_EX_LAYERED SetLayeredWindowAttributes hwnd, &HFEFEFE, 0, LWA_COLORKEY "--这里的 0 表示透明度End Sub
2023-08-11 19:27:031

VISUAL C++里怎么把对话框设置成透明

在你的对话框的OnInitDialog()函数中加上以下两句代码,::SetWindowLong( m_hWnd, GWL_EXSTYLE, GetWindowLong(m_hWnd, GWL_EXSTYLE) | WS_EX_LAYERED);::SetLayeredWindowAttributes( m_hWnd, 0, 125, LWA_ALPHA);其中125是透明度,取值范围0-255。 vs2008下没有问题,你在 stdafx.h添加#define WINVER 0x0500试下错误很可能和你的编译器版本有关系。
2023-08-11 19:27:131

vb6使图片背景透明

很难说得清,直接给你一个例子程序研究下
2023-08-11 19:27:212

tiramisu( 意大利芝士饼)求救!

更新1: 有冇tiramisu的历史....由来等喔! 99%会选做最佳回答u359e!记住, 愈多愈好....... (唔好净食谱),多D野啦!!! 记住, 愈多愈好....... ,Tiramisu" me “pick-me-up” in Italian, for the high energetic content (eggs and sugar) and the caffeine of the strong espresso coffee. There are many different stories about the origin of Tiramisu". It is a layered cake; therefore some people place its origin in Tuscany, where another famous layered Italian dessert is very popular. It is called “Zuppa Inglese” (English Soup). It is not English and it is not a soup. Instead is a simple cake of ladyfingers or sponge cake, soaked in “alkermes” liquor, and alternated layers of chocolate and egg custard. Layered cakes have been around for long time. The brilliant idea in Tiramisu" is not in the technique of layering, but in the ponents. The great invention of bining together coffee, zabaglione cream, and chocolate: This is the true innovation in Tiramisu". But the final word on the origin of Tiramisu" is from the book by Fernando e Tina Raris “La Marca Gastronomica” published in 1998, a book entirely dedicated to the cuisine from the town of Treviso. The authors remember what Giuseppe Maffioli wrote in an article in 1981: “Tiramisu" was born recently, just 10 years ago in the town of Treviso. It was proposed for the first time in the restaurant Le Beccherie. The dessert and its name became immediately extremely popular, and this cake and the name where copied by many restaurants first in Treviso then all around Italy”. Still today the restaurant “Le Beccherie” makes the dessert with the classical recipe: ladyfingers soaked in bitter strong espresso coffee, mascarpone-zabaglione cream, and bitter cocoa powder. Alba and Ado Campeol, owners of the restaurant regret they didn"t patent the name and the recipe, especially to avoid all the speculation and guesses on the origin of this cake, and the diffusion of so many recipes that have nothing to do with the original Tiramisu". 食谱你有咁多,我五洗比你啦,参考: annamariavolpi/page38,
2023-08-11 19:27:281

高中难度的句子,分析一个句子的语法结构

他描述排比句式,可分句之间喻法各不同,所以只能用逗号
2023-08-11 19:27:364

SetLayeredWindowAttributes 在WIN7下面鼠标穿透问题。

在AERO风格下 使用纯绿色之外的其他颜色抠出来的洞 都不能穿透窗体,AERO之外的风格,随意颜色抠出来的都可以。我也是试了一天,才偶然发现的,相信这是WINDOWS的一个BUG
2023-08-11 19:27:553

用Visual Basic6.0在Vista下实现全磨砂玻璃窗口

使用过Windows Vista 的用户都会对Vista窗口的磨砂玻璃效果印象深刻,而如果你在Windows Vista 下使用过 Windows Media Player 11 更会发现微软把这种效果扩展至WMP11的底部区域,使得WMP的底部按钮区域成为一条“玻璃带”,如图:事实上,Vista窗口的磨砂玻璃效果不仅限于窗体的边框(非客户区域),他可以任意的延伸,甚至铺满整个窗口,下面我们就来看看怎么用的vb6来实现这种扩展。Vista实现磨砂玻璃效果主要依靠一组叫做 Desktop Window Manager (DWM) 的API来实现,该组API均以dwm打头,存在于dwmapi.dll中(该文件为Vista特有),顾名思义,这些API是专门用来实现Vista窗口的特效的。由于篇幅所限,这里仅介绍和本文关系最密切的两个函数:DwmIsCompositionEnabled 和 DwmExtendFrameIntoClientArea。第一个函数DwmIsCompositionEnabled是用于判断系统的磨砂玻璃合成效果是否已经开启,因为该效果可以由用户关闭,尽管你可以在用户关闭合成效果的情况下在程序中单独使用合成效果。DwmIsCompositionEnabled的原型为:HRESULT DwmIsCompositionEnabled( BOOL *pfEnabled )其中pfEnabled为一个输出参数,告诉后面的程序合成效果是否被打开。该函数的VB声明为:Public Declare Function DwmIsCompositionEnabled Lib "dwmapi.dll" (ByRef enabledptr As Long) As Long这里要注意C++里的BOOL类型必须译成vb中的Long而不是Boolean,否则你将得到错误的结果。DwmExtendFrameIntoClientArea函数则用于将磨砂边框扩展至窗体客户区,使得整个窗体看上就像一张卡片(sheet)。该函数原型为:HRESULT DwmExtendFrameIntoClientArea(HWND hWnd,const MARGINS *margins)其中hWnd 为目标窗口句柄,margins为一个MARGINS结构体指针MARGINS结构体定义为:typedef struct _MARGINS{int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight;} MARGINS, *PMARGINS;该函数的vb引用为:Public Declare Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" (ByVal hwnd As Long, margin As MARGINS) As LongMARGINS的vb形式定义:Public Type MARGINSm_Left As Longm_Right As Longm_Top As Longm_Button As LongEnd Type其中MARGINS中的各个成员为需要扩展的边框大小(单位:像素),如果要把磨砂玻璃效果铺满整个边框(本文以此为例),全部成员可设置为-1知道了这些,我们现在就可以动手了。我们在窗体的Form_Load事件里写上:Dim mg As MARGINS, en As Longmg.m_Left = -1mg.m_Button = -1mg.m_Right = -1mg.m_Top = -1DwmIsCompositionEnabled enIf en ThenDwmExtendFrameIntoClientArea Me.hwnd, mgEnd If然后运行(先确保系统使用Aero界面且合成效果被打开),结果发现窗体依然如故。原来,DwmExtendFrameIntoClientArea扩展后的边框并不会在客户区的前景显示(它其实是一个背景,你会发现,此时边框其实已经被扩展了,因为原来的客户区的凹陷边界已经消失),磨砂玻璃的效果被窗体默认画上去的前景覆盖了,所以我们得自己给窗体画个“透明”的前景。幸运的是,在RGB调色版中,黑色black (0x00000000)刚好就是ARGB(short for Alpha, Red, Green and Blue)的100%透明(这刚好可以解释为什么用Windows 画图板打开一个png图片时透明背景会变成纯黑)。所以,第一个方法,我们可以在窗口的Form_Paint事件(是的,Form_Paint就足够了,不用去子类化窗体。当然,如果要实现更高级功能,还是子类化吧)中给窗口的前景用纯黑(RGB(0,0,0))填充,用的是经典的GDI,主要就是CreateSolidBrush和FillRect两个API工作,代码:Dim hBrush As Long, m_Rect As RECT, hBrushOld As LonghBrush = CreateSolidBrush(RGB(0, 0, 0))hBrushOld = SelectObject(Me.hdc, hBrush)GetClientRect Me.hwnd, m_RectFillRect Me.hdc, m_Rect, hBrushSelectObject Me.hdc, hBrushOldDeleteObject hBrush ‘别忘了删除对象现在再按一次F5,恩.很好!#p#副标题#e#效果如下:但是接着问题就来了,当你在窗体上放上几个控件之后会发现,控件的黑色部分(一般就是文字)也带上了磨砂玻璃的“特效”如图:注意到上面的Text1文字了吗?这种效果可不是我们想要的。怎么办呢?上帝说:要有更好的办法于是,就有了第二种实现方法。其实这个问题的关键是画出透明的客户区,那么,别忘了,还有一个API可以做成此事,记得.NET里面那些控件和窗口有的有个TransparentKey属性么?没错了,就是用它—— SetLayeredWindowAttributesSetLayeredWindowAttributes可以提供这样的一个功能:给一个窗口设定一个透明色,然后窗口显示的时候指定颜色的区域将变成透明。这样,只要我们给窗口指定一种没有用到的颜色(反正不是黑色就行,这里我用RGB(255,255,1)),就可以“画”出“透明”的区域了。我们在使用之前要先对SetLayeredWindowAttributes做做手脚,将其声明为:Public Declare Function SetLayeredWindowAttributesByColor Lib "user32" Alias "SetLayeredWindowAttributes" (ByVal hwnd As Long, ByVal crey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long为什么要这么干呢?留意函数第二个参数,本来有人将其声明为Byte类型(用于窗体半透明时没有问题),但是这里要传一个RGB值,所以要改成Long代码如下,相关的API和常量不再敷述,声明和值请读者自行补齐Form_Load事件:(先声明m_transparencyKey全局变量,Long类型)m_transparencyKey = RGB(255, 255, 1) ‘多少没所谓SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYEREDSetLayeredWindowAttributesByColor Me.hwnd, m_transparencyKey, 0, LWA_COLORKEYDim mg As MARGINS, en As Longmg.m_Left = -1mg.m_Button = -1mg.m_Right = -1mg.m_Top = -1MsgBox "1"DwmIsCompositionEnabled enIf en ThenDwmExtendFrameIntoClientArea Me.hwnd, mgEnd If再在Form_Paint事件中画图:Form_Paint代码:Dim hBrush As Long, m_Rect As RECT, hBrushOld As LonghBrush = CreateSolidBrush(m_transparencyKey)hBrushOld = SelectObject(Me.hdc, hBrush)GetClientRect Me.hwnd, m_RectFillRect Me.hdc, m_Rect, hBrushSelectObject Me.hdc, hBrushOldDeleteObject hBrush再按F5,效果嘛#p#副标题#e#顺便提一下,此代码在WindowsVista以下版本,2000及以上Windows版本运行时会产生一个很有趣的效果(除控件外窗体客户区背景完全透明!)如图:#p#副标题#e#
2023-08-11 19:28:021

我的电脑无法联网所有软件都打不开?

能加的Q教下么。看不懂什么意思。164079989。谢谢
2023-08-11 19:28:137

VS里面窗体应用程序那个控件是可以改变透明度的?

transparent?还是 opaque?记不清了
2023-08-11 19:29:462

vb 窗口特定颜色透明

在VB.NET中很容易的,用不着API的大驾
2023-08-11 19:29:562