用VB编写一个小程序

Dim a, b

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Text.Text = "Visual Basic程序设计"唯仔冲

Command1.Caption = "指歼结束"

Text.Left = 0: Text.Top = 0: Text.Width = 0.5 * Form1.Width

Text.Height = 0.5 * Form1.Height

a = Form1.Width - Command1.Left

b = Form1.Height - Command1.Top

End Sub

Private Sub Form_Resize()

Text.Left = 0: Text.Top = 0: Text.Width = 0.5 * Form1.Width

Text.Height = 0.5 * Form1.Height

Command1.Left = Form1.Width - a

Command1.Top = Form1.Height - b

End Sub

注意，各变戚神量名，控件名保持一致,你题目中的文本框名称为text

这里遇到的问题，是动态textarea列表，底部提交按钮position：fiexd悬浮。在滑动页面，textarea文本框友仿中的文字会穿透到提交按钮上方，显示出来。这个问题困扰我好久，试了很多方法不管用，今天终于解决了，赶快记下来。

下面是提交按钮的wxss样式：

下面是提交按钮的wxml样式乱告哗：

开始在textarea文本框上下功夫，想利用d出层类似的方案来解决这个穿透问题，但是最终宣告失败。

网上查，z-index分别在子层级，和父层级上设置这个属性，哪个值大，哪个层级就在最上面。

于是我在textarea上，设置z-index:0,这样，在模拟器上运行就没问题了，但是iOS真机就无效了。z-index会失去作用。textarea输入的内容还是会浸透在遮盖在textarea上的布局。后来查阅官方文档，发现用cover-view可以解决。

原生组件说明官方文档

于是，我把底部提交按钮的view控件，换成了cover-view

运行结果，还是不行，又将cover-view动态样式里加上z-index：999，问题才解决。

红框就是备注textarea中的内容，当d窗d出，内容就会穿透出来。这时用上面的z-index方面就失效了，也搞不懂是什么原因，于是通过改textarea显示方式来解决穿透问题。

思路：就是当d窗d出的时候，设置一个值为true，在textarea做wx：if判断那个哗行值为true时，证明d窗d出，把textarea改成text显示即可。

这样，d窗穿透问题就解决了。

1、关键词搜索。

在程序上线以后，可以覆盖十个推广关键词，方便用户搜索查找，用户可以精准搜索小程序。就是根据需要查找的内容，用最准确、最简练的若干个词语答渣表达出来，只要在搜索引擎中的输中举陵入栏中，输入关键词，搜索引擎就会列出需要的内容和文档。

2、地图定位。

定位商铺地址，调位腾讯的地图接口，定位商户位置，从而推荐周围商家。

3、独享空间。

图片文字控件，在服务器的储存空间，用于商家储存图片，货物信息等，方便日后调用。

4、自卖戚定义标签。

DIY界面交互，客户可以制定丰富的界面交互效果。风格独特吸引顾客。

以用户为中心的设计流程，关注用户的使用流畅度和方便性，符合用户使用习惯的解决方案。

交互不一定需要很华丽的界面，但是使用过程肯定是很人性化，减少用户思考返回的次数。

5、官网系统官网系形象展示，企业介绍用官网，便于企业宣传。

企业形象是指人们通过企业的各种标志（如产品特点、行销策略、人员风格等）而建立起来的对企业的总体印象，是企业文化建设的核心。

6、商城系统。

移动零售模块实现移动端o2o模式。O2O移动商城模式（英语：OnlinetoOffline），又称离线商务模式，是指移动商城线上营销线上购买或预订（预约）带动线下经营和线下消费。

O2O通过打折、提供信息、服务预订等方式，把线下商店的消息推送给互联网用户，从而将他们转换为自己的线下客户，这就特别适合必须到店消费的商品和服务，比如餐饮、健身、看电影和演出、美容美发等。

---