vb.net - improving MS Project VB/VBA task creation -


at moment have code creates new tasks, it's buggy , inconsistent.

public sub create_milestones()     proj = globals.thisaddin.application.activeproject      dim mytask msproject.task      application.screenupdating = false      each mytask in application.activeselection.tasks         application.selecttaskfield(row:=1, column:="name")         application.inserttask()         application.settaskfield(field:="duration", value:="0")         application.settaskfield(field:="start", value:=mytask.finish)         application.settaskfield(field:="name", value:=mytask.name & " - milestone")         application.settaskfield(field:="resource names", value:=mytask.resourcenames)         application.settaskfield(field:="text3", value:="milestone")         application.ganttbarformat(ganttstyle:=3, startshape:=13, starttype:=0, startcolor:=255, middleshape:=0, middlepattern:=0, middlecolor:=255, endshape:=0, endcolor:=255, endtype:=0)         application.selecttaskfield(row:=1, column:="name")     next     application.selecttaskfield(row:=-1, column:="name")     application.selectrow(row:=0)     application.rowdelete()      application.screenupdating = true      msgbox("done") end sub

it seems go far when looping through selected tasks , creates 1 task many, worked around going , deleting task doesn't seem best solution me.

i realise bit of code in vb.net can work vba too.

is there better way create , assign values new tasks?

the problem task can solved storing collection (or list in .net) of selected tasks , looping through those. i'm posting solution in vba since relevant other viewers; can post vb.net version if needed.

application.screenupdating = false  dim proj project set proj = application.activeproject  dim mytask task dim coltasks new collection each mytask in application.activeselection.tasks     coltasks.add mytask, cstr(mytask.uniqueid) next mytask  dim object each in coltasks     set mytask = activeproject.tasks.uniqueid(i)     dim newtask task     set newtask = activeproject.tasks.add(mytask.name & " - milestone", mytask.id + 1)     newtask.duration = 0     newtask.predecessors = mytask.id & "ff"     newtask.text3 = "milestone"     newtask.resourcenames = mytask.resourcenames     application.selectrow newtask.id, false     application.ganttbarformat ganttstyle:=3, startshape:=13, starttype:=0, startcolor:=255, middleshape:=0, middlepattern:=0, middlecolor:=255, endshape:=0, endcolor:=255, endtype:=0 next  application.selectrow coltasks(1), false application.selecttaskfield row:=0, column:="name" application.screenupdating = true

i changed few things: 1) rather hard-coding start field, use task relationship keep it's task when task moves; 2) since zero-duration tasks have no work, not necessary add resources.

update

here's vb.net version:

        dim projapp msproject.application = globals.thisaddin.application         projapp.screenupdating = false          dim proj msproject.project = projapp.activeproject          dim seltasks new list(of msproject.task)         each mytask msproject.task in projapp.activeselection.tasks             seltasks.add(mytask)         next mytask          each mytask in seltasks             dim newtask msproject.task = proj.tasks.add(mytask.name & " - milestone", mytask.id + 1)             newtask.duration = 0             newtask.predecessors = mytask.id & "ff"             newtask.text3 = "milestone"             newtask.resourcenames = mytask.resourcenames             projapp.selectrow(newtask.id, false)             projapp.ganttbarformat(ganttstyle:=3, startshape:=13, starttype:=0, startcolor:=255, middleshape:=0, middlepattern:=0, middlecolor:=255, endshape:=0, endcolor:=255, endtype:=0)         next          projapp.selectrow(seltasks(0).id, false)         projapp.selecttaskfield(row:=0, column:="name")         projapp.screenupdating = true

-

Popular posts from this blog

php - How should I create my API for mobile applications (Needs Authentication) -

background so i've been researching quite bit past week api's , have been reading concepts , programming one. currently have website programmed in php using popular framework called laravel. website has user database , users able log dashboard on website, works want website side. now next project of business i'm focusing on creating mobile applications (ios & andriod).what need these mobile applications being able login through application ui (not being redirected site callback url) able view , manage dashboard. the method of authentication , authorization want use application go like client asks user login through ui user enters credentials client sends request login api the api checks if credentials correct api creates token stored in token database linked user id api returns 200 ok json response or this { "token" : "ols25usjiay81hdy81", "expiry" : 3/06/2016 14:00} client remembers token , expiry whenever user/c
Read more

5 Reasons to Blog Anonymously (and 5 Reasons Not To)

Image
This guest post is by Phil (not his real name) of somehighschoolblog . It used to be impossible to run a business anonymously. Sure, some authors could pull it off, but if you worked at an office, what were you supposed to do? Go to work with a bag over your head? But today anyone can accomplish this, because anyone can author a blog (and you thought I was going to tell you to work with a mask on, or something). Copyright Ovidiu Iordachi - Fotolia.com Depending on your motives, you may or may not have considered blogging anonymously. You probably didn’t contemplate blogging anonymously if: • your only motivation is to become “famous” • your blog connects to another part of your life • you are blogging to build more connections with your friends or boss. You should consider blogging anonymously if: • you’re planning on touching on a sensitive or taboo subject • you don’t want to be identified with your blog • you are worried about negative real-world consequences that could arise from y
Read more

Google AdWords and AdSense - A Dynamic Small Business Marketing Duo

Unless you have been living under a rock for the last year or so, you probably know that Google has become the king of the search engine hill. There are many reasons for this but number one in my opinion is that above all else they put value on content. Today I want to introduce you to two very powerful small business advertising options created by Google. These two ingenious programs have all but revolutionized the way advertising is done on the web. Warning: If you are thinking..."web advertising isn't for me, I just need a few more clients around the block"...you better read this or be prepared to have your competitors eat your lunch. Goolge AdSense - Again content is king at Google. This program allows web site "publishers" to add some code from Google and receive "content relevant" ads on their site from other site owners. Here is an example - those ads in the box on the right of the page are delivered by Google and are matched to the content
Read more